Compteur pour toute une colonne

[Anto20]

Bonjour,

j'ai une formule pour un compteur qui marche très bien pour une cellule et je voudrais l'adapter à une colonne, je m'explique.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range
Dim test As Boolean

On Error GoTo fin

If Target.Value = "" Or test = True Then test = False: Exit Sub
If Application.Intersect(Target, Range("F2")) Is Nothing Then Exit Sub
Range("P2") = Range("P2") + 1
fin:
End Sub

Chaque fois que je modifie la cellule A1 la cellule B1 compte +1

ce que je voudrais arriver à faire c'est :

quand A1 modifié B1+1
quand A2 modifié B2+1
quand A3 modifié B3+1
etc... jusqu'à A65536...

je joint un fichier

en vous remerciant par avance

 

[Gael]

Re : Compteur pour toute une colonne

Bonjour Anto20,

Tu modifies simplement le range pour qu'il fasse référence à toute la colonne et mets une ligne variable pour le compteur:

...
If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cells(Target.Row, 2) = Cells(Target.Row, 2) + 1
...

@+

Gael

 

[Anto20]

Re : Compteur pour toute une colonne

Bonjour Gaël,

impeccable je te remercie ça marche nickel

@++