compteur

CAROLE · 19 Septembre 2004

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 · 19 Septembre 2004

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 · 19 Septembre 2004

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 · 19 Septembre 2004

Pourquoi change tu de nom Marie-Carole?

michel

CAROLE · 19 Septembre 2004

je travail avec plusieurs personnes sur le fichier excel
lol

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

carole

Michel_M · 19 Septembre 2004

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

compteur

CAROLE

Guest

Lord Nelson

Guest

CAROLE

Guest

Michel_M

Guest

CAROLE

Guest

Michel_M

Guest

Discussions similaires