Excel VBA : Comparaison chaines de caracteres

Résolu/Fermé
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
- Modifié par Eaheru le 26/10/2010 à 15:30
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
- 28 oct. 2010 à 18:12
Bonjour,

Je souhaiterais pouvoir effectuer un test sur les cellules B et G de mes fichiers.
Ces 2 cellules contiennent des chaines de caractères et si les 2 chaines sont équivalentes, je dois arrêter ma boucle.


For Lig001 = 5 To DerLig001
If Cells(Lig001, 2) <> Cells(Lig001, 7) Then
Cells(Lig001, 20).Value = CDate(Cells(Lig001, 19).Value)

End If
Next Lig001

Mais le contrôle de différence tel que je l'ai écris ci dessus ne fonctionne pas.
Vous auriez une idée ?

3 réponses

Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
273
Modifié par Bidouilleu_R le 26/10/2010 à 15:43
il faut mettre exit for pour sortir de la boucle sinon tu continue la boucle
jusqu'à derlig001

For Lig001 = 5 To DerLig001
If Cells(Lig001, 2) <> Cells(Lig001, 7) Then
    Cells(Lig001, 20).Value = CDate(Cells(Lig001, 19).Value)

End If
Exit For
Next Lig001
0
Bonjour,

Petite correction :


For Lig001 = 5 To DerLig001
If Cells(Lig001, 2) <> Cells(Lig001, 7) Then
Cells(Lig001, 20).Value = CDate(Cells(Lig001, 19).Value)
Else
Exit For
End If
Next Lig001


Lupin
0
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
273
27 oct. 2010 à 10:32
Mais oui bien sur! il faut le ELSE, suis-je bête?
j'ai peur que la réponse soit : oui!
Merci Lupin
0
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
20
28 oct. 2010 à 18:12
Merci de vos réponses :)
0