XL 2016 Afficher Onglet par VBA

[halecs93]

Bonjour,

J'ai un classeur (travaillé avec l'aide des membres du forum) dont feuilles sont masquées (de janvier à décembre)

J'ai une macro (affichemenu) associée au bouton "menu" Il ouvre un formulaire Lorsque je clique sur un des boutons du formulaire, je souhaiterais afficher la feuille correspondante

(le fichier est zippé, car un peu trop lourd)

Help...et surtout merci

 

[Lolote83]

Bonjour,
Dans ton code remplace select par visible

Private Sub CommandButton1_Click()
    ' Janvier
    'Feuil38.Select (a supprimer)
    Feuil38.Visible = True
End Sub

Si j'ai bien compris la demande
@+ Lolote83

 

[halecs93]

Bonjour,
Dans ton code remplace select par visible

Private Sub CommandButton1_Click()
    ' Janvier
    'Feuil38.Select (a supprimer)
    Feuil38.Visible = True
End Sub

Si j'ai bien compris la demande
@+ Lolote83

J'ai testé.... mais à priori non... et j'ai eu cette erreur ici, par exemple : Feuil40.Visible

 

[Lolote83]

Re bonjour
Attention bien relire la syntaxe
Ici Feuil40.visible=true
@+ Lolote83

 

[halecs93]

Re bonjour
Attention bien relire la syntaxe
Ici Feuil40.visible=true
@+ Lolote83

Tout de suite...ça fonctionne déjà bien mieux.... souci, je ne voudrais afficher que la feuille sélectionnée (parmi les feuilles masquées)

 

[halecs93]

Bonjour le Fil

il y a un problème , c'est que dans ton Userform les Mois son Liés a Une année et pas le Nom des Feuilles !
ne pourrais tu pas alimenter ton userform en fonction des pages (mois) de ton Classuer ?
jean marie

Oups...je n'ai pas bien saisi

 

[Lolote83]

Re bonjour,
Ici, tu n'affiche que la feuille40 comme indiquée.
Mai ssi les feuilles 38,39,42 sont déjà affichées, elles resteront affichées.
Sinon, il faut faire un eboucle qui n'affiche que la feuille selectionnee
Je regarde
@+ Lolote83

 

[ChTi160]

Re
Pas grave tu as ta solution !
Bonne fin de Journée
Jean Marie

 

[Lolote83]

Re bonjour
Voici ton fichier en retour.
J'ai renommé tous les boutons de ton formulaire pour plus de clarté
Quand clic sur un mois, seul celui-ci s'affiche, les autres affichés précédemment seront invisibles
@+ Lolote83

 

[halecs93]

Re bonjour
Voici ton fichier en retour.
J'ai renommé tous les boutons de ton formulaire pour plus de clarté
Quand clic sur un mois, seul celui-ci s'affiche, les autres affichés précédemment seront invisibles
@+ Lolote83

Déjà, un grand merci..... ce qui est étrange, c'est que cela me postionne sytématiquement sur la feuille "RECAPITULATIF".... du coup j'ai modifié la procédure afficheonglet de la manière suivante :

Sub AfficheOnglet(xLeMois)
Application.ScreenUpdating = False
For Each xOng In ThisWorkbook.Sheets
Select Case xOng.Name
Case "DONNEES", "RECAPITULATIF", "FICHE INFOS CONTRAT", "CALCULS"
Sheets(xOng.Name).Visible = True
Case Is = xLeMois
Sheets(xOng.Name).Visible = True
Sheets(xOng.Name).Activate ' Active la feuille sélectionnée
Case Else
Sheets(xOng.Name).Visible = False
End Select
Next xOng
Application.ScreenUpdating = True
End Sub

 

[Lolote83]

Re bonjour,
Rien de bizzare, on affiche la feuille.
Sinon rajoute la ligne comme ceci

@+ Lolote83