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