Copier et coller

Bonjour.

Voila j'ai un tableau sur Excel 2010 en feuille 1 que j'aimerais copier et collerr sur la feuille 2.

la, pas de problème.

mon souci est que je copie et colle mon tableau a chaque fois que je l'ai rempli, et a ce moment et bien il m'écrase mon ancien collage et la je voudrais qu'il me colle a la suite.

et j'aimerais aussi qu'il me garde ma mise en forme de départ

Je vous donne mon code.

Sub Test()

    With Sheets("Tabelle2").Range("G1:O2")

        .HorizontalAlignment = xlCenter
        .Merge
        .FormulaR1C1 = "=TODAY()"

        With .Font

            .Name = "Comic Sans MS"
            .Size = 18
            .Bold = True
            .Color = -16776961

        End With

        With .Borders

            .LineStyle = xlContinuous
            .Weight = xlMedium

        End With

    End With

    With Sheets("Tabelle1")

        .Range("A3:J16").Copy Sheets("Tabelle2").Range("A3")
        .Range("K3:U22").Copy Sheets("Tabelle2").Range("K3")
        .Range("E21").Select

    End With

End Sub

Merciiiiii

J'ai oublier.

si jamais je note ce code :

[code][/Sub Test()

With Sheets("Tabelle2").Range("G1:O2")

.HorizontalAlignment = xlCenter

.Merge

.FormulaR1C1 = "=TODAY()"

With .Font

.Name = "Comic Sans MS"

.Size = 18

.Bold = True

.Color = -16776961

End With

With .Borders

.LineStyle = xlContinuous

.Weight = xlMedium

End With

End With

Dim derLigK As Long

derLigK = Sheets("Tabelle2").Range("K" & Rows.Count).End(xlUp).Row

With Sheets("Tabelle1")

.Range("A3:J16").Copy Destination:=Sheets("Tabelle2").Range("A" & derLigK + 1)

.Range("K3:U22").Copy Destination:=Sheets("Tabelle2").Range("K" & derLigK + 1)

End Withcode]

ça plante ??????

Bonjour,

Essais comme ça :

Sub Test()

    Dim Lig As Long

    With Sheets("Tabelle2").Range("G1:O2")

        .HorizontalAlignment = xlCenter
        .Merge
        .FormulaR1C1 = "=TODAY()"

        With .Font

            .Name = "Comic Sans MS"
            .Size = 18
            .Bold = True
            .Color = -16776961

        End With

        With .Borders

            .LineStyle = xlContinuous
            .Weight = xlMedium

        End With

    End With

    'recherche la première ligne vide (+1)
    Lig = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1

    'si la feuille est vide, départ de la ligne 3
    If Lig < 3 Then Lig = 3

    With Sheets("Tabelle1")

        .Range("A3:J16").Copy Sheets("Tabelle2").Range("A" & Lig)
        .Range("K3:U22").Copy Sheets("Tabelle2").Range("K" & Lig)
        .Range("E21").Select

    End With

End Sub

Waouuuuuu super merciiiiiiii ça fonctionne a merveille...............si j'osais......

tu pourrais me donner la même chose mais .....avec in saut de ligne entre chaque collage et la même mise en forme.

merci

OUps

J'ai vue un petit problème désoler

Il colle a partir de la première ligne vide de la colonne A et donc il m'efface des donner, il faudrait a partir de la colonne K, j'ai beau chercher a changer ton code je ne trouve pas ....