Amener valeur cellule.

Hello,

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

Code:

---

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.

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 :-)

Bonjour,
Si j'ai bien compris ?

Code:

---

1 2 3

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

---

A+

A la place de ton code essaie

Code:

---

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

---

Forum, Lonely1, LeForestier, JPierreM,

Merci pour vos réponses.

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

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

Merci infiniment.

mOOm.

hello,

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

Code:

---

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.

Au lieu de

Code:

---

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

---

Code:

---

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

---

Re,

Impec les chefs !

Merci à vous tous !

mOOm.