OVH Cloud OVH Cloud

récupérer une partie d'une ligne se trouvant en bas d'un tableau.

2 réponses
Avatar
pierre-yves.guernier
RE bonjour tout le monde, bon ben je suis pas encore un pro mais cela
progresse.
Je désire copier les éléments se trouvant dans les cellules se
trouvant en bas d'un tableau.
j'utilise ces deux lignes de codes:
Range("Q1:BL1").End(xlDown).Select
Selection.Copy

mais la première ligne n'est pas acceptée, vu que j'utilise un filtre,
je connais pas l'adresse de la dernière ligne. Je peux la connaitre et
la mettre dans une variable mais
Range("Q":"BL" & ActiveCellRow).End(xlDown).Select ne marche pas non
plus..
si quelqu'un peut m'aider ce serait super cool!
merci

2 réponses

Avatar
Hervé
Salut Pierre-Yves,
mais la première ligne n'est pas acceptée, vu que j'utilise un filtre,
La première ligne contient théoriquement les entetes de colonnes.


Range("Q":"BL" & ActiveCellRow).End(xlDown).Select ne marche pas non
plus..
Normal car pour "Q" tu ne lui indique pas la ligne :o((


Comme ça peut être :
Range("Q" & ActiveCellRow & ":BL" & ActiveCellRow).End(xlDown).Select

sinon de cette façon mais ici il par du bas de la feuille pour trouver la
première cellule non vide de la colonne "Q" :
Dim I As Long
I = [Q65536].End(xlUp).Row
Range("Q" & I, "BL" & I).Select

Hervé.

"pierre-yves" a écrit dans le message news:

RE bonjour tout le monde, bon ben je suis pas encore un pro mais cela
progresse.
Je désire copier les éléments se trouvant dans les cellules se
trouvant en bas d'un tableau.
j'utilise ces deux lignes de codes:
Range("Q1:BL1").End(xlDown).Select
Selection.Copy

mais la première ligne n'est pas acceptée, vu que j'utilise un filtre,
je connais pas l'adresse de la dernière ligne. Je peux la connaitre et
la mettre dans une variable mais
Range("Q":"BL" & ActiveCellRow).End(xlDown).Select ne marche pas non
plus..
si quelqu'un peut m'aider ce serait super cool!
merci


Avatar
pierre-yves.guernier
Merci Hervé,
je ne sais pas qui tu es, mais je suis toujours surpris de constater
que les hommes se tendent plus volontier la main sur internet que dans
la rue.
Alors merci encore pour ton conseil, ca marche royal pour la deuxième
facon!

le premier choix ne marche pas, mais je vais bidouiller un peu et
d'ici peu cela marchera.
Range("Q" & ActiveCellRow & ":BL" & ActiveCellRow).End(xlDown).Select

I = [Q65536].End(xlUp).Row
Range("Q" & I, "BL" & I).Select


je te souhaite une excellente journée

pierre-yves