VBA ne détecte pas la fin d'instruction

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

Avec ceci :

Code:

---

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

---

ou ceci :

Code:

---

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)

Bonjour

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

Code:

---

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

---

sinon :

Code:

---

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

---

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

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

re:

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

Code:

---

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

---

Pas mieux... ARGH !!! :arf:

re:

chez moi ca marche

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

Code:

---

Set plage = ActiveSheet.Cells(1, 225)

---

si tu l'enleves il faut ecrire :

Code:

---

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

---

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

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

Code:

---

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... :?

Salut,

Essaie avec :

Code:

---

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

---

;)

Citation:

---

Envoyé par Lou Pitchoun

Salut,

Essaie avec :

Code:

---

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

---

;)

---

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

Merci quand même ! ;)

re:

je pensais que tu voulais mettre une formule

tu as :

Code:

---

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

---

YES !!! :yaisse::ave:

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 !