Excel VBA : Comparaison chaines de caracteres
Résolu
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 ?
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
-
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 -
Merci de vos réponses :)
