Discussion :

[NiKoS29]

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 :

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

 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

[ouskel'n'or]

Code :

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

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

Affecte le N° de colonne à NoCol

[Pierre Fauconnier]

Salut

Pourquoi utiliser l'adressage de type R1C1...

Code :

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

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

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

Ok?

[ouskel'n'or]

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 :

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

NoCol = Activecell.column

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

[NiKoS29]

Ok ! ça fonctionne.
Merci à vous 2.


Nikos

[Pierre Fauconnier]

Salut 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... [/EDIT] dans un autre post ( ), chacun sa méthode...

Bonne soirée

[ouskel'n'or]

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é !

[Pierre Fauconnier]

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

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