Saut de lignes après saisie

Bonjour à tous,

J'ai ce code qui me permet de transposer les valeurs de certaines cellules de la feuille"Devis" vers la feuille"Statistiques" et le code fonctionne bien mais je voudrais qu'après chaque transposition, il y ai un saut de ligne dans la feuille"Statistiques" afin de conserver les données et pouvoir en rentrer d'autres; je n'y arrive pas.

Merci à tous .

Sub CopyTranspose()

Sheets("Devis").Range("D2;D5;D46;D48").Copy

Sheets("Statistiques").Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub

Bonjour

Ce code ne peut pas fonctionner. Tu as dû mal le recopier.

Tu devrais joindre ton fichier et donner un exemple du résultat souhairé.

Bye !

Bonjour,

Lorsque vous postez un code, veillez à utiliser les balises de codes disponibles en cliquant sur l'icone </> dans la barre de menu et en collant votre code dans la fenêtre.
J'ai corrigé dans votre post.

et le code fonctionne bien

Heu, non vous devriez avoir une erreur sur la première ligne car vous utilisez des ; au lieu de ,
Pour votre demande, en conservant l'idée de votre code, essayez ceci

Sub CopyTransose()
Dim dlg As Integer

Sheets("Devis").Range("D2,D5,D46,D48").Copy

With Sheets("Statistiques")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & dlg + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
End Sub

ou ceci

Sub CopyTranspose()
Dim dlg As Integer
Dim plage()

With Sheets("Devis")
    plage = Array(.Range("D2"), .Range("D5"), .Range("D46"), .Range("D48"))
End With

With Sheets("Statistiques")
    dlg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & dlg + 2).Resize(, 4) = plage
End With
End Sub

Si ok pensez à

Cordialement

Merci beaucoup Dan et le code fonctionne nikel.

Un grand merci à tous.

Bonne fin de journée.