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 ?

A voir également:

Excel VBA : Comparaison chaines de caracteres
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

3 réponses

Réponse 1 / 3

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
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

Réponse 2 / 3

Lupin
Modifié par Lupin le 26/10/2010 à 18:51

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

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 288
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

Réponse 3 / 3

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 :)

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters