onglet

[apdf1]

Bonjour,

Je voudrais masquer un onglet qui se trouve afficher dans ma listbox a l'aide d'un bouton.


Merci d'avance

Max

 

[JNP]

Re : onglet

Bonjour Apdf1 🙂,

[COLOR=blue]Option Explicit[/COLOR]
 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] I [COLOR=blue]As Integer[/COLOR]
[COLOR=blue]For[/COLOR] I = 0 [COLOR=blue]To[/COLOR] ListBox1.ListCount - 1
[COLOR=blue]If[/COLOR] ListBox1.Selected(I) [COLOR=blue]Then[/COLOR]
Sheets(ListBox1.List(I)).Visible = xlSheetHidden
ListBox1.Clear
UserForm_Initialize
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR] I
[COLOR=blue]End Sub[/COLOR]
[COLOR=blue]Private Sub[/COLOR] UserForm_Initialize()
[COLOR=blue]Dim[/COLOR] Feuille [COLOR=blue]As[/COLOR] Worksheet
[COLOR=blue]For Each[/COLOR] Feuille [COLOR=blue]In[/COLOR] ThisWorkbook.Worksheets
[COLOR=blue]If[/COLOR] Feuille.Visible = xlSheetVisible [COLOR=blue]Then[/COLOR]
ListBox1.AddItem Feuille.Name
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR]
[COLOR=blue]End Sub[/COLOR]

à adapter à ton nom de bouton et ta listbox 😉.
Bonne soirée 😎
Ajout : Salut Fred0o. Peut-être que c'est moi qui suit à côté de la plaque, c'est juste ce que j'ai compris à la première lecture...

 

[Fred0o]

Re : onglet

Bonjour apdf1

Si il s'agit d'un onglet dans un USF, tu peux essayer ceci :

Me.TabStrip1.Visible = False

Mais dans une ListBox, je vois pas où il y a des onglets.

A+

Edit : Merci JNP de ton éclairage. J'en déduis de ton code qu'il s'agit d'un onglet du classeur, dont il est fait référence dans la ListBox. Je comprends mieux.
Ma réponse est donc à coté de la plaque...

 

[apdf1]

Re : onglet

Bonsoir JNP, FredOo,

Je vous remercie beaucoup c'est exactement se que je voulais

Bonne soirée à tous

Max