compteur

[CAROLE]

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

 

[Lord Nelson]

Salut Carole,

Tu peux essayer ceci :

Dim CL As Range, Compteur As Integer
For Each CL In Range("A5:A4000")
If CL <> CL.Offset(-1, 0) Then
Compteur = Compteur + 1
CL.Offset(0, 4) = Compteur
End If
Next

Est-ce que ça répond à ta question ?

A+
Horry

 

[CAROLE]

merci pour ta reponce mais cela ne correspond pas a ce que je v faire
ce que je cherche a faire
dans A je fait une mise a jour des date a l'aide dune macro

faire un increment +1 dans e a chaque fois que la valeur de la date change en A

carole

 

[Michel_M]

Pourquoi change tu de nom Marie-Carole?

michel

 

[CAROLE]

je travail avec plusieurs personnes sur le fichier excel
lol

pas trés facile a suivre pour le forum
mille escuse

carole

 

[Michel_M]

Et toutes utilisent ta boite aux lettres ?

Dans ta macro d'hier, il faut que sous les lignes où apparaissent ta feuilledst.range("A & ta variable de ligne)=date il faut que tu écrives:
ta feuilledst.range("D & ta variable de ligne)=range("D & ta variable de ligne)+1

Michel

Pour de prochaines demandes éventuelles, précise dès le départ tout ce que tu veux. 2 personnes ont perdu leur temps à vouloir t'aider...

Michel