Excel VBA : Comparaison chaines de caracteresRésolu/Fermé

Question

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 ?

Bidouilleu_R · Answer

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

Lupin · Answer

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

Eaheru · Answer

Merci de vos réponses :)

Excel VBA : Comparaison chaines de caracteres

3 réponses

Newsletters