C
CAROLE
Guest
bonjour a vous
mon probleme je n'arrive pas a faire un compteur en vb
en A5:A4000 jai des date en e5:e4000 Le compteur
je voudrai avoir un increment de 1 a chaque fois que la valeur de la date change en A
merci de votre aide
jai une methode mais le probleme elle marche avec la validation de la cellule donc ça marche pas
merci de votre aide
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A4000")) Is Nothing Then: GoTo LINE1
Target.Offset(0, 4) = Target.Offset(0, 4) + 1
LINE1:
End Sub
mon probleme je n'arrive pas a faire un compteur en vb
en A5:A4000 jai des date en e5:e4000 Le compteur
je voudrai avoir un increment de 1 a chaque fois que la valeur de la date change en A
merci de votre aide
jai une methode mais le probleme elle marche avec la validation de la cellule donc ça marche pas
merci de votre aide
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A4000")) Is Nothing Then: GoTo LINE1
Target.Offset(0, 4) = Target.Offset(0, 4) + 1
LINE1:
End Sub