G
gothc
Guest
Private Sub UserForm_Initialize() 'à l'initialisation de l'userform
Dim x As Byte 'déclare la variable x
'boucle sur tous les onglets du classeur
For x = 1 To Sheets.Count
'condition : si l'onglet ne se nomme pas 'tab'
If Sheets(x).Name <> 'tab' Then
'remplit la ComboBox1 par le nom de l'onglet
ComboBox1.AddItem Sheets(x).Name
End If 'fin de la condition
Next x 'prochain onglet du classeur
bonjour comment p ton rajoute un onglets dans la condition
merci pour votre aide
Dim x As Byte 'déclare la variable x
'boucle sur tous les onglets du classeur
For x = 1 To Sheets.Count
'condition : si l'onglet ne se nomme pas 'tab'
If Sheets(x).Name <> 'tab' Then
'remplit la ComboBox1 par le nom de l'onglet
ComboBox1.AddItem Sheets(x).Name
End If 'fin de la condition
Next x 'prochain onglet du classeur
bonjour comment p ton rajoute un onglets dans la condition
merci pour votre aide