double fonction recherche excel VBA

Version imprimable

bonjour,

lorsque j'utilise la fonction recherche excel me dit qu'il y a une erreur dans

Code:

1
2
 
  Loop While Not cc Is Nothing And cc.Address <> firstAddress

car cc est vide

mais je comprend pas d'ou vient cette erreur
est ce qu'on ne peut pas faire deux recherches car j'ai deja

Code:

1
2
3
 
  Set aa = .FindNext(aa)
Loop While Not aa Is Nothing And aa.Address <> afirstAddress

qui se passe sans soucis !

le code de la procédure est

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
            Workbooks("coordonnees.xls").Sheets("recherche").Activate
            Range("C2").Select
            Do While Not IsEmpty(ActiveCell)
 
                 nom = ActiveCell.Value
                 prenom = ActiveCell.Offset(0, 1).Value
 
                Workbooks("coordonnees.xls").Sheets("contact").Activate
                With Worksheets("contact").Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
 
                    Set cc = .Find(nom, LookIn:=xlValues, lookat:=xlWhole)
                    If Not cc Is Nothing Then
                        firstAddress = cc.Address
                        Do
 
 
                           If cc.Offset(0, 1) = prenom Then
                              Workbooks("coordonnees.xls").Sheets("recherche").Activate
                              With Worksheets("recherche").Range("c1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
                                    Set aa = .Find(nom, LookIn:=xlValues, lookat:=xlWhole)
                                    If Not aa Is Nothing Then
                                       afirstAddress = aa.Address
                                        Do
 
                                          If aa.Offset(0, 1) = prenom Then
                                             aa.Offset(0, 3).Value = cc.Offset(0, 4).Value
                                          End If
 
                                          Set aa = .FindNext(aa)
                                        Loop While Not aa Is Nothing And aa.Address <> afirstAddress
 
                                    End If
 
 
                              End With
                               Set aa = Nothing
 
                           End If
 
                           Set cc = .FindNext(cc)
 
                        Loop While Not cc Is Nothing And cc.Address <> firstAddress
 
                    End If
 
                End With
 
                Set cc = Nothing

est ce le 'end with ' annule tous les ' with 'precedents?

merci de votre aide

11/04/2010, 09h03
Pierre Fauconnier

Bonjour

Tu as un problème d'imbrication de tes .find, à mon avis.

Code:

Set cc = .FindNext(cc)

après

Code:

Set aa = .Find(nom, LookIn:=xlValues, lookat:=xlWhole)

amène à rechercher la prochaine occurrence de cc sur la plage définir pour la recherche de aa...

Pourrais-tu expliquer ce que tu souhaites réaliser?
11/04/2010, 13h43
moimemessssssssss

Bonjour,

en fait , je prend les couples nom/prenom de l'onglet "recherche" et je les
recherche dans l'onglet "contact" afin d'avoir l'adresse de la personne concernée.
Les nom/prenom ne sont présent qu'une seule fois dans l'onglet "contact" ( pas d'homonyme) alors qu'ils peuvent etre present plusieurs fois dans l'onglet 'recherche'.
c'est pourquoi j'utilise une deuxieme fonction recherche afin de faire correspondre les nom/prenom avec l'adresse a chaque fois que cela est nécessaire dans l'onglet "recherche"

mais j'ai le probleme sur lafonction .find.

merci de votre aide