Discussion :

[remi2305]

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

[Menhir]

Etant donné que ni ce que tu recherches ni la plage de recherche ne dépendent de la variable qui est modifiée par ta boucle (variable i), il est normal que s'il trouve quelque chose au premier passage, il le trouve aussi aux passages suivant.
A moins qu'il y ait quelque chose dans la suite de ton code qui modifie le contenu des cellules trouvées.

Il ne faut pas confondre Find et FindNext.

Autre remarque. Etant donné qu'en cas de recherche infructueuse, tu sors de la boucle, il est inutile de mettre un "Else".
Le "Else" et le "Exit For" sont redondants.
Il est plus simple d'écrire :

Code :

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

1
2
3
For i = 1 To 3
    PA1 = Sheets("TR").Cells(lignePA, 2).Value
    If Cells.Find(PA1) Is Nothing Then Exit For

[patricktoulon]

Bonjour
quand tu est dans l'éditeur vbe tape F1(aide vba) ou clique sur le point d'interrogation en haut a droite
tape dans le moteur de recherche de la fenêtre find ou findnext et tu a un exemple tout prêt il te reste a l'adapter a ton cas

[remi2305]

Bonjour et merci pour vos réponses,

J'ai déjà pu améliorer mon code grâce à ça.

J'ai retravaillé mon code également, pour faire le test sur deux cells.find(variable) .

Code :

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

1
2
3
4
5
6
7
8
9
For lignePA = 1 To 3
    PA1 = Sheets("TR").Cells(lignePA, 2).Value
    PA2 = Sheets("TR").Cells(lignePA + 1, 2).Value
    If Cells.Find(PA1) Or Cells.Find(PA2) Is Nothing Then
        Exit For
        Else
        lignePA1 = Cells.Find(PA1).Row
        lignePA2 = Cells.Find(PA2).Row
    End If

j'obtiens une incompatibilité de type (sachant que mes variables PA1 et PA2 sont définies en tant que String) alors que cela fonctionne quand je teste une seule variable à la fois.

Auriez vous une idée pour éviter cette erreur ?

[Menhir]

J'ai déjà pu améliorer mon code grâce à ça.

Vu que tu as laissé ton "Else", ça ne semble pas avoir été très utile de t'indiquer comment rendre ton code plus lisible.

Code :

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

If Cells.Find(PA1) Or Cells.Find(PA2) Is Nothing Then

Le problème, ce ne sont pas des variable, c'est cette ligne.
Tu additionnes des choux et des carottes.

Find renvoie une référence de cellule. On ne peut pas faire un calcul binaire (ce que fait l'opérateur Or) sur une référence de cellule. Il faut une valeur binaire.

Ton code marchera mieux (ou du moins ne renverra pas ce message d'erreur) ainsi :

Code :

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

1
2
3
4
5
6
7
8
For lignePA = 1 To 3
    PA1 = Sheets("TR").Cells(lignePA, 2).Value
    PA2 = Sheets("TR").Cells(lignePA + 1, 2).Value
 
    If Cells.Find(PA1) Is Nothing Or Cells.Find(PA2) Is Nothing Then Exit For
 
    lignePA1 = Cells.Find(PA1).Row
    lignePA2 = Cells.Find(PA2).Row