comptage par macro d'une liste de clients

[saint_marc]

Bonjour à tous
debutant en macro,
je souhaiterais avoir une macro qui pour une liste de noms colonne A
en rentrant le nom cherché dans la cellule C1 me totalise les noms identiques de la colonne A
merci

 

[Robert]

Re : comptage par macro d'une liste de clients

Bonjour Saint Marc, bonjour le forum,

Essaie avec la procédure événementielle Change à placer dans le composant Worksheet de l'onglet concerné (Feuil1(Feuil1) par exemple):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub 'si l'adresse de la cellule modifiée est différente de C1, sort de la procédure
If Target.Value = "" Then Exit Sub 'si C1 est vide sort de la procéudure
'message affichant le nombre d'occurences ce C1 dans la colonne 1 (=A)
MsgBox Application.WorksheetFunction.CountIf(Columns(1), Range("C1").Value) & " fois " & Range("C1").Value
End Sub

Entre un nom en C1 et un message t'affichera combien de fois ce nom est contenu dans la colonne A.

 

[phlaurent55]

Re : comptage par macro d'une liste de clients

Bonjour Saint-Marc,

une solution par formule et par macro
voir fichier joint

à+
Philippe

Edit: Salut Robert

 

[saint_marc]

Re : comptage par macro d'une liste de clients

merci à vous deux
saint marc