Fonction Find dans Macros et VBA Excel

Bonjour,
J'ai une question sur la fonction Find:
j'ai un onglet "Périmètre" qui contient:

Col A	Col B	Col C
1.1	Test1	10.10
1.2	Test2	15.20

Dans un autre onglet "SYNTHESE", j'ai

Col A	Col B	Col C
1.1	Test1
1.1.2	Test2
1.2	Test2

Lorsque j'utilise la fonction Find
Le champ donnee2 contient "Test2" provient de l'onglet "Périmètre"

Code:

---

1 2 3 4

donnee2 = Fe.Cells(Ligne, "B").Value Set ca = Worksheets("SYNTHESE").Range("A2:B" & Tligne).Find(What:=donnee2, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) If Not ca Is Nothing Then therow = ca.Row

---

Le résultat au niveau du therow = 2 qui correspond à la 2 lignes de "SYNTHESE" et je veux therow = 3 en fonction de mon paramètre donnee1
question peux t'on ajouter un 2 critères dans un Find ou une autre solution pour régler mon problème?
Merci de votre collaboration pour résoudre mon problème.
Bien cordialement.
MamaB

Bonjour,
Erreur dans le code fourni, voici la bonne version:

Code:

---

1 2 3 4 5

donnee2 = Fe.Cells(Ligne, "B").Value Set ca = Worksheets("SYNTHESE").Range("B2:B" & Tligne).Find(What:=donnee2, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) If Not ca Is Nothing Then therow = ca.Row

---

Citation:

---

Envoyé par MamaB

je veux therow = 3 en fonction de mon paramètre donnee1

---

C'est quoi "donnee1" ?

Citation:

---

question peux t'on ajouter un 2 critères dans un Find

---

Non

Un If correspond à la commande "Recherche" de Excel : elle ne contient qu'un champ de recherche.

Citation:

---

une autre solution pour régler mon problème?

---

Faire une boucle qui teste ligne par ligne avec un If Then.

Méthode plus subtile : mettre le Find dans un boucle While.
Tester le résultat de la recherche en fonction des autres critères et, si ceux-ci ne conviennent par, poursuivre la recherche avec un FindNext dans la boucle.
Le mieux étant d'utiliser le paramètre de sortie de boucle du While pour tester les critères secondaires.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With Worksheets("SYNTHESE") donnee2 = Fe.Cells(Ligne, "B").Value Set ca = .Range("B2:B" & Tligne).Find(What:=donnee2, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) If Not ca Is Nothing Then therow = ca.Row Do Until .Cells(therow, "A") = Fe.Cells(Ligne, "A").Value Set ca = .Range("B2:B" & Tligne).FindNext If ca Is Nothing Then Exit Do therow = ca.Row Loop End If End With

---

Merci Menhir
Cela fonction parfaitement.
Bien cordialement.
MamaB