Bouton VBA pour ouvrir plusieurs onglets

Bonjour à tous,

Est-il possible de créer un bouton simple en VBA (pas d'image) qui permettrait d'afficher plusieurs onglets alors qu'à la base, ils sont tous masqués sauf la page d'accueil ?

Je joins un exemple dans ce post.

Merci pour votre aide.

François

Salut Francois,

mais la solution de votre demande est bien dans votre fichier!

Bonne nuit

Bonsoir m3ellem1,

Ce qui est visible dans mon fichier est une autre fonctionnalité qui gère tous les onglets.

En fait j'ai réalisé un tableau de bord plus complexe et les boutons que je voudrais insérer doivent gérés un processus de demande de renseignements par étapes.

Ce bouton fait parti d'une seule étape (il y en aura 5).

Bonne soirée.

François

Bonjour,

Pour afficher les onglets 2 et 4.

Cdlt.

Private Sub CommandButton1_Click()
    Me.OLEObjects("CheckBox1").Object.Value = True
    Me.OLEObjects("CheckBox3").Object.Value = True
End Sub

Bonsoir Jean Eric,

Merci pour ce code.

Je suis désolé mais je me suis égaré dans mes explications.

Je souhaiterai juste que le bouton permette d'afficher 2 onglets des lors qu'ils sont masqués.

J'ai volontairement supprimé les autres fonctionnalités pour plus de clarté.

Je joins mon nouveau fichier à ce post.

Merci pour votre aide.

François

comme ca ?

Private Sub CommandButton1_Click()
For i = 2 To 4 Step 2
Worksheets("ONGLET " & i).Visible = xlSheetVisible
Next i
End Sub

Bonjour,

Merci pour ce code qui fonctionne avec les noms "ONGLET " uniquement.

A tous hasard, si je souhaite afficher des onglets selon leurs noms respectifs qui seraient :

Exemple :

• La Feuil 8 serait (nom : rapport financier ou Feuil8)
• La Feuil 12 serait (nom : bilan prévisionnel ou Feuil12)

Le code pourrait ressembler à cela ? (bien sûr mon exemple ci-dessous ne fonctionne pas)

Private Sub CommandButton1_Click()

For i = 2 To 4 Step 2

Worksheets("rapport financier ou Feuil8" & i).Visible = xlSheetVisible

Worksheets("bilan prévisionnel ou Feuil12" & i).Visible = xlSheetVisible

Next i

End Sub

Fichier exemple en PJ.

Merci d'avance.

François

Bonsoir,

Une petite relance sympathique pour savoir si ma demande est réalisable.

Merci

Bonsoir,

essaie comme ca

Private Sub CommandButton1_Click()
Worksheets("bilan prévisionnel").Visible = xlSheetVisible
Worksheets("rapport financier").Visible = xlSheetVisible
End Sub

ou comme ca

Private Sub CommandButton1_Click()
For i = 2 To 4 Step 2
Sheets(i + 1).Visible = xlSheetVisible
Next i
End Sub

Bonne soirée

Bonsoir m3ellem1,

Les 2 solutions me conviennent parfaitement.

Très bonne soirée.

François