Test d'un Cells.Find

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:

---

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

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:

---

1 2 3

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

---

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

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:

---

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 ?

Citation:

---

Envoyé par remi2305

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.

Citation:

---

Code:

---

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:

---

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

---