Discussion :

[mateoa44]

Bonjour à tous !

Petit soucis avec la fonction NB.SI

Code :

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

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

[Kiouane]

Bonjour,
Tu peux utiliser ce code.

Code :

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

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

[Philippe Tulliez]

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

[Kiouane]

Philippe est ce que mon code pourrait lui convenir?

[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 :

[Al__22]

Bonjour mateoa44,

essaye ça pour voir :

Code :

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

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

[Kiouane]

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 :

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.