Discussion :

[a.ouguerzam]

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.

[Sebphyto]

Bonjour,

Si cela peut t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.ouguerzam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"))

[a.ouguerzam]

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.

Test Bug.zip

[parmi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.ouguerzam]

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.

[parmi]

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...