Fonction NB.SI VBA

Bonjour à tous !

Petit soucis avec la fonction NB.SI

Code:

---

1 2 3 4 5

With Sheets("Synthese") .Range("E4").Select Selection.NumberFormat = "0"" PDV en progression""" ActiveCell.Formula = "=NB.SI(PLAGE;">2")"

---

J'automatise la création de tableaux de synthèses, la plage n'est pas la même pour chaque fichier, ce que je voudrais en fait, c'est que le comptage commence à la ligne H3 (bon ça ok j'y arrive sans problème) MAIS que ça se termine à la dernière ligne renseignée ; c'est possible de "dire" ça à la fonction NB.SI ?

Merci par avance pour l'aide que vous pourrez m'apporter !!!

Bonjour,
Tu peux utiliser ce code.

Code:

---

1 2	x = Range("H"& Rows.count).End(x1Up).Row Application.WorksheetFunction.CountIf(Range("H3:H" & x), toncritère)

---

Bonjour,
Cette ligne ActiveCell.Formula = "=NB.SI(PLAGE;">2")" renverra une erreur car la propriété Formula attend une chaîne de caractères contenant une formule en anglais soit COUNTIF
Pour en savoir plus, tu peux lire Ecrire une formule dans Excel à l'aide d'une procédure VBA

Philippe est ce que mon code pourrait lui convenir?

Bonjour Kiouane, bonjour Philippe,

Tout d'abord, je vous remercie à tous les deux pour vos réponses ! J'ai pris connaissance du lien que tu as envoyé Philippe, du coup tu m'apprends quelque chose ; utiliser le nom en Anglais, merci :)

Kiouane, je vais essayer ton code et je te tiens au courant du résultat, merci pour le partage !! :)

EDIT : j'ai oublié de préciser que le résultat, je souhaite le placer dans une autre feuille intitulée "synthese", par contre le calcule se fait sur la feuille "telephonie"

J'ai essayé sur un autre fichier excel pour essayer :

Pièce jointe 209606

Bonjour mateoa44,

essaye ça pour voir :

Code:

---

1 2 3 4 5 6 7 8

Sub fonction()   With Sheets(2) .Range("E4").NumberFormat = "0"" PDV en progression""" .Range("E4") = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A" & Sheets(1).Range("A1").End(xlDown).Row), ">2") End With   End Sub

---

;)

Citation:

---

Envoyé par mateoa44

Bonjour Kiouane, bonjour Philippe,

Tout d'abord, je vous remercie à tous les deux pour vos réponses ! J'ai pris connaissance du lien que tu as envoyé Philippe, du coup tu m'apprends quelque chose ; utiliser le nom en Anglais, merci :)

Kiouane, je vais essayer ton code et je te tiens au courant du résultat, merci pour le partage !! :)

EDIT : j'ai oublié de préciser que le résultat, je souhaite le placer dans une autre feuille intitulée "synthese", par contre le calcule se fait sur la feuille "telephonie"

J'ai essayé sur un autre fichier excel pour essayer :

Pièce jointe 209606

---

Tu dois affecter ton application.function à une cellule par exemple. C'est pour cela que tu reçois cette erreur.

Edit : Pour la syntaxe de ta plage, ça devrait plutôt être sous forme d'un Range.

Bonjour Al__22, merci pour ta réponse !!! Sur mon fichier test ça marche parfaitement, du coup, baaah, merci beaucoup haha :)

@Kilouane :

Code:

---

Application.WorksheetFunction.CountIf(Range("H3:H" & x), ">2")

---

Je ne sais pas comment ajouter la feuille dans ce code, j'ai essayé plusieurs choses mais qui provoquent des erreurs à chaque fois !

Sinon si tu veux rester sur ta formule de base, remplace le Formula par FormulaLocal.

Comme le stipule le lien donné par Philippe, .formula attendra TOUJOURS une formule Excel en ANGLAIS.
Alors que FormulaLocal dépend de ton installation, si ton installation est en français ce qui semble être vu que tu utilise NB.SI alors il faut utilisé la méthode FormulaLocal et non Formula.

DeathZarakai

EDIT : range() -> Worksheets("nom de ta feuille").Range()

Pour te dépanner mais il y aura sûrement mieux à faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub fonction()     Sheets(1).Activate x = Range("C" & Rows.Count).End(xlUp).Row Cells(1, 1).Value = Application.WorksheetFunction.CountIf(Range("H3:H" & x), ">2")   Sheets(2).Activate Range("E5").NumberFormat = "0"" PDV en progression""" Cells(5, 5).Value = Sheets(1).Cells(1, 1).Value     End Sub

---

Je vous remercie à tous pour vos réponses !

J'ai gardé la solution de Al__22 qui fonctionne !

Code:

---

1 2	.Range("E4").NumberFormat = "0"" PDV en progression""" .Range("E4") = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("I4:I" & Sheets("Telephonie").Range("I4").End(xlDown).Row), ">2")

---

EDIT : il est vrai que j'aurais pu, mais comme je suis en stage, je ne sais pas qui va utiliser le code après, donc autant laisser en anglais !! (au cas où ^^)

Heureux si ça t'a aidé :mrgreen:
Après si tu le souhaites plutôt que de mettre le n° d'index des feuilles tu peux mettre leur noms :
sheets(1) = sheets("Téléphonie") etc
le 1 signifie que ta feuille est en position 1 par rapport aux autres donc si jamais tu la bouge de place cela foire tes calculs donc à toi de voir ce que tu préfères ;)

Et pour plus de flexibilité je te le remets avec les noms des feuilles et des explications :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub fonction()   With Sheets("Synthèse") 'Tout ce qui suit avec un "." au début appartient à la feuille Synthèse .Range("E4").NumberFormat = "0"" PDV en progression""" 'ta mise en format perso .Range("E4") = Application.WorksheetFunction.CountIf(Sheets("Téléphonie").Range("A1:A" & Sheets("Téléphonie").Range("A1").End(xlDown).Row), ">2") 'tu dis à VBA de mettre dans la cellule E4 le résultat de ton countif 'Sheets("Téléphonie").Range("A1").End(xlDown).Row : renvoie la dernière ligne avec une valeur dans la colonne A   End With   End Sub

---

Bon courage pour la suite

Je te remercie pour le partage et les explications ! ^^
J'avais déjà modifié (1) par "Telephonie" :D

J'aurais tout de même une dernière question sur le count if !!

Je fais face à un nouveau problème !!

J'aimerais que .Range("E12") prenne la valeur de cette formule.. mais avec ta technique, je m'emmêle les pinceaux !

Code:

---

=(NB.SI(P5:P36;"=100%")/NB.SI(O5:O36;">0"))

---

C'est le même principe que :

Code:

---

.Range("E8") = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("L4:L" & Sheets("Telephonie").Range("L4").End(xlDown).Row), ">2")

---

sauf que cette fois il y a une division par un autre countif haha

Tu as une idée de comment faire ? ^^'

Bonjour mateoa,

Pour plus de lisibilité tu peux mettre en variable string tes deux valeurs puis dire de mettre le résultat dans la cellule de ton choix, par exemple :

Code:

---

1 2 3

cif1 = Application.WorksheetFunction.CountIf(Sheets("Ta feuille avec les données").Range("Ton range"), "Ta condition") cif2 = Application.WorksheetFunction.CountIf(Sheets("Ta feuille avec les données").Range("Ton range"), "Ta condition") Sheets("Ta feuille finale").Range("Ta cellule finale").Value = cif1/cif2

---

A toi d'adapter après avec les valeurs dont tu as besoins ;)

Citation:

---

Envoyé par Al__22

Bonjour mateoa,

Pour plus de lisibilité tu peux mettre en variable string tes deux valeurs puis dire de mettre le résultat dans la cellule de ton choix, par exemple :

Code:

---

1 2 3

cif1 = Application.WorksheetFunction.CountIf(Sheets("Ta feuille avec les données").Range("Ton range"), "Ta condition") cif2 = Application.WorksheetFunction.CountIf(Sheets("Ta feuille avec les données").Range("Ton range"), "Ta condition") Sheets("Ta feuille finale").Range("Ta cellule finale").Value = cif1/cif2

---

A toi d'adapter après avec les valeurs dont tu as besoins ;)

---

Attention, ta méthode est la bonne mais tu oublies un détail :

Code:

---

1 2 3 4 5

If cif2 <> 0 then Sheets("Ta feuille finale").Range("Ta cellule finale").Value = cif1/cif2 Else Sheets("Ta feuille finale").Range("Ta cellule finale").Value = 0 'A changer si tu veux autre chose End If

---

Par sécurité c'est mieux ça évite les erreurs, autant la formule Excel mettrait un #N/A autant la macro elle plantera. Enfin de toute façon c'est plus propre.

DeathZarakai.

Bonjour à vous deux !

Je vous remercie pour vos réponses !

Je me repenche sur le problème cet après-midi, je vous tiendrais au courant !

Citation:

---

Envoyé par DeathZarakai

Attention, ta méthode est la bonne mais tu oublies un détail :

Code:

---

1 2 3 4 5

If cif2 <> 0 then Sheets("Ta feuille finale").Range("Ta cellule finale").Value = cif1/cif2 Else Sheets("Ta feuille finale").Range("Ta cellule finale").Value = 0 'A changer si tu veux autre chose End If

---

Par sécurité c'est mieux ça évite les erreurs, autant la formule Excel mettrait un #N/A autant la macro elle plantera. Enfin de toute façon c'est plus propre.

DeathZarakai.

---

En effet mais je partais du principe que son cif2 ne serait jamais égale à 0
Mais tu as raison il vaut mieux le préciser :mrgreen:

PS : il me semble par ailleurs l'erreur que mettrait excel est #DIV/0! non ?

Citation:

---

Envoyé par Al__22

PS : il me semble par ailleurs l'erreur que mettrait excel est #DIV/0! non ?

---

Après test en effet, mais étant matheux c'est un truc que je check toujours direct, donc j'avais jamais eu le cas :p

Bonjour,

je pense plutôt que la procédure va planter avec l'erreur "Division par 0" si cif2 = 0 et pas cif1 ?
on aura un dépassement de capacité si les 2 ont une valeur à 0


ce n'est qu'un détail ... certes :aie:

Il a bien mis la condition pour le cif2 Joe!