Passage a la ligne automatique

Bonsoir,

Je cherche à passer à la ligne automatiquement et sur une autre feuille lorsque je saisie des données sur ma feuille 1 (le but est de saisir mes donnée sur ma première ligne en feuille 1 et de les envoyer sur ma feuille 2)

Feuille 1 : SAISIE

Feuille 2 : TABLEAU

Voici ma macro :

Sub Copiercoller()

Dim S As Worksheet 'déclare la variable S (SAISIE)

Dim T As Worksheet 'déclare la variable T (TABLEAU)

Dim DEST As Range 'déclare la variable DEST (DESTination)

Set S = Sheets("SAISIE")'

Set T = Sheets("TABLEAU")'

Set DEST = T.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST

C.Range("A2:E2").Copy '

DEST.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True'

End Sub

Le soucie que j'ai, la transposition se fait mais uniquement sur la colonne et moi je souhaite transposer uniquement sur la ligne.

Pouvez-Vous m'aider ?

Merci !

Bonjour,

à tester,

Sub Copiercoller()
Dim S As Worksheet 'déclare la variable S (SAISIE)
Dim T As Worksheet 'déclare la variable T (TABLEAU)
Dim DestRow As Long 'déclare la variable DestRow (DESTination)

Set S = Sheets("SAISIE") '
Set T = Sheets("TABLEAU") '
DestRow = T.Cells(Rows.Count, 1).End(xlUp).Row + 1 'définit le numéro de ligne de destination DEST
T.Range("A" & DestRow & ":E" & DestRow) = S.Range("A2:E2").Value
End Sub

Je viens seulement de voir la réponse car les mails étaient en indésirables. Un grand merci pour tes explications c’est limpide !

PIERT a écrit :

Je viens seulement de voir la réponse car les mails étaient en indésirables. Un grand merci pour tes explications c’est limpide !

Merci PIERT pour ce retour, au plaisir!

si le problème est résolu, s.v.p. clôture le fil, par un clic sur le bouton

Merci!