Fonction NB.SI VBA

Citation:

---

Envoyé par DeathZarakai

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

---

Quelle horreur comment peut on aimer les maths ? :aie:

Bon sinon en 3 lignes avec les modifs ça donnerait :

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

---

Citation:

---

Envoyé par Kiouane

Il a bien mis la condition pour le cif2 Joe!

---

Je rebondissais uniquement sur le message qui indiquait que le renvoie de valeur allait générer un #DIV/0 si la formule était appliquée depuis Excel, en complétant sur les erreurs de procédures qui allaient tomber côté VBA

Je ne me suis toujours pas remis sur l'automatisation, je remplie un peu mon rapport de stage hehe !!

Merci beaucoup à vous tous pour votre participation, je regarde tout ça demain finalement !!! Je vous tiens au courant, c'est promis !

Citation:

---

Envoyé par Al__22

Quelle horreur comment peut on aimer les maths ? :aie:

Bon sinon en 3 lignes avec les modifs ça donnerait :

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

---

---

Alors, j'ai fais comme vous m'avez suggéré :

Code:

---

1 2 3 4 5 6

Dim nbsi1 As String, nbsi2 As String With Sheets("Synthese") .Range("E12").NumberFormat = "0"" des PDV avec demandes de rappel respectent l'engagement""" nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & Sheets("Telephonie").Range("P4").End(xlDown).Row), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & Sheets("Telephonie").Range("O4").End(xlDown).Row), ">0") If nbsi2 <> 0 Then .Range("E12").Value = (nbsi1 / nbsi2) * 100 Else .Range("E12").Value = 0

---

Il me met un résultat de 0.25 soit 25%
Or, lorsque je fais le calcul à la main : nbsi1 = 9 et nbsi2 = 14 ==> 9/14 = 0.65 le résultat devrait donc être de 65% ^^
Vous avez une idée ? ^^

EDIT :

Je pense qu'au lieu de faire 9/14 il fait 1/4 ==> en effet, dans les deux colonnes (P et O) il y a des cases vides, pour P, il y a 100% puis des cases vides puis d'autres 100%, je pense qu'il prend seulement le premier 100,et pour la colonne O, il prend toutes les valeurs >0 avant la première case vide

Tu peux mettre en pièce jointe ton fichier? Je voudrais essayer de comprendre l'erreur.

Baaaah, j'peux pas :x

C'est considéré comme confidentiel ...

Je peux te montrer ceci au maximum ..
Pièce jointe 210010

la valeur du nb.si (sur la colonneP) / nb.si (sur la colonne O) * 100 doit être mise dans une autre feuille sur E12

Cherche pas c'est parce qu'il y a des trous :mrgreen:
Du coup le end(xldown) ne peux pas fonctionner il s’arrête au premier trou

Essaye en remplaçant dans ton code les :

Code:

---

1 2	nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & Sheets("Telephonie").Range("P4").End(xlDown).Row), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & Sheets("Telephonie").Range("O4").End(xlDown).Row), ">0")

---

Par, pour exemple :

Code:

---

1 2	nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P10000"), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O100000"), ">0")

---

Comment tu délimites ta plage de données? Est ce que la dernière ligne peut contenir une case vide? Si oui est ce que tu peux me dire si le tableau contient d'autres colonnes où les données sont remplies pour toutes les lignes jusqu'à la dernière.

C'est ce que j'avais cru comprendre oui ^^
Pas moyen de régler ça ?
avec un truc dans le genre ?

Code:

---

1 2 3 4

dim dern as long 'dernière ligne dim cpt as long 'compteur dern = Range("B1000000").End(xlUp).row for cpt = 4 to dern

---

Je ne sais pas comment adapter ceci aux formules des nbsi1 et nbsi2

Citation:

---

Envoyé par Kiouane

Comment tu délimites ta plage de données? Est ce que la dernière ligne peut contenir une case vide? Si oui est ce que tu peux me dire si le tableau contient d'autres colonnes où les données sont remplies pour toutes les lignes jusqu'à la dernière.

---

Le tableau contient d'autres colonnes oui, mais toutes les colonnes ne contiennent pas de cases vide, par exemple la colonne B ne contiendra JAMAIS de cases vides

EDIT : Problème résolue il me semble !

Code:

---

1 2 3

nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & Sheets("Telephonie").Range("B1000000").End(xlUp).Row), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & Sheets("Telephonie").Range("B1000000").End(xlUp).Row), ">0") If nbsi2 <> 0 And nbsi2 <> "" And nbsi1 <> "" Then .Range("E12").Value = (nbsi1 / nbsi2) * 100 Else .Range("E12").Value = 0

---

Citation:

---

Envoyé par mateoa44

Le tableau contient d'autres colonnes oui, mais toutes les colonnes ne contiennent pas de cases vide, par exemple la colonne B ne contiendra JAMAIS de cases vides

---

Du coup c'est simple :

Code:

---

1 2	nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & Sheets("Telephonie").Range("B4").End(xlDown).Row), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & Sheets("Telephonie").Range("B4").End(xlDown).Row), ">0")

---

Justement j'allais te proposer celà :

Code:

---

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

Sub test()   n= WorkSheets("Telephonie").Range("B"&Rows.count).end(xlup).row   Dim nbsi1 As String, nbsi2 As String   With Worksheets("Synthese")   .Range("E12").NumberFormat = "0"" des PDV avec demandes de rappel respectent l'engagement""" nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & n), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & n), ">0") If nbsi2 <> 0 Then .Range("E12").Value = (nbsi1 / nbsi2) * 100 Else .Range("E12").Value = 0     End Sub

---

Je pense que les deux façons que vous m'avez proposé fonctionnent, merci à vous :)
Je sais pas si je laisse comme j'ai écris avec

Code:

---

1 2 3

nbsi1 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("P4:P" & Sheets("Telephonie").Range("B1000000").End(xlUp).Row), "=100%") nbsi2 = Application.WorksheetFunction.CountIf(Sheets("Telephonie").Range("O4:O" & Sheets("Telephonie").Range("B1000000").End(xlUp).Row), ">0") If nbsi2 <> 0 Then .Range("E12").Value = (nbsi1 / nbsi2) * 100 Else .Range("E12").Value = 0

---

Ou bien si je prend une de vos solutions, pensez-vous que celle que j'ai écrite juste ici est suffisante ?

Parce que cela fait 3 fois que je me fais taper les doigts pour ça, je vais me venger :lol:

Code:

---

dern = Range("B1000000").End(xlUp).row

---

Fonctionnera pas sur des versions précédentes, il faut prendre une écriture tel:

Code:

---

dern = Range("B" & Rows.Count).End(xlUp).row

---

DeathZarakai.

Tu peux garder la tienne mais avec la mienne tu évites l'erreur au cas où t'es sur une version ancienne d'Excel. Entre autre, pour une meilleure visibilité de ton code déclare une variable comme pour ma solution où tu injecteras le numéro de la dernière ligne.

Ok Zarakai, je vais aller modifier d'autres codes où j'ai mis ça 8O 8O
Merci pour l'info :P

@Kiouane : ça marche, je vais prendre ta solution alors, je te remercie !

Je clôture le sujet, merci à vous tous pour votre participation !
Et je mets des petits pouces verts aussi :)