XL 2016 incrémenté des données horizontalomment (par colonne)

[sarahersarah]

Bonjour à tous

j'ai besoin de votre aide

je veux réaliser une application sous VBA, j'ai un formulaire de saisie dans une feuil et les données s'insère automatiquement dans une deuxième feuil

mais je veux que sa s'incrémente par colonne et n'ont pas par ligne

voilà
je veux que quand je clique sur le bouton ajouter sur la feuil 1 il s'ajoute dans la feuil2 dans la cellule E

et si j'insère un autre numéro dans feuil 1 il s'insère dans feuil 2 cellule F ...etc

mercii beaucoup

 

[job75]

Bonjour sarahersarah, bienvenue sur XLD,

Allez dans VBA (Alt+F11), collez cette macro où vous voulez et exécutez-la :

Sub Ajouter()
Sheets("Feuil2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) = Sheets("Feuil1").[E8]
End Sub

A+

 

[sarahersarah]

Bonjour sarahersarah, bienvenue sur XLD,

Allez dans VBA (Alt+F11), collez cette macro où vous voulez et exécutez-la :

Sub Ajouter()
Sheets("Feuil2").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) = Sheets("Feuil1").[E8]
End Sub

A+

MERCIIII beaucouppp