Discussion :

[MamaB]

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 :

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

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

[MamaB]

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

Code :

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

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

[Menhir]

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

C'est quoi "donnee1" ?

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.

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 :

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

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

[MamaB]

Merci Menhir
Cela fonction parfaitement.
Bien cordialement.
MamaB