Bonjour
j'ai un problème avec VBA.
j'ai en colonne AI et AJ des dates.
si AJ3 < AI3 alors je veux afficher sur en AK3 le texte "à contacter"
je veux faire ceci pour toutes les lignes de mon tableau qui sont renseignées.
Voilà ce que j'ai fait mais ça bug (fermeture inopinée d'excel)
Merci pour votre aide
Private Sub Worksheet_Change()
Dim NbLigne As Integer
NbLigne = Range("I65536").End(xlUp).Row
For I = 3 To NbLigne
If Not (IsEmpty(Range("A" & I))) And Range("AI" & I) < Range("AJ" & I) Then
Range("AK" & I).Value = "à contacter"
End If
Next
End Sub