Forums XLPages

Tous les messages (myDearFriend!)

1 2 3 4 ... 146 »
Re: Alerte excel en fonction de la date du jour
#1
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-05 16h23

Bonjour annaChj, le forum,

Si j'ouvre le 2ème fichier que tu viens de poster, pour moi, il fonctionne parfaitement :

  • En colonne L, je saisis une date quelconque : 
      • Si la date saisie est inférieure à Aujourd'hui, la cellule change de couleur.
      • Si la date saisie est supérieure ou égale à Aujourd'hui, la cellule est blanche.

Mais peut-être ai-je mal interprété ce que tu souhaitais obtenir ?

Bien cordialement,

 

Edité par myDearFriend! le 19/05/2021 10:41:45

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Alerte excel en fonction de la date du jour
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 17-05 17h37

Bonjour annaChJ et bienvenue sur mDF-XLPages.com Content(e)

Si tu englobes ta colonne entière "$L:$L", ta plage de référence commence donc à la ligne 1.
Ta formule devrait donc être :

=$L1<AUJOURDHUI()

Si tu mets "$L2" alors tout est décalé d'une ligne pour la condition !

Par exemple, ta cellule "L5" répondra sur une condition évaluée en fonction de "L6", etc... Fou

En espérant t'avoir dépanné.

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Message d’erreur avec une formule
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 16-03 13h46

Bonjour oxymore, le Forum,

 

Tu devrais pouvoir faire comme ça :

=GAUCHE(C2;NBCAR(C2)-1)

- Pas d'espace dans la formule.

- Le séparateur c'est le ";" (point virgule) pour les formules sur les versions Excel françaises.

 

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Horloge de myDearFriend! figée
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 17-02 10h40

Bonjour MaPommeAMoi, bienvenue sur mDF-XLpages.com Content(e)

Citation :

MaPommeAMoi a écrit :

Petit à petit, je progresse mais je butte sur un petit problème: j'ai aimé l'horloge de myDearFriend! (http://www.mdf-xlpages.com/modules/TD ... efile.php?cid=5&lid=8) mais je ne comprends pas pourquoi, lorsque je change de feuille et que je reviens sur la feuille contenant l'horloge, cette dernière est figée et je suis obligé de cliquer dessus pour la relancer.

Je précise que j'utilise le code de myDearFriend! en copier/coller et que je ne l'ai pas modifié.

Tout d'abord, merci de ton passage sur le site. Mais, à vrai dire, je n'ai aucune idée de ce qui se passe dans ton classeur.Confus(e)

Es-tu sûr d'avoir bien placé les procédures VBA ainsi que la déclaration de variable "Temps" dans un module de code "Standard" (et non dans un module de code de feuille par exemple) ?

A priori, en suivant ce qui est détaillé dans l'article "La méthode OnTime : question de temps ?", il n'y a aucune raison de rencontrer un tel souci... Je viens de tester à nouveau (sur Excel 365, car je n'ai pas Excel 2007 sous la main), et tout semble fonctionner correctement.

Le problème est-il le même si tu testes le classeur exemple en téléchargement tel qu'il est, sans modifier quoi que ce soit (à part simplement ajouter une nouvelle feuille pour reproduire la situation) ?


Peut-être peux-tu aussi joindre ton fichier (ou un extrait épuré du classeur) pour qu'on puisse analyser la situation ?  (voir au besoin, la FAQ "Comment joindre un fichier dans le Forum ?")



Bien cordialement,

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Supprimer certaines valeurs
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 14-02 17h30

Bonjour Jad73,

 

Non. J'ai placé la Function VBA (en mode public) dans un module standard. Donc en principe, elle est accessible depuis n'importe où dans le classeur.

 

Il te suffit donc de faire appel à cette fonction depuis l'autre feuille, de la même manière que je l'ai fait dans la première. Ça devrait fonctionner quelque soit la feuille avec cette unique procédure, elle est faite pour ça. 

 

Bien cordialement, 

 

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Supprimer certaines valeurs
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-02 13h53

Bonjour Jad73, le Forum,

 

Tu trouveras en pièce jointe une solution possible, je pense.

 

La mise en oeuvre la plus simple, me semble être l'utilisation d'une fonction VBA personnalisée directement dans ta feuille de calcul.

 

Le code VBA que je te propose, est le suivant :

 DANS UN MODULE DE CODE STANDARD (Ex: Module1) 

Function calcMusique(R As Range, Optional vSomme As Boolean = False) As Integer
'myDearFriend! - www.mdf-xlpages.com
Dim vTab As Variant
Dim T As String
Dim i As Byte, vSum As Integer
    Application.Volatile
    T = R.Text
    'Liste expressions à tronquer (à adapter!)
    vTab = Array("(18)", "(19)", "(20)", "D", "T", "p", "h")
    For i = 0 To UBound(vTab)
        T = Replace(T, vTab(i), "")
    Next i
    T = Trim(Replace(T, "  ", " "))
    'Mettre les éléments en tableau
    vTab = Split(T, " ")
    'Calcul
    If vSomme Then
        'Faire la somme des items
        For i = 0 To UBound(vTab)
            vSum = vSum + vTab(i)
        Next i
        calcMusique = vSum
    Else
        calcMusique = UBound(vTab) + 1
    End If
End Function

 

FONCTIONNEMENT :

Soit l'expression suivante en cellule A1 par exemple :

(20) 1p 12p 4p 2p Dp 7p 6p 7p (19) 4p 3p 1p 1p

Cette fonction VBA va tout d'abord considérer uniquement les valeurs chiffrées suivantes :

(20) 1p 12p 4p 2p Dp 7p 6p 7p (19) 4p 3p 1p 1p

  • Pour en obtenir la SOMME, tu fais appel à cette fonction avec l'argument "VRAI", comme suit :
=calcMusique(A1;VRAI)
  • Et pour obtenir le NOMBRE de VALEURS chiffrées à considérer (soit nombre de courses) :
=calcMusique(A1;FAUX)

ou bien, tout simplement comme suit, car l'argument "FAUX" est une valeur par défaut  :

=calcMusique(A1)

  

Dans l'exemple ci-dessus, tu obtiendras une somme de « 48 », et un nombre de valeurs de « 11 ».

 

 

J'ai appliqué cette fonction dans ta feuille (classeur en pièce jointe).

J'espère que ça pourra t'aider...

 

Bien cordialement,

Pièce jointe:
xlsm Pour_Jad73.xlsm   [ Taille: 65.52 Ko - Téléchargements: 101 ]
Edité par myDearFriend! le 13/02/2021 14:19:16

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Detecter le nb de caractères avant le premier espace
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 08-02 12h57

Bonjour Kiloren, bienvenue sur XLpages.com smiley

 

Exemple : soit l'adresse postale en cellule A1, la formule suivante devrait répondre simplement à ta question :

=GAUCHE(A1;CHERCHE(" ";A1)-1)

Ca devrait aisément fonctionner avec les adresses que tu as fournies en exemples.

 

Tu pourras également retrouver cette solution en détail, dans l'excellent article de notre amie Mth

CHERCHE() TROUVE() - Retourne la position d'une chaîne de caractères

 

Bien cordialement,

Edité par myDearFriend! le 13/02/2021 14:06:02

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform, Liste déroulante dépendante sans doublon
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 30-01 01h37

Bonsoir Theo44, le Forum,

 

A mon tour de te remercier pour le partage de la solution que tu as trouvée (je mets le fil de discussions en "Résolu")

 

J'aime particulièrement la façon relativement simple d'aborder le remplissage de ComboBox sans doublon. C'est une autre méthode qui me semble très efficace et que je vais certainement garder en mémoire.

 

Mais ça n'a rien d'étonnant, car je crois que son auteur n'est autre que SilkyRoadMVP Excel il y a quelques années, c'est un ami que j'ai beaucoup apprécié et qui m'a fait l'honneur de quelques interventions ici même (sous son pseudo de l'époque MichelXLD).

 

Tout ça me rend bien nostalgique à vrai dire... et je regrette énormément que des interlocuteurs de valeur comme lui (et d'autres) aient complètement disparu des forums Exceliens depuis

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: TDB dynamique et intercative
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 28-01 17h54

Bonjour Piterot, bienvenue sur mDF-XLpages.com Content(e)

Ayant vu ton post hier, je n'y ai pas répondu par manque de temps. Mais le fichier que tu avais posté hier était visiblement corrompu et non exploitable (Je viens de voir que tu l'avais enlevé aujourd'hui).

Je ne dis pas que je saurai immanquablement répondre à ta question (qui me semble assez complexe), mais au besoin, tu peux consulter cette FAQ : Comment joindre un fichier dans le Forum ?

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform, Liste déroulante dépendante sans doublon
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1507

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 28-01 17h46

Bonjour Theo44,

 

Tu trouveras en pièce jointe peut-être une façon de faire pour répondre à ton besoin.

 

J'ai tout d'abord créé la Function suivante :

 

DANS LE MODULE DE CODE DU USERFORM

Private Function defListeTiers(valTC As String) As Variant
' myDearFriend! - www.mdf-xlpages.com
Dim Dict As Object
Dim vTabTemp As Variant
Dim L As Long

    Set Dict = CreateObject("Scripting.Dictionary")
    'Mémorise les valeurs des plages "V_TC" et "L_TC_Tiers" (colonnes I et J) dans un seul tableau variant à 2 colonnes
    vTabTemp = Sheets("P").Range("V_TC").Resize(ColumnSize:=2).Value
    'On parcourt ligne à ligne le tableau variant
    For L = 1 To UBound(vTabTemp, 1)
        'Si correspondance avec le choix en Combobox "L_TC"
        If vTabTemp(L, 1) = valTC Then
            'On ajoute l'item au dictionary (sans doublon!)
            Dict(vTabTemp(L, 2)) = ""
        End If
    Next L
    'Si liste vide alors on sort de la fonction
    If Dict.Count = 0 Then Exit Function
    'On récupère la liste des items sans doublon
    vTabTemp = Dict.Keys
    Set Dict = Nothing
    ' On retourne la liste avec tri
    defListeTiers = Tri(vTabTemp, LBound(vTabTemp), UBound(vTabTemp))
End Function

 

Puis, j'ai aujouté une procédure évènementielle, laquelle est déclenchée par tout changement de valeur dans la liste de choix "Type contrat" :

 

Private Sub L_TC_Change()
Dim vTabTemp As Variant
    'Selon choix dans la liste "L_TC", on redéfinit la liste "L_Tiers"
    vTabTemp = defListeTiers(L_TC.Text)
    With L_Tiers.Style = fmStyleDropDownList
        .Clear
        If Not IsEmpty(vTabTemp) Then
            .List = vTabTemp
            .ListIndex = -1
        End If
    End With
End Sub

 

Attention cependant : pour être sûr que le fonctionnement soit fiable, il te faut impérativement modifier la propriété "Style" de tes ComboBox sur "fmStyleDropDownList" (qui n'est pas la valeur par défaut).

Ca permet d'obliger l'utilisateur à faire un choix existant dans la liste, et l'empeche de saisir une autre valeur non proposée.

C'est ce que j'ai fait pour tes 2 ComboBox "L_TC" et "L_Tiers".

 

J'ai tenté de commenter au maximum le code utilisé pour que tu puisses le comprendre au mieux.

 

Par ailleurs, (et j'aurai dû commencer par ça), je me permets 2 conseils concernant ton code  :

  1. - donner le même nom aux plages nommées et aux contrôles de ton Userform n'est pas la meilleure idée. Ca donne quelque chose d'assez confus dans le code, selon moi.
     
  2. - La déclaration des variables est toujours hautement recommandée ! Et l'utilisation de l'instruction "Option explicit" en tête de module est requise sans modération... (à l'occasion et si tu as envie d'en savoir plus, je te conseille cet article "VBA et les variables". Il demande certainement à être réactualisé, mais son contenu reste toujours valable à mon avis). J'ai d'ailleurs modifié légèrement ta procédure de Tri en conséquence.

 

En espérant que ça puisse t'inspirer pour la suite de ton projet...

 

Bien cordialement,

 

Pièce jointe:
zip PourTheo44 - P1.zip   [ Taille: 37.91 Ko - Téléchargements: 99 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

1 2 3 4 ... 146 »