Private Sub CommandButton1_Click() Dim feuille As Worksheet, toto As String, ou0 As Integer, ou As Integer, i As Integer toto = "@Feuil2/1@Feuil3/2@Feuil1/3" For i = 0 To Worksheets.Count - 1 ComboBox1.AddItem "" Next For Each feuille In ActiveWorkbook.Sheets If feuille.Visible = True Then ou0 = InStr(toto, "@" & feuille.Name & "/") + Len(feuille.Name) + 2 ou1 = Val(Mid(toto, ou0)) - 1 UserForm1.ComboBox1.List(ou1) = feuille.Name End If Next End Sub
For Each Worksheet In ActiveWorkbook.Sheets If Worksheet.Name = "tata" Then UserForm2.ComboBox1.AddItem Worksheet.Name, 0 Else UserForm2.ComboBox1.AddItem Worksheet.Name End If Next
If feuille.Visible = True Then