Discussion :

[titi_038]

Bonjour,

je débute en VBA et je cherche à récupérer dans une variable la valeur d'une cellule visible (j'utilise un filtre).
J'essaye ce code mais il me dit "propriété ou méthode non gérée par cet objet"

Code :

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

Range("Y3", Cells(Rows.Count, "Y").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1)

Merci d'avance

[Menhir]

Décompose le problème pour resserrer le champ de recherche.

Commence par regarder ce que te renvoies Cells(Rows.Count, "Y").End(xlUp).
puis Range("Y3", Cells(Rows.Count, "Y").End(xlUp)).
puis Range("Y3", Cells(Rows.Count, "Y").End(xlUp)).SpecialCells(xlCellTypeVisible).

[titi_038]

je viens d'essayer.
Pour Cells(Rows.Count, "Y").End(xlUp), il me met le même message
Pour Range("Y3", Cells(Rows.Count, "Y").End(xlUp)), il me met "erreur de compilation attendu :="
puis Range("Y3", Cells(Rows.Count, "Y").End(xlUp)).SpecialCells(xlCellTypeVisible) -> ça fonctionne ! mais sans bien comprendre la raison...

[titi_038]

En fait ça marche pour la première case et c'est tout. Si je remplace "Y3" par "Y1" ça me mets un message d'erreur. De plus, j'ai besoin de lire la case suivante mais je ne vois pas comment faire.

[Menhir]

je viens d'essayer.
Pour Cells(Rows.Count, "Y").End(xlUp), il me mets le même message

Peux-tu écrire la totalité de la ligne de code que tu as testée ?

[titi_038]

Peux-tu écrire la totalité de la ligne de code que tu as testée ?

J'ai mis exactement la ligne de code que tu avais mis, à savoir Cells(Rows.Count, "Y").End(xlUp) telle quelle

EDIT :
J'ai mis ça

Code :

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

ActiveSheet.Range("Y3", "Y398").SpecialCells (xlCellTypeVisible)

et je n'ai plus de message d'erreur. Pour autant, j'ai essayé de l'afficher avec Msgbox et cela ne fonctionne pas.
Comment accéder au contenu de ce range ?? je sèche...

[Menhir]

J'ai mis exactement la ligne de code que tu avais mis, à savoir Cells(Rows.Count, "Y").End(xlUp) telle quelle

Une référence de cellule en elle-même ne peut rien faire.
Je ne sais pas exactement ce que tu comptes obtenir de cette ligne, mais indiquer juste un objet ne peut pas être interprété par VBA comme une instruction.

J'ai mis ça

Code :

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

ActiveSheet.Range("Y3", "Y398").SpecialCells (xlCellTypeVisible)

et je n'ai plus de message d'erreur. Pour autant, j'ai essayé de l'afficher avec Msgbox et cela ne fonctionne pas.
Comment accéder au contenu de ce range ?? je sèche...

Mets la référence dans une variable de type Range et regarde le résultat dans la fenêtre des variables locales en faisant avancer ton code en pas-à-pas.