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

 

[TooFatBoy]

Bonjour,

Je voudrais sélectionner les 100 lignes

Ah oui, c'est très important : il faut toujours sélectionner les cellules pour travailler avec elles !






Loin déjà je suis...

 

[dysorthographie]

Bonjour à toutes et à tous

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

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

Je voudrais sélectionner les 100 lignes, ligne 26 à 125 "ENTIERES (rows)

Bonjour,
Pourquoi faire

rows("26:125").select

 

[sylvanu]

Bonjour Lionel, TooFatBoy, dysorthographie,

Je voudrais sélectionner les 100 lignes, ligne 26 à 125 "ENTIERES (rows)" en dessous.

125-26 ça fait 99.

Pour selectionner les 100 lignes suivant la dernière cellule vide de A, un ex :

Sub Selection100()
    DL = [A1000000].End(xlUp).Row
    Rows(DL + 1 & ":" & DL + 101).Select
End Sub

 

[Usine à gaz]

Bonjour Lionel, TooFatBoy, dysorthographie,

125-26 ça fait 99.

Pour selectionner les 100 lignes suivant la dernière cellule vide de A, un ex :

Sub Selection100()
    DL = [A1000000].End(xlUp).Row
    Rows(DL + 1 & ":" & DL + 101).Select
End Sub

Bjr sylvanu

Merci pour ton code
Super, je n'aurais jamais trouvé ça...

Pour faire un test, voilà ce que j'ai fait :

Sub Selection()
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
    ActiveCell.Rows.EntireRow.Select
    Selection.Copy
    DL = [A1000000].End(xlUp).Row
    Rows(DL + 2 & ":" & DL + 10).Select
    ActiveSheet.Paste
End Sub

 

[sylvanu]

Si j'ai bien compris, pourquoi pas simplement :

Sub Selection2()
    Application.ScreenUpdating = False
    L = ActiveCell.Row
    DL = [A1000000].End(xlUp).Row
    Rows(DL + 2 & ":" & DL + 10) = Rows(L & ":" & L).EntireRow.Value
End Sub

 

[Phil69970]

Bonjour à tous

Lionel

Et ton code fonctionne sans erreur !!!
Tu es sur ?

Car ici il y a un pb je te laisse réfléchir

Sub Selection()
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
ActiveCell.Rows.EntireRow.Select
Selection.Copy
DL = [A1000000].End(xlUp).Row
Rows(DL + 2 & ":" & DL + 10).Select
ActiveSheet.Paste
End Sub

 

[Usine à gaz]

Re-Sylvanu, Bjr Phil69970

Lol, en fait ça ne fonctionne pas.
Je dois me planter ....
code :

Sub Selection()
    ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Rows.EntireRow.Select
    Rows.Copy
    DL = [A1000000].End(xlUp).Row
    Rows(DL + 1 & ":" & DL + 10).Select
    ActiveSheet.Paste
End Sub

et il me dit :

Un classeur test, c'est beaucoup mieux lol
Classeur joint...

 

[sylvanu]

Commencez par lire le post de Phil !

 

[Phil69970]

Lionel

Et si tu nous expliquais ce que tu veux faire avec des mots ..... tout simplement .....

 

[sylvanu]

Re,
J'ai supposé que les format devait être aussi copiés !
Alors un essai en PJ :

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

 

[Usine à gaz]

Désolé Sylvanu
Ne fonctionne pas...
Le but du jeux de mon classeur test et de copier la ligne 10 sur les 10 lignes en dessous

 

[sylvanu]

Et ça ne fait pas ce que vous voulez ?

 

[Usine à gaz]

LOL, je comprends :
Tu cliques d'abord sur col A dernière ligne NON VIDE.
là, c'est bon.
Merci à toi

 

[sylvanu]

Comme inscrit sur le bouton : vous cliquez sur n'importe quelle cellule, et la ligne de cette cellule est dupliquée à la fin N fois.

C'est ce que semblait indiqué votre code :

ActiveCell.Rows.EntireRow.Select