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

Usine à gaz · 26 Septembre 2023

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

sylvanu · 26 Septembre 2023

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

VB:

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

TooFatBoy · 26 Septembre 2023

Bonjour,

Usine à gaz à dit:
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 · 26 Septembre 2023

Usine à gaz à dit:
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

Code:

rows("26:125").select

sylvanu · 26 Septembre 2023

Bonjour Lionel, TooFatBoy, dysorthographie,

Usine à gaz à dit:
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 :

VB:

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

Usine à gaz · 26 Septembre 2023

sylvanu à dit:
Bonjour Lionel, TooFatBoy, dysorthographie,

125-26 ça fait 99.

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

VB:

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 :

VB:

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 · 26 Septembre 2023

Si j'ai bien compris, pourquoi pas simplement :

VB:

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 · 26 Septembre 2023

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 · 26 Septembre 2023

Re-Sylvanu, Bjr Phil69970

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

VB:

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 · 26 Septembre 2023

Commencez par lire le post de Phil !

Phil69970 · 26 Septembre 2023

Lionel

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

sylvanu · 26 Septembre 2023

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

VB:

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 · 26 Septembre 2023

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 · 26 Septembre 2023

Et ça ne fait pas ce que vous voulez ?

Usine à gaz · 26 Septembre 2023

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

sylvanu · 26 Septembre 2023

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 :

VB:

ActiveCell.Rows.EntireRow.Select

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

Usine à gaz

XLDnaute Barbatruc

sylvanu

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Discussions similaires