Discussion :

[chrystobale]

Bonjour,
je tente de faire une macro qui me permet de compter le nombre d'occurence dans une plage de données appartenant à une autre feuille (Worksheets) et dont la plage est contenue dans la colonne "Q" de caresrpt.cfm-2

Code :

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

1
2
3
    For l = l To 106
    Cells(l, 2) = CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q", Cells(l, 1)))
    Next l

=> la compilation de cette syntaxe ne passe pas ...
Une idée ?

Merci d'avance,

chris

[Krovax]

1) Où le compilateur bloque-t-il?
2) For l = l To 106
si je passe en majuscule tu as écrit L= L to 106????
essaye l = 1 to 106 (1 ou un autre nombre inférieure à 106)

[zandru]

Rapidement, la première ligne ne me va pas (l=l ??)
et un pb de parenthèse dans la ligne du countif (que je ne peux pas tester, countif doit être NB.Si non ?)

Code :

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

1
2
3
For l = 1 To 106
    Cells(l, 2) = CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q"), Cells(l, 1))
Next l

[chrystobale]

je viens de regarder l'erreur de compilation et j'ai "Sub ou function non définie" sur le CountIf.
J'ai modifié l'init du For i=1

[zandru]

essai de remplacer "countif" par "NB.Si" voir même "Application.WorksheetFunction.nb.si"

[chrystobale]

Dans les deux cas cela ne fonctionne pas :

"countif" par "NB.Si" : Erreur d'execution '424' Objet requis

"Application.WorksheetFunction.nb.si" : Erreur d'execution '438' Propriété ou méthode non gérée par cet objet

[zandru]

effectivement, ce serai plutôt :

Code :

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

1
2
3
For l = 1 To 106
    Cells(l, 2) = Application.WorksheetFunction.CountIf(Worksheets("caresrpt.cfm-2").Range("Q:Q"), Cells(l, 1))
Next l

( j'avais regardé dans l'aide sans l'écrire sous vba )