Tranfert donnéeS userform vers 2ème feuille Excel

Bonjour,

Je travaille sur un fichier excel me permettant de gérer le renouvellement des habilitations de mes ouvriers.

J'ai déjà fais mon fichier et j'ai créée un userform pour collecter les données dont j'ai besoin.

J'aimerais savoir s'il est possible de transférer les données de l'userform dans une 2ème feuille excel pour ensuite les imprimer dans un "beau" formulaire.

Etant débutante en vba, si ce que j'aimerais faire est possible, est-il possible de m'aider pour le code vba ?

Voici mon fichier :

https://www.cjoint.com/c/DLbiwg5b5o7

Merciii pour votre aide !

Bonjour,

Depuis ta UserForm ... je suppose qu'actuellement tu effectues déjà une sauvegarde de tes données vers ta base ...

Donc, rien ne t'interdit de doubler, tripler, quadrupler ces instructions vers autant de feuilles que tu le désires ...

Merci pour ta réponse.

Du coup, je pense qu'il faut que je modifie ce code là pour que ça les ajoute aussi dans ma nouvelle feuille :

'Pour le bouton Ajouter
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then
L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1 Range("A" & L).Value = ComboBox1
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("L" & L).Value = TextBox4
Range("T" & L).Value = TextBox5
Range("AB" & L).Value = TextBox6
Range("AJ" & L).Value = TextBox7
Range("AR" & L).Value = TextBox8
Range("AZ" & L).Value = TextBox9
Range("G" & L).Value = TextBox10
Range("O" & L).Value = TextBox11
Range("W" & L).Value = TextBox12
Range("AE" & L).Value = TextBox13
Range("AM" & L).Value = TextBox14
Range("AU" & L).Value = TextBox15
Range("BC" & L).Value = TextBox16
Range("H" & L).Value = TextBox17
Range("P" & L).Value = TextBox18
Range("X" & L).Value = TextBox19
Range("AF" & L).Value = TextBox20
Range("AN" & L).Value = TextBox21
Range("AV" & L).Value = TextBox22
Range("BD" & L).Value = TextBox23
End If
End Sub

Ou est-ce mieux de faire un nouveau bouton ?

ReBonjour,

Tu as entièrement raison ...

Ton code actuel stocke sur la feuille active ...

Tu vas avoir besoin de

With ActiveSheet
' ton code actuel pour tes 23 TextBoxes 
End With

et aussi

With Feuil2     ' à adapter à ta situation
' ton code actuel pour tes 23 TextBoxes  ou  sélectivement ce dont tu as besoin dans la Feuille 2
End With

Super merci !

Y a plus qu'à se mettre au travail !

Re,

De rien ...

Bon Courage