Discussion :

[kabol69]

Bonjour,

Bizarrement en cherchant sur le forum, l'aide VB et le web de l'information sur les constantes XlLookAt et XlFindLookIn est plutôt mince.

L'information la plus precise que j'ai pu trouver concerne un extrait du man de la methode "find", mais malheuresement rien de bien precis.

LookIn Argument de type Variant facultatif. Il peut s'agir de l'une des constantes XlFindLookIn suivantes : xlFormulas, xlValues ou xlComments.

LookAt Argument de type Variant facultatif. Il peut s'agir de l'une des constantes XlLookAt suivantes : xlPart ou xlWhole.

Est ce que qqun serait expliquer, éventuellement avec un exemple simple, l'interet et l'utilisation de ces constantes?

Merci d'avance pour toute explication,

[Daniel.C]

Bonjour,

Mets en A1 03/10/2011 (c'est la date d'aujourd'hui).
Mets en A2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=40000+819

Mets "commentaire" dans le commentaire de A3.
Fais maintenant un recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
    dim Dat as Date, c as Range
    dat = #10/3/2011#
    Set c = [A1:A3].Find(dat, , xlValues)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlvalues)"
        Set c = [A1:A3].FindNext(c)
        If Not c Is Nothing Then
            MsgBox "Trouvé en " & c.Address & " (xlvalues)"
        End If
    End If
    Set c = [A1:A3].Find(40000, , xlFormulas)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlformulas)"
        Set c = [A1:A3].FindNext(c)
        If Not c Is Nothing And c.Address <> "$A$1" Then
            MsgBox "Trouvé en " & c.Address & " (xlformulas)"
        End If
    End If
    Set c = [A1:A3].Find("commentaire", , xlComments)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (commentaires)"
    End If
End Sub

La première recherche se fait sur la valeur de la cellule, la seconde sur la formule (une partie) et la troisième sur le commentaire.

La recherche suivante va se faire sur une partie du même commentaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test1()
    Set c = [A1:A3].Find("comment", , xlComments, xlPart)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlpart)"
    End If
    Set c = [A1:A3].Find("comment", , xlComments, xlWhole)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlwhole)"
    Else
        MsgBox "Non trouvé (xlwhole)"
    End If
End Sub

On voit que "xlpart" permet de chercher une partie du commentaire alors qu'on doit mettre la totalité de la valeur si on utilise "xlwhole" . Note que la méthode Find est assez vicieuse; si tu précises "xlwhole" pour une recherche et que ne précises rien pour la seconde recherche, VBA, comme Excel conserve le paramètre précédemment défini. D'où l'intérêt de définir à chaque fois tous les paramètres.

[kabol69]

Bonjour Daniel,

Tout d'abord merci pour le temps que tu as consacré à me répondre.

J'aurai cependant quelques questions relatives à ton code, car chez moi il affiche une message box disant:

"Trouvé en $A$1 (xlvalues)" -> puis click sur OK

"Trouvé en $A$1 (xlvalues)" -> puis click sur OK -> fin macro

Les parties xlformulas et xlcomments ne sont pas testées.

Donc dans ton code quand tu marques:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
       MsgBox "Trouvé en " & c.Address & " (xlvalues)"

-> Souhaites tu afficher le contenu de xlvalues?

Par ailleurs il y a un truc que je ne pige pas sur la méthode FindNext car je me suis amusé à copier le contenu de A1 dans A2 pour voir si j'allais avoir un autre output apres avoir clické une première fois sur OK de la boite de message, mais bizarrement j'ai le même résultat.

Merci d'avance pour ton éclaircissement,

[Daniel.C]

Effectivement, je n'ai pas été suffisamment explicite. Quand j'ai dit qu'en A2 il fallait mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=40000+819

j'ai omis de dire qu'il fallait mettre la date au format Date. et qu'en cherchant avec "xlvalues", on ne trouvait que la cellule A1 et la cellule A2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "Trouvé en " & c.Address & " (xlvalues)"

Je veux (simplement ?) indiquer que la recherche a été faite avec "xlvalues". La cellule trouvée est représentée par la variable c définie par la méthode Find.

Les parties xlformulas et xlcomments ne sont pas testées.

Si, mais sans doute pas de façon explicite. Regarde ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
    Dim Dat As Date, c As Range
    Dat = #10/3/2011#
    MsgBox "Recherche du 03/10/2011 dans les valeurs (xlvalues)"
    Set c = [A1:A3].Find(Dat, , xlValues)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlvalues)"
        Set c = [A1:A3].FindNext(c)
        If Not c Is Nothing Then
            MsgBox "Trouvé en " & c.Address & " (xlvalues)"
        End If
    End If
    MsgBox "Recherche de 40000 dans les formules"
    Set c = [A1:A3].Find(40000, , xlFormulas)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (xlformulas)"
    End If
    MsgBox "Recherche de ""comment"" dans les commentaires"
    Set c = [A1:A3].Find("comment", , xlComments)
    If Not c Is Nothing Then
        MsgBox "Trouvé en " & c.Address & " (commentaires)"
    End If
End Sub

"FindNext" fonctiionne un peu comme le bouton "Suivant" de la commande "Recherche" d'Excel. La variable c représente la dernière cellule trouvée. La cellule suivante est conditionnée par les mots-clé "xlNext" ou "xlPrevious" et "xlByRows" ou xlBycolumns".

[kabol69]

Bonsoir Daniel,

Excuse moi j'ai une journée de travail extrêmement chargé, je ne me libère que maintenant.

Pour ce qui est du format des cellules, j'avais bien pensé à les adapter.
Maintenant, je ne sais pas si c'est la fatigue, mais chez moi on ne rentre que dans le premier "if".
Donc concretement, les 2 fenetres suivantes ne s'affichent pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MsgBox "Trouvé en " & c.Address & " (xlformulas)"
MsgBox "Trouvé en " & c.Address & " (commentaires)"

Par ailleurs, peux tu me confirmer que quand tu appelles la méthode find de la façon suivante: Find(Dat, , xlValues) cela est equivalent à Find(what:=Dat,LookIn:=xlValues) ?

De plus si je comprends bien si on avait rajouter le paramètre LookAt:=xlPart à la méthode Find, alors la recherche suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
[A1:A3].Find(what:="2011", LookIn:=xlValues, LookAt:=xlPart)

-> aurait donné quelque chose car 2011 fait partie du champs 10/3/2011, alors que:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
[A1:A3].Find(what:="2011", LookIn:=xlValues, LookAt:=xlWhole)

->n'aurait rien donné

Merci d'avance pour tes explications,

[Daniel.C]

Bonjour,

Par ailleurs, peux tu me confirmer que quand tu appelles la méthode find de la façon suivante: Find(Dat, , xlValues) cela est equivalent à Find(what:=Dat,LookIn:=xlValues)

Oui; soit, tu rentres le paramètre et le mot-clé correspondant, soit tu entres le mot-clé sans le paramètre, mais alors tu dois le mettre à sa place en intercalant le nombre de virgules nécessaires.

De plus si je comprends bien si on avait rajouter le paramètre LookAt:=xlPart à la méthode Find, alors la recherche suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[A1:A3].Find(what:="2011", LookIn:=xlValues, LookAt:=xlPart)

-> aurait donné quelque chose car 2011 fait partie du champs 10/3/2011, alors que:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[A1:A3].Find(what:="2011", LookIn:=xlValues, LookAt:=xlWhole)

->n'aurait rien donné

Exact.