Insertion d'une ligne

GUYANAIS · 5 Mai 2009

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

Code:

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) · 5 Mai 2009

Re : Insertion d'une ligne

Bonsoir,
Je verrais bien comme ceci

Code:

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 · 6 Mai 2009

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

Code:

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

A plus

GUYANAIS · 6 Mai 2009

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.

Code:

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

Insertion d'une ligne

GUYANAIS

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

soenda

XLDnaute Accro

GUYANAIS

XLDnaute Occasionnel

Discussions similaires

Insertion d'une ligne

GUYANAIS

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

soenda

XLDnaute Accro

GUYANAIS

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency