XL 2021 VBA sélectionner 10 lignes sous dernière cellule colonn A NON VIDE

[Usine à gaz]

Bonjour à toutes et à tous 🙂

Bon sang, je n'y pas Grrr !!! 😡

Le contexte
Ma dernière cellule NON VIDE colonne A est par exemple : A10

Je voudrais sélectionner les 10 lignes, ligne 11 à 20 "ENTIERES (rows)" en dessous.

Cela me parait simple mais je n'y arrive pas.
Je fais des recherches mais aucune ne correspond exactement à mon besoin.

Auriez-vous le bon code ?
Encore un Gros MERCI à toutes et à tous 🙂
Entre temps, jecontinue mes recherches.....
🙂

 

[Usine à gaz]

Comme ça, pas besoin de clic sur la ligne, il la trouve tout seul comme un grand lol 🙂
classeur joint
🙂

 

[sylvanu]

Il faut arriver à vous suivre. 🙂
Dans ce cas il y a plus simple :

Sub SelectionPourCopie()
    DL = [A1000000].End(xlUp).Row
    Rows(DL & ":" & DL).Copy
    Rows(DL + 1 & ":" & DL + 10).Select
    ActiveSheet.Paste
    Range("A" & DL + 2).Select
End Sub

 

[Usine à gaz]

Merci Sylvanu 🙂
Je reconnais, je suis "souvent" difficile à suivre lol 🙂
Merci, c'est effectivement encore plus simple.
🙂

 

[dysorthographie]

j'ai pas compris grand chose!

With Cells(Rows.Count, "A").End(xlUp)
    Rows(.Row).Copy Cells(.Row, "A").Offset(1).Resize(10)
    Cells(.Row, "A").Offset(2).Select
End With

 

[Usine à gaz]

Bonjour dysorthographie 🙂
"j'ai pas compris grand chose !"
Peut-être ?
Mais ton code est nickel.
Merci à toi 🙂

 

[TooFatBoy]

Cela me parait simple mais je n'y arrive pas.
Je fais des recherches mais aucune ne correspond exactement à mon besoin.

Effectivement, vu d'ici ça paraît simple : trouver la dernière ligne puis sélectionner avec un offset d'une ligne et un resize de dix (puisque si j'ai bien compris on n'est plus sur 100 lignes mais sur 10) lignes.

Ca fait deux lignes d'instructions, mais on peut probablement le faire en une seule. 😉