Bonjour,

Je cherche à tester un cells.find et s'il ne trouve pas la valeur qu'il arrête ma boucle.

J'ai testé le code suivant mais sans réussite, la boucle étant arrêtée car il ne trouve pas de correspondance alors que la donnée cherchée existe bien :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim lignePA1 As Integer
Dim PA1 As String
 
For i = 1 To 3
    PA1 = Sheets("TR").Cells(lignePA, 2).Value
    If Cells.Find(PA1) Is Nothing Then
        Exit For
    Else
Si vous avez une idée, je suis à l'écoute.

Merci.

Rémi