XL 2016 Afficher Onglet par VBA

halecs93 · 27 Octobre 2023

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 · 27 Octobre 2023

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

@+ Lolote83

Lolote83 · 27 Octobre 2023

Bonjour,
Dans ton code remplace select par visible

VB:

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

Si j'ai bien compris la demande
@+ Lolote83

halecs93 · 27 Octobre 2023

Lolote83 à dit:
Bonjour,
Dans ton code remplace select par visible

VB:

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 · 27 Octobre 2023

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

halecs93 · 27 Octobre 2023

Lolote83 à dit:
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 · 27 Octobre 2023

ChTi160 à dit:
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 · 27 Octobre 2023

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 · 27 Octobre 2023

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

Lolote83 · 27 Octobre 2023

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 · 27 Octobre 2023

Lolote83 à dit:
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 · 27 Octobre 2023

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

@+ Lolote83

XL 2016 Afficher Onglet par VBA

halecs93

XLDnaute Impliqué

Pièces jointes

Lolote83

Lolote83

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

Discussions similaires

XL 2016 Afficher Onglet par VBA

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency