La formule NB.SI.ENS Via VBA COUNTIFS

Bonjour,

J’enchaine ma problématique que j’ai déjà commencer avec un fichier qui me fait bcq de problème vu ça taille mais la problématique a expliqué vu que j’ai une feuille qui s’appelle SOURCE regroupe des donnes sur deux extraction avec des formules NB.Si.ENS
Ce que je cherche si de convertir la formule NB.SI.ENS VIA VBA quand j’ai cherché j’ai trouvé que il existe avec le nom COUNTIFS.
Sauf que j’ai pas compris comment le faire fonctionné sur une page VBA
Vu que sur la formule basic d’habitude je mets la plage du critère 1 ensuite le critère quel que soit la feuille ou il y a le critère ou la plage.
Quelqu’un peux m’aide à faire ma source SVP.


merci d'avance.

Bonjour,

Si cela peut t'aider

Code:

---

1 2 3 4 5 6 7

Sub test() Dim Critère As Long 'choisir le bon type Critère = 7 With Worksheets("sheet1") MsgBox Application.CountIf(.Range("A1:G25"), "=" & Critère) End With End Sub

---

Ce sujet également traite ta question
http://www.developpez.net/forums/d10...oite-dialogue/

A+
Seb

J’ai essayé mais j’arrive pas voilà par exemple la formule basic sur ma cellule comme le convertir en VBA

Code:

---

1 2	=NB.SI.ENS(Ishop!$AG:$AG;Source!$L$1;Ishop!$BG:$BG;Source!$D2;Ishop!$B:$B;Source!$C2)

---

sur cette forumule j'ai trois critires

Bonjour,

En reprenant le bout de code de SebPhyto, change la formule pour celle-ci.
Je n'ai pas testé, mais ça devrait être bon...

Code:

---

MsgBox Application.CountIfs(Sheets("Ishop").Columns("AG"),Sheets("Source").Range("$L$1"),Sheets("Ishop").Columns("BG"),Sheets("Source").Range("$D2"),Sheets("Ishop").Columns("B"),Sheets("Source").Range("$C2"))

---

oui effectiffement ca donne un message avec la resultats mais il pose pas le resultats sur la feuille Source
je partage avec vous le fichier la ou il ya les formules que je veux remplacer par le code VBA si vous avez la possibilté de test sur la 1er colonne de la feuile source en jeune

merci bcq de votre aide.

Pièce jointe 176942

Si tu veux inscrire la formule, essaie plutôt ainsi.
Tu peux choisir une ou l'autre des formules...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Formule() Dim nbLignes As Long   Sheets("Source").Activate nbLignes = Cells(Rows.Count, "A").End(xlUp).Row   Range("J2:J" & nbLignes).Formula = "=COUNTIFS(Ishop!$AG:$AG,Source!$L$1,Ishop!$BG:$BG,Source!$D2,Ishop!$B:$B,Source!$C2)" ' Range("J2:J" & nbLignes).Formula = "=IFERROR(COUNTIFS(Ishop!$AG:$AG,Source!$L$1,Ishop!$BG:$BG,Source!$D2,Ishop!$B:$B,Source!$C2),0)"   End Sub

---

ahhh oui j'ai compris ca marche
mais moi je veux pas de formule j'ai besoin juste des resultats directement sur la colonne selon les criteres indique sur le code VBA
si le but de change les formules par le code VBA pour que le fichier soit plus rapide
j'ai deja travaillé avec les formules qui fonts ramé mon fichier comme pas possible.

Après avoir inscrit ta formule comme mentionné, rien ne t'empêche de copier/coller cette ou ces colonnes en valeur par la suite...