Ilino
XLDnaute Barbatruc
Bonjour
ci dessous un code pour afficher toutes les onglets sauf quelques un mais je ne sais pas pourquoi ça n'a pas fonctionné
puis je avoir votre aide ?
A+
ci dessous un code pour afficher toutes les onglets sauf quelques un mais je ne sais pas pourquoi ça n'a pas fonctionné
puis je avoir votre aide ?
GrazieOption Explicit
Private Sub Worksheet_Activate()
Dim WS As Worksheet
ComboBox1.Clear
For Each WS In Worksheets
'Si le nom de la feuille est différent de ces quatre noms alors
If WS.Name <> "Feuil1" _
And WS.Name <> "Feuil2" Then
'Remplit la ComboBox avec le reste des feuilles
ComboBox1.AddItem WS.Name
End If
Next
End Sub
A+
Pièces jointes
Dernière édition: