NB.SI.ENS en VBA

[JBARBE]

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 !

 

[job75]

Bonjour JBARBE,

Quel intérêt de transcrire une formule qui prendra beaucoup de temps puisque le problème est réglé ici :

https://www.excel-downloads.com/thr...i-sera-tres-important.20037877/#post-20270516

??? A+

 

[job75]

Mais en tout état de cause :

Sub VBA()
With Feuil3.[A1].CurrentRegion.Columns(3)
    If .Rows.Count > 1 Then .Offset(1).Resize(.Rows.Count - 1) = "=COUNTIFS(Feuil1!$A$3:$A$65000,Feuil3!A2,Feuil1!$F$3:$F$65000,1)"
End With
End Sub

 

[JBARBE]

Bonjour JBARBE,

Quel intérêt de transcrire une formule qui prendra beaucoup de temps puisque le problème est réglé ici :

https://www.excel-downloads.com/thr...i-sera-tres-important.20037877/#post-20270516

??? A+

Bonjour Job !
Je dois adapter ton code ( que je n'ai pas compris ) pour les colonnes G - H - I & M - N - O
Merci à l'avance !

 

[job75]

Très facile : il n'y a plus aucune formule

 

[jemacado]

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 ,
voir le fichier joint

cdlt
jemacado

 

[JBARBE]

Re,
Bon c'est OK Job !
J'ai compris en tapotant la macro et je te remercie de m'avoir laissé faire !