Valeur d'une cellule visible avec xlCellTypeVisible

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:

---

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

---

Merci d'avance

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).

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

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.

Citation:

---

Envoyé par titi_038

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 ?

Citation:

---

Envoyé par Menhir

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:

---

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

Citation:

---

Envoyé par titi_038

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.

Citation:

---

J'ai mis ça

Code:

---

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.

C'est sympa de prendre le temps d'essayer de me faire comprendre par mes propres moyens, (ce que j'essaie de faire depuis le début), mais malheureusement je n'ai pas le temps de vraiment me former en VBA car c'est pour le taf (et je ne suis pas programmeur) et on ne me laisse pas vraiment le temps d'approfondir...
Si tu (ou qqun d'autre) pouvait me donner la solution en m'expliquant, ça serait cool.

Bonjour
la valeur de la 1) cellules d'un filtre c'est

Code:

---

.SpecialCells(xlVisible).Cells(1)'ici j'utilise l'index et non la position (x,y)

---

ça ne fonctionne pas car cela me donne les valeurs non visibles également.
J'ai utilisé ce code :

Code:

---

1 2 3

Set rng = ThisWorkbook.Worksheets("ListeNRO").Range("Y3", "Y398").SpecialCells(xlCellTypeVisible).Cells(2) MsgBox rng

---

re

Code:

---

1 2 3 4 5 6

with ThisWorkbook.Worksheets("ListeNRO").Range("Y3:Y398") .autofilter blablabla.............' a rediger le code de ton filtre Set rng =.SpecialCells(xlVisible).Cells(2) .autofilter end with MsgBox rng.address & vbcrlf & rng.value

---

faut-il encore que le filtre soit concluant

Ah ben c'est peut-être ça l'origine du problème...
Car je ne filtre pas dans le code, c'est déjà filtré "manuellement" sur la feuille

Citation:

---

Envoyé par titi_038

C'est sympa de prendre le temps d'essayer de me faire comprendre par mes propres moyens, (ce que j'essaie de faire depuis le début), mais malheureusement je n'ai pas le temps

---

Désolé de te faire perdre ton temps en osant poser des question et de te demander de faire des tests pour essayer de comprendre ton problème.
Promis, dès que ma boule de cristal est réparée, je te donne la solution. :cristal:

En attendant, je vais suivre ton conseil et éviter de perdre mon temps sur un problème qui (en plus et contrairement à toi) ne me concerne pas.

re
et bien supprime les lignes autofilter....... si c'est deja fait manuellement
cela dit je pige pas tres bien filtrer mano et recupe par VBA