anass1
XLDnaute Junior
Bonsoir,
Svp, Je veux glisser la formule confits sur la colonne B
Merci
Svp, Je veux glisser la formule confits sur la colonne B
VB:
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