Excel VBA : Comparaison chaines de caracteres

Résolu
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -  
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
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 ?
A voir également:

3 réponses

Réponse 1 / 3
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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
Réponse 2 / 3
Lupin
 
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   Statut Membre Dernière intervention   295
 
Mais oui bien sur! il faut le ELSE, suis-je bête?
j'ai peur que la réponse soit : oui!
Merci Lupin
0
Réponse 3 / 3
Eaheru Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   20
 
Merci de vos réponses :)
0