Insertion de valeur

Bonjour, :D

Dans un classeur j'ai une macro qui me permet de copier puis coller dans un tableau des valeurs. J'ai un bouton qui me permet d'automatiser la tache. Mon soucis, je voudrais que les valeurs soient collées automatiquement dans la cellule vide de la colonne B et ainsi de suite. Je vous fourni mon bout de code. Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("Q4:Q24").Select Selection.Copy Sheets("Feuil1").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Sheets("Feuil2").Select Range("G4").Select Application.CutCopyMode = False Range("B4:F4").Select

---

Bonjour,

Code:

---

1 2 3 4 5 6

Sheets("Feuil1").Range("Q4:Q24").Select Selection.Copy Sheets("Feuil2").Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Application.CutCopyMode = False

---

En ayant gardé ta manière de faire, tes Select etc. (ce n'est pas optimisé), ce code va copier de Q4 à Q24 de la feuille 1 et coller de B4 à B24 de la feuille 2.

Est-ce ce que tu veux ? Ta question n'était pas vraiment claire... ou je n'ai vraiment rien compris :roll:

Bonjour DeaD78,

Dans ma feuille 1 j'ai mon tableau et dans la feuille 2 j'ai des valeurs. Je veux mettre les valeurs dans mon tableau et les empiler.

Le principe.
1 - Remplir la feuil2
2 - Copier les cellules de Q4:Q24 de la feuil2
3 - Collage transposer en valeur sur la prochaine ligne vide de la colonne B de la feuil1
4 - Vider les valeurs de la feuil2
et recommencer depuis 1
Merci

slt
je pense avoir compris ce que tu veux faire. peux-tu mettre un extrait de ton fichier en pièce jointe?
voici ce qui tu peux écrire pour le moment:

Code:

---

1 2 3

Sheets("Feuil2").Range("Q4:Q24").Copy Sheets("Feuil1").Range("B4") Application.CutCopyMode = False

---

ce code permet de coller la plage Q4:Q24 de la feuil 2 à partir de la cellule B4 de la feuil 1.
si tu veux coller à la derniere ligne rajoute ceci:

Code:

---

1 2 3

Sheets("Feuil2").Range("Q4:Q24").Copy Sheets("Feuil1").Range("B4").End(xlDown).Offset(1, 0) Application.CutCopyMode = False

---

Si tu veux supprimer les valeurs de la plage Q4:Q24 de la feuil 2 tu peux essayer:

Code:

---

1 2	Sheets("Feuil2").Range("Q4:Q24").delete

---

A+