XL 2013 Glisser formule COUNTIFS VBA

[anass1]

Bonsoir,
Svp, Je veux glisser la formule confits sur la colonne B

Sub nbsi()
nl = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
x = Application.WorksheetFunction.CountIfs(Feuil1.Columns(2), "A", Feuil1.Columns(3), "y", Feuil1.Columns(1), Feuil2.Range("A2"))
Feuil2.Range("B2:B" & nl) = x
End Sub

Merci

 

[JHA]

Bonjour à tous,

Cela est très simple par TCD et offre toute une gamme de filtre.

JHA

 

[sylvanu]

Bonjour Anass, JHA,
Une autre approche : Transformez votre sub en function :

Function nbsi(MaDate)
nl = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
x = Application.WorksheetFunction.CountIfs(Feuil1.Columns(2), "A", Feuil1.Columns(3), "y", Feuil1.Columns(1), MaDate)
nbsi = x
End Function

et en Feuil2 B2 vous faites =nbsi(A2) puis vous tirez vers le bas.
C'est plus simple à mes yeux qu'une sub.

 

[anass1]

Bonjour sylvanu , JHA
Merci pour votre attention
En fait, je voulais le faire avec sub;
Parce que j'ai beaucoup de données renouvelables;
Je veux le faire automatiquement en choisir Feuille, période et en appuyant sur commandbutton .
merci

 

[sylvanu]

Bonjour Anass,
Le même avec un bouton.

 

[anass1]

Merci bcp bcp sylvanu
Bonne journée