NB.Si en CountIf vba

Version imprimable

15/10/2018, 11h16
thibeau67

NB.Si en CountIf vba

Bonjour à tous,

J'ai une fonction à passer de excel à Vba

Sur excel j'ai :

=NB.SI('ONT009'!V1017:V1158;"*Jean PAUL*")

et je voudrai sur vba la même chose :

en A2 j'ai : Jean PAUL

Code:

Worksheets("Test").Cells(i, 8).Value = WorksheetFunction.CountIf(Range("V1017:V1158"), "*" & Range("A2") & "*"

Via excel j'ai bien un résultat mais pas via vba

a savoir que dans la plage V les cellules comportes un numéro puis seulement le nom et prénom de l'agent. (5623 - Jean PAUL) d'où l'utilisation du caractère "*"

je vous remercie d'avance pour vos réponses ! :)
15/10/2018, 11h27
Menhir

Juste avant cette ligne, mets ce code :

Code:

Debug.Print ActiveSheet.Name, "-" & Range("A2") & "-"

et regarde ce que tu récupères dans la fenêtre d'exécution.
15/10/2018, 11h33
halaster08

Bonjour,

Dans ta formule tu précise le nom de la feuille "ONT009", ce que tu ne fais pas dans ta macro, en l'absence de précision vba utilise la feuille active, es-tu sur la bonne feuille au lancement de la macro ?
Dans le doute il est préférable de toujours préciser le nom de la feuille devant un Range:

Code:

Worksheets("Test").Cells(i, 8).Value = WorksheetFunction.CountIf(Worksheets("ONT009").Range("V1017:V1158"), "*" & Worksheets("ONT009").Range("A2") & "*"
15/10/2018, 11h33
thibeau67

Citation:

Envoyé par Menhir

Juste avant cette ligne, mets ce code :

Code:

Debug.Print ActiveSheet.Name, "-" & Range("A2") & "-"

et regarde ce que tu récupères dans la fenêtre d'exécution.

Bonjour,

Je récupère cela :

Test -Jean PAUL-
15/10/2018, 11h53
thibeau67

Citation:

Envoyé par halaster08

Bonjour,

Dans ta formule tu précise le nom de la feuille "ONT009", ce que tu ne fais pas dans ta macro, en l'absence de précision vba utilise la feuille active, es-tu sur la bonne feuille au lancement de la macro ?
Dans le doute il est préférable de toujours préciser le nom de la feuille devant un Range:

Code:

Worksheets("Test").Cells(i, 8).Value = WorksheetFunction.CountIf(Worksheets("ONT009").Range("V1017:V1158"), "*" & Worksheets("ONT009").Range("A2") & "*"

Merci beaucoup c'était bien un problème de définition de la plage voulue.

Bonne journée à vous.
Et merci à tous pour vos idées et réponses. :)