Macro-Recherche cellule

[Chris.p64200]

Bonjour,

Tout d'abord, voici mon programme :

For i = 4 To 135
Sheets("BDD").Select
Cells.Find(What:=Worksheets("Suivi").Cells(i, 2), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


ActiveCell.Offset(0, 38).Select
Selection.Copy
Worksheets("Suivi").Activate
Cells(i, 4).Select
ActiveSheet.Paste
Next


Explcation :

Je cherche des valeurs sur "BDD" provenant de "Suivi", ma recherche sur les cellules fonctionne jusqu'à ce qu'une valeur de "Suivi" n'existe pas dans "BDD", et là, ça bloque. J'aimerai ignorer le fait que la valeur n'existe pas et continuer à faire les recherches jusqu'au bout. Je pensais utiliser une boucle if...

 

[Gelinotte]

Re : Macro-Recherche cellule

Bonjour,

À tester :
Juste devant le code fourni, ajoute : On error resume next.
Ce qui veut dire, s'il y a une erreur, continue.


Geli

 

[Chris.p64200]

Re : Macro-Recherche cellule

C'est parfait

ca fonctinne, merci beaucoup.

 

[Gelinotte]

Re : Macro-Recherche cellule

Bonjour,

Good ....


Geli