Transposer automatiquement une ligne en colonne dans une deuxieme feuille

Bonjour,

J’ai besoin de votre aide et votre expertise :

Je veux ajouter une colonne automatiquement dans une deuxieme feuille lorsque j’écris une ligne dans la feuille1.

Comme si je fais la transposé de la ligne écrite dans la feuille 1

Je vous remercie pour le temps accordé à resoudre mon problem

Bonjour,

à tester,

Sub Transfert_Données()
'transfert les données de la ligne (cellule active, Feuil1) sur la Feuil2
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastCol2 = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
rw = ActiveCell.Row  '(cellule active, Feuil1)
 For i = 1 To 3
  sh2.Cells(i, LastCol2).Value = sh1.Cells(rw, i + 1).Value
 Next
End Sub

sabV a écrit :

Bonjour,

à tester,

Sub Transfert_Données()
'transfert les données de la ligne (cellule active, Feuil1) sur la Feuil2
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastCol2 = sh2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
rw = ActiveCell.Row  '(cellule active, Feuil1)
 For i = 1 To 3
  sh2.Cells(i, LastCol2).Value = sh1.Cells(rw, i + 1).Value
 Next
End Sub

Bonjour,

Je te remercie ça a marché. Je l'ai adopté à mon fichier pour qu'il soit efficace.

Mais, j'ai une question: lorsque j'ajoute une colonne dans la 1ere feuille je veux mettre à jour la 2eme fois et que cette nouvelle colonne s'ajoute.

Merci beaucoup pour la solution