[VBA-E] COUNTIF sur une sélection de plage variable

Bonjour à tous,

J'ai un petit problème sur mon code et ne vois pas comment faire. Quelqu'un peut-il m'aider svp ?

Code:

---

ActiveCell.FormulaR1C1 = "=COUNTIF(R5C:[RC.End(xlDown)],""OK"")"

---

Là, c'est mon dernier essai. Ce que je veux faire, c'est :
- compter toutes les cellules contenant des "OK" dans une même colonne (de la cellule R5C à la dernière cellule remplie de la colonne)
Sachant aussi que cette formule est écrite dans une cellule de la même colonne que la plage sélectionnée en COUNTIF (avec une cellule vide pour permettre la fonction End(xldown) )

Je sais que le pb vient du RC.End(xlDown) mais je ne sais pas comment faire, quelle fonction écrire.

Merci d'avance.
N'hésitez à me dire si ce n'est pas clair.

Nikos

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=COUNTIF(R5C:R" & Range(Cells(5, NoCol).Address).End(xlDown).Row & "C,""OK"")"

---

Affecte le N° de colonne à NoCol

Salut

Pourquoi utiliser l'adressage de type R1C1...

Code:

---

ActiveCell.Formula = "=countif(a5:a" & Range("a5").End(xlDown).Row & ",""OK"")"

---

devrait fonctionner, en adaptant les adresses des cellules, bien entendu

Ok?

Citation:

---

Envoyé par Pierre Fauconnier

Pourquoi utiliser l'adressage de type R1C1...

---

Parce qu'avec ActiveCell ce peut être n'importe quelle colonne ;)

Edit
Bien sûr, avec Activecell.column, il peut connaître la colonne active, auquel cas, il peut mettre

Code:

---

NoCol = Activecell.column

---

:langue:

Remarque :
Depuis le temps qu'on dit qu'il est inutile de sélectionner une cellule pour coller ce qu'on veut dedans... c'est à désespérer.
C'est pourquoi, cher Pierre, au bout du bout je te donne raison... quelque part... si tu remplaces Activecell par l'adresse de la cellule :mouarf:

Ok ! ça fonctionne.
Merci à vous 2.
:lol:

Nikos

Salut Ouskel'n'or

Citation:

---

Envoyé par ouskel'n'or

Parce qu'avec ActiveCell ce peut être n'importe quelle colonne ;)

---

Ouis, bof... Pas convaincu sur ce coup-là. Je n'ai jamais utilisé les références de cellules en R1C1, que ce soit en Excel ou en VBA, et je n'ai jamais rencontré de problème incontournable...

Mais, bon, comme je le disais ce matin [EDIT] et il y a 3 minutes... :mouarf:[/EDIT] dans un autre post ( ;) ;) ;) ), chacun sa méthode...

Bonne soirée

Citation:

---

Envoyé par Pierre Fauconnier

Je n'ai jamais utilisé les références de cellules en R1C1, que ce soit en Excel ou en VBA, et je n'ai jamais rencontré de problème incontournable...

---

Hello Pierre, je t'étonne si je te dis que je n'utilise jamais les références R1C1 ? Bien trop compliqué ! :mouarf:

Citation:

---

Envoyé par ouskel'n'or

Hello Pierre, je t'étonne si je te dis que je n'utilise jamais les références R1C1 ? Bien trop compliqué ! :mouarf:

---

C'est pour cela que j'ai essayé de remettre notre ami sur la voie de la sagesse...

:dehors: