Discussion :

[guyanais]

Bonjour,

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 :

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

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

[DeaD78]

Bonjour,

Code :

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

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

[guyanais]

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

[rvtoulon]

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 :

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

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 :

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

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 :

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

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

A+