Formulaire personnalisé excel

Bonjour à tous,

Bonjour à tous,

Excel 2016

J'ai un tableau excel avec 2 feuilles, l'une nommée "SAISIE" et l'autre "EXTRACTION"
La feuille "saisie" sera masquée et seule la feuille "extraction" sera accessible

J'ai créé un formulaire personnalisé qui me permet de remplir le tableau de la feuille "saisie" (chaque saisie se place en dernière position)

Sur la feuille "extraction" j'ai un "extrait" de mon tableau complet qui reprend les entête ainsi que la dernière ligne saisie (me permet de voir quelle a été la dernière saisie)

1 er soucis, mon formulaire ne fonctionne que si je le lance depuis la feuille "extraction"
2 ème soucis, je n'arrive pas à remplir mon tableau "saisie" ET l'extrait de tableau en feuille "extraction"

Ci dessous mon code :

Option Explicit

Dim Ws As Worksheet

'Pour le bouton Nouveau contact

Private Sub CommandButton1_Click()

Dim L As Integer

 If MsgBox("Confirmez-vous l'insertion de cet évènement ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
     L = Sheets("SAISIE").Range("d65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

     Range("E" & L).Value = ComboBox1
     Range("D" & L).Value = TextBox1
     Range("F" & L).Value = TextBox3
     Range("G" & L).Value = TextBox4
     Range("H" & L).Value = TextBox5
     Range("I" & L).Value = TextBox6
     Range("J" & L).Value = TextBox7

 End If
 
End Sub

'Pour le bouton Quitter

Private Sub Fermer_Click()

   Unload Me

End Sub

Private Sub UserForm_Activate()
'contenu combobox1
Dim Ligne As Integer: Ligne = 2
While (ThisWorkbook.Worksheets("SAISIE").Cells(Ligne, 1).Value <> "")
ComboBox1.AddItem (ThisWorkbook.Worksheets("SAISIE").Cells(Ligne, 1).Value)
Ligne = Ligne + 1

Wend

End Sub

Private Sub UserForm_Click()

End Sub
 

Windows / Edge 109.0.1518.55