Fonction recherche et nombre de cellule non vide

Bonsoir à tous,

Je résolu hier un problème grâce à l'aide de quelques uns d'entre vous mais je cherche maintenant à améliorer voire simplifier mon tableau.

Je faisais un filtre (plus bas) dans une feuille "effectifactif" sur un mot précis "ANNECY-ROMAINS" et je copiais la ligne vers une feuille "Annecy".

Parfait

à l'aide d'une formule: =NBVAL(Annecy!C4:C350) je faisais ensuite le comptage de cellule non vide pour remplir une cellule dans une autre feuille.

Encore parfait mais lourd.

Ne serait-il pas possible de créer une fonction (Macro?) avec un mix des deux (recherche et comptage) qui m'éviterait de passer par une phase de copie vers une feuille intermédiaire?

Sub Filtre()

Dim Nblg As Long

With Sheets("effectifactif")

Nblg = .Range("X" & Rows.Count).End(xlUp).Row

.Range("AW2").Formula = "=X5=""ANNECY-ROMAINS"""

.Range("A4:AU" & Nblg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("AW1:AW2"), copytorange:=Sheets("Annecy").Range("A3:AU3")

.Range("AW1:AW2").ClearContents

End With

End Sub

Merci,

Phil

Bonjour

Joins un fichier avec un exemple de ce que tu as au départ et ce que tu veux obtenir.

Bye !