Insertion d'une ligne

[GUYANAIS]

Bonjour à tous,

J'ai besoin d'insérer des valeurs que j'ai copier dans une feuille et de les insérer dans un tableau. Je voudrais le faire à partir d'une macro qui fait copier ma sélection et collage spécial à partir d'une cellule vide dans une colonne.
Par exemple je copie une plage de valeurs vertical, du texte et des chiffres et je les colle transposé horizontal dans la première cellule vide de la colonne B.
Je sais que mon code doit ressembler à celui là, mais celui là ne fonctionne pas:😕

Range("Q4:Q24").Select
    Selection.Copy
derlig = Sheets("feuil1").[b65000].End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("Feuil2").Select
    Range("G4").Select

Merci pour votre aide🙂🙂

 

[youky(BJ)]

Re : Insertion d'une ligne

Bonsoir,
Je verrais bien comme ceci

Range("Q4:Q24").Copy
Feuil1.Select
Feuil1.Range("B" & Feuil1.[b65000].End(xlUp).Row + 1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("Feuil2").Select
    Range("G4").Select

 

[soenda]

Re : Insertion d'une ligne

Bonsoir le fil, Guyanais, youky(BJ)

Copier une plage de valeurs verticale ... et les coller transposées horizontalement dans la première cellule vide de la colonne B (de la feuille active).

- copier
- coller avec les arguments qui vont bien
- vider le presse-papier

[Q4:Q24].Copy
Range("B" & [B65536].End(xlUp).Row + 1).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
. . .

A plus

 

[GUYANAIS]

Re : Insertion d'une ligne

Bonjour,

Merci de votre aide. En fait au premier essai j'ai collé les données dans la même feuille que ma saisie. J'ai donc modifier mon code pour coller dans une autre feuille. Je vous livre le code final cela servira pour d'autre.

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