Macro somme par filtre

[kikim]

Bonjour Forum

J'aimerai bien réaliser une macro de façon d'avoir le nombre de lignes par personne, avec resultat affiché dans nouvelle feuille "statis"

Merci d'avance

 

[pierrejean]

Re : Macro somme par filtre

bonjour kikim

Vois si cela te convient

 

[kikim]

Re : Macro somme par filtre

Merci pierrejean

c'est bien ce que je cherche sauf que,
il suffit de supprimer un nom où bien tout simplement cliquer encors une fois sur le bouton compter est le calcul devient faux !

Le prob est où ?

 

[Dull]

Re : Macro somme par filtre

Salut kikim, Pierre🙂, le Forum

Sur une Idée de JB

Je regardes ton Fichier Pierrejean

Bonne Journée

 

[pierrejean]

Re : Macro somme par filtre

Re

Le probleme est que j'avais omis la remise a zero prealable

Vois si cela va mieux

Salut Dull 🙂
Je regarde egalement

 

[kikim]

Re : Macro somme par filtre

Re
Sincere remerciements c'est extra est tres utile !!!!!!
Cordialement

 

[kikim]

Re Forum

Est il possible de modifier la macro de façon qu'elle prenne en charge les feuilles 2 et 3 aussi ?

Merci d'avance

 

[Dull]

Re : Macro somme par filtre

Salut kikim, Pierrejean 🙂, le Forum

Le code de L'ami Pierrejean modifié

Sub test()
Sheets("statis").Range("A5:B65536").ClearContents
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "statis" Then
For n = 5 To Ws.Range("U65536").End(xlUp).Row
Set c = Sheets("statis").Columns(1).Find(Sheets("Feuil1").Range("U" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  c.Offset(0, 1) = c.Offset(0, 1) + 1
Else
  Sheets("statis").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("U" & n)
  Sheets("statis").Range("A65536").End(xlUp).Offset(0, 1) = 1
End If
Next n
End If
Next Ws
End Sub

Bonne Journée