NB.SI.ENS en VBA

Bonjour à tous,

J'ai un problème avec NB.SI.ENS que je ne sais traduire en VBA !

Voici la formule :

=NB.SI.ENS(Feuil1!$A$3:$A$65000;Feuil3!A2;Feuil1!$F$3:$F$65000;1)

Merci et bonne journée !

Bonjour,

Essaye ce code :

Sheets("Feuil3").Range("C2:C135").FormulaLocal = "=COUNTIFS(Feuil1!$A$3:$A$65000;Feuil3!A2;Feuil1!$F$3:$F$65000;1)"

Re,

Je ne veux pas une formule mais du code VBA !

Merci pour ta réponse !

Re,

C'est bien un code VBA !!!!

Re,

Oui mais il y a une formule laissée dans les cellules !

Bonne journée

Re,

Bon, manquait de précisions. Essaye comme ça :

Sub countifs()
    Sheets("Feuil3").Range("C2:C135").FormulaLocal = "=COUNTIFS(Feuil1!$A$3:$A$65000;Feuil3!A2;Feuil1!$F$3:$F$65000;1)"
    Sheets("Feuil3").Range("C2:C135").Copy
    Sheets("Feuil3").Range("C2:C135").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = xlCopy
End Sub

Salut jbchb, le fil

C'est peut être un truc dans ce genre même si je ne vois pas l'intérêt...

Sub test()

    Dim Rs As Range, Rc As Range, c As Range, FinRs As Long, FinRc As Long

    FinRs = Worksheets("Feuil1").Range("A" & Application.Rows.Count).End(xlUp).Row
    FinRc = Worksheets("Feuil3").Range("A" & Application.Rows.Count).End(xlUp).Row
    Set Rs = Worksheets("Feuil1").Range("A2:A" & FinRs)

    For Each c In Worksheets("Feuil3").Range("D2:D" & FinRc)
        c.Value = Application.WorksheetFunction.CountIfs(Rs, c.Offset(0, -3), Rs.Offset(0, 5), 1)
    Next
End Sub

Bonne prog.