Vba boucle

Fermé
marlene - 23 mars 2009 à 14:35
incaout Messages postés 347 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 15 novembre 2012 - 23 mars 2009 à 22:05
Bonjour,
Je fais une macro et je dois utiliser une boucle!!
Ma macro commence comme sa :
Dim i As Integer
Dim j As Integer
i = 1
j = 8
Range("A8").Select
While Cells(j, i) <> "Cheval"
i = i + 1
Wend

Or dans la cellule recherchée il n'y a pas que Cheval mais aussi son numéro de référence.

J'ai essayer de mettre des ** mais sa ne marche pas!!
Donc comment faire pour que la boucle s'arrêt à la cellule où une partie du texte est toujour la même?
Merci d'avance.

1 réponse

incaout Messages postés 347 Date d'inscription lundi 8 septembre 2008 Statut Membre Dernière intervention 15 novembre 2012 74
23 mars 2009 à 22:05
Bonsoir,

Vous pouvez pour chaque cellule lue, utiliser la fonction InStr(chaine1,chaine2) qui va rechercher si "cheval" est contenue dans la chaine lue. Si oui, elle renvoie la position de la chaine recherchée dans la chaine lue, si pas trouvée, renvoie 0.

Bon courage,

Cordialement,

IC
0