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

Usine à gaz

XLDnaute Barbatruc

• 26 Septembre 2023

• #16

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

 

Pièces jointes

• lignes copy apres Non Vide A.xlsm

  19 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2023

• #17

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 26 Septembre 2023

• #18

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 26 Septembre 2023

• #19

j'ai pas compris grand chose!

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 26 Septembre 2023

• #20

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 26 Septembre 2023

• #21

Usine à gaz à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif