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 ?
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
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
