XL 2010 Copier à la suite

cp4

XLDnaute Barbatruc

• 30 Janvier 2021

• #2

Bonsoir,

VB:

Range("A2", Range("A2").End(xlDown)).Copy Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp).Row+1

Select à éviter, alourdi et ralenti le code pour rien.
Il fallait mettre .Row pour récupérer la dernière ligne non vide et ajouter 1 pour se plaçait sur la ligne du dessous.

Bonne soirée.

 

Vote positif 0 Vote négatif

P

Pensinf4204

XLDnaute Nouveau

• 31 Janvier 2021

• #3

merci pour votre réponse J'ai une erreur "La méthode copy de la classe range a échoué"
Range("A2", Range("A2").End(xlDown)).Copy Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp).Row+1
j'ai essayer de placer des parenthèses rien y fait
pas très grave Staple160 ma donné une solution

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #4

Bonjour le fil

Staple1600 je connais
Mais Staple160, c'est pas mon frère

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Janvier 2021

• #5

Bonjour le fil

Spoiler

Staple160 c'est Mr 10%
Ok je sors
Pas la tête pas la tête

@Phil69970

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #6

Bonjour à toi, camarade Phil

Il manquerait pas la suite de ton message, par hasard?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Janvier 2021

• #7

Bonjour camarade 100%

C'était juste un aparté hors sujet comme tu aimes bien en faire !

@Phil69970

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #8

Re

=>Phil69970
Ok
bah alors je te repasse le bâton de parole.
Je suis sûr (ou pas) que tu pourrais nous parler des risques encourus lorsqu'on utilise cette syntaxe, non?

Enrichi (BBcode):

Range("A2", Range("A2").End(xlDown))

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Janvier 2021

• #9

Re

Mes limites en excel étant largement inférieur aux tiennes... je dirais quand même que la sélection partant du haut vers le bas à la 1ere cellule vide la sélection s’arrête .

@Phil69970

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 31 Janvier 2021

• #10

Re

Je n'aurais pas mieux dit
Si malencontreusement, il y a "un trou" dans la colonne, il pourrait y avoir des effets de bord.

J'ajouterai donc juste ce petit exemple

VB:

Sub exemple()
[A1] = 1600: [A1:A5].DataSeries: [A9:A11] = Application.UserName: [A15:A20] = "=ROW()"
MsgBox Range("A2", Range("A2").End(xlDown)).Address, vbCritical, "Achtung, Baby!"
MsgBox Range([A2], Cells(Rows.Count, "A").End(xlUp)).Address, vbInformation, "And Now for Something Completely Different"
End Sub

 

Vote positif 0 Vote négatif