Discussion :

[thibeau67]

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 :

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

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 !

[Menhir]

Juste avant cette ligne, mets ce code :

Code :

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

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

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

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

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

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

[thibeau67]

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 :

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

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.

[thibeau67]

Juste avant cette ligne, mets ce code :

Code :

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

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-