Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compteur pour toute une colonne

Anto20

XLDnaute Nouveau
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
 

Pièces jointes

  • Compteur.xls
    17.5 KB · Affichages: 56
  • Compteur.xls
    17.5 KB · Affichages: 54
  • Compteur.xls
    17.5 KB · Affichages: 53

Gael

XLDnaute Barbatruc
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:

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



@+

Gael
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
286
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…