Excel VBA : Comparaison chaines de caracteres [Résolu/Fermé]

Signaler
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
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

Messages postés
1184
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
249
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
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
Messages postés
1184
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
249
Mais oui bien sur! il faut le ELSE, suis-je bête?
j'ai peur que la réponse soit : oui!
Merci Lupin
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
19
Merci de vos réponses :)