Discussion :

[Antoniom]

Hello,

Je reviens vers vous, car j'ai un petit souci avec le code ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
    x = Range("a2:d2")
    DerLig = Range("A65536").End(xlUp).Row + 1
    Range("A" & DerLig) = x
End Sub

Il ne veut pas amener la plage x , il n'amène que la première cellule (A2) ??

Si quelqu'un a la gentillesse de m'aider, je le remercie par avance !

Je joins le fichier ici.

Bonne journée.

[Lonely1]

Bonjour,

On ne peux pas affecter une plage à une variable!
Vous pouvez utiliser une variable vecteur (tableau) avec une boucle.
Merci bien de préciser l'objectif de votre code afin qu'on puisse vous aidez plus.

Bien à toi :-)

[LeForestier]

Bonjour,
Si j'ai bien compris ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    Range("a2:d2").Copy Range("A" & Range("A65536").End(xlUp).Row + 1)
End Sub

A+

[JPierreM]

A la place de ton code essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DerLig = Range("A65536").End(xlUp).Row + 1
Range("A2:D2").Copy Destination:=Range("A" & DerLig)

[Antoniom]

Forum, Lonely1, LeForestier, JPierreM,

Merci pour vos réponses.

Lonely1, sorry si je n'ai pas été assez clair

LeForestier et JPierreM, c'est impec, les deux fonctionnent.

Merci infiniment.

mOOm.

[Antoniom]

hello,

désolé, je reviens là-dessus car je souhaiteerais pouvoir sélectionner la ligne copiée avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()()
    Range("A2:D2").Copy Range("A" & Range("A65536").End(xlUp).Row + 1)
    Range("A" & Range("A65536").End(xlUp).Row).Select
End Sub

supposons que la dernière ligne copiée est la 10ème, il sélectionne bien la dixième ligne mais que A10 et je souhaite donc sélectionner la dernière ligne A10 à D10

Pouvez vous encore m'aider sur ce coup là ??

Je vous remercie par avance.

mOOm.

[aalex_38]

Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & Range("A65536").End(xlUp).Row)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Maligne = Range("A65536").End(xlUp).Row
Range("A" & Maligne & ":D" & Maligne).select