Discussion :

[shkyo]

Bonjour à tous,

J'ai un problème tout bête, c'est une erreur de compilation car l'éditeur ne détecte pas la fin d'instruction !!!

Avec ceci :

Code :

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

1
2
Set plage = ActiveSheet.Cells(1, 225)
plage.Formula = "=COUNTIF(H4:H891;"O")"

ou ceci :

Code :

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

1
2
Set plage = ActiveSheet.Cells(1, 225)
plage.FormulaLocal = "=NB.SI(H4:H891;"O")"

A priori, il bloque sur le O

Quelqu'un a-t-il une idée quelconque ??? Merci d'avance de votre aide !

(PS : je bosse avec Excel2003 avec le SP3)

[wilfried_42]

Bonjour

les guillemets qui encadrent ton O, ferment le premier et reouvre pour le suivant
je crois qu'il faut les doubler : à essayer

Code :

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

plage.Formula = "=COUNTIF(H4:H891;""O"")"

sinon :

Code :

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

plage.Formula = "=COUNTIF(H4:H891;" & chr(34) & "O" & chr(34) & ")"

[shkyo]

Effectivement, je n'ai plus l'erreur de fin d'instruction (merci ! ), par contre, sur cette même instruction, j'ai maintenant une erreur 1004 !

Je ne vois pas pourquoi, car cette formule copiée "à la main" dans une cellule fonctionne parfaitement !

[wilfried_42]

re:

j'ai pas regardé plus loin : Formula : Anglais : Les arguments sont séparés par des virgules, et non par des ;

Code :

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

plage.Formula = "=COUNTIF(H4:H891,""O"")"

[shkyo]

Pas mieux... ARGH !!!

[wilfried_42]

re:

chez moi ca marche

tu n'aurais pas enlevé cette ligne ???

Code :

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

Set plage = ActiveSheet.Cells(1, 225)

si tu l'enleves il faut ecrire :

Code :

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

ActiveSheet.Cells(1, 225).formula = "=COUNTIF(H4:H891,""O"")"

[shkyo]

Non, non, la ligne est bien là, mais j'ai toujours l'erreur 1004 !

En attendant, j'ai codé une version nettement plus "rustique", mais qui fonctionne :

Code :

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

1
2
3
4
5
6
7
    nbre_O = 0
    contenu_cell = "O"
    For Each j In [H:H]
         If j = contenu_cell Then
              nbre_O = nbre_O + 1
         End If
    Next

Ce n'est pas très optimal mais bon...

[Lou Pitchoun]

Salut,

Essaie avec :

Code :

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

plage.FormulaLocal = "=NB.SI(H4:H891;""O"")"

[shkyo]

Salut,

Essaie avec :

Code :

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

plage.FormulaLocal = "=NB.SI(H4:H891;""O"")"

J'ai déjà essayé... et pas mieux => erreur 1004...

Merci quand même !

[wilfried_42]

re:

je pensais que tu voulais mettre une formule

tu as :

Code :

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

nbO = application.WorksheetFunction.CountIf(range("H:H"),"O")

[shkyo]

YES !!!

Non, je ne voulais pas spécialement une formule, mais je ne connais pas suffisamment les instructions VBA existantes, donc je fais avec ce que je trouve !

Merci à vous de votre aide !