rebonjour
comment faire pour n'afficher dans mon combobox que les feuilles visible.
Voici mon code actuel.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "Form2017"
Dim plg As Range
Set plg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2)
plg = UserForm1.ComboBox2.Value
plg.Offset(, 1) = UserForm1.ComboBox3
plg.Offset(, 2) = UserForm1.CheckBox1
plg.Offset(, 8) = UserForm1.TextBox1
Range("A2") = ActiveSheet.Name
If ComboBox1.Text = "" Then
MsgBox ("vous n'avez pas choisi la Date, veuillez rectifier pour que ce soit pris en compte")
End If
ActiveSheet.Protect "Form2017"
ActiveWindow.SelectedSheets.Visible = False
Unload Me
End Sub
Private Sub ComboBox1_Click()
Dim Feuille As String
Feuille = ComboBox1.Value
Worksheets(Feuille).Select
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
'If Sheets.Visible Then
If ws.Name <> "Base" Then
ComboBox1.AddItem ws.Name
End If
Next
End Sub
Merci de votre aide