Plan escamotable commandé par menu déroulant

[Mi]

Bonjour le forum,

Je cherche une solution pour pouvoir commander l'affichage d'un plan à partir d'un menu déroulant. J'attache une feuille pour exemplifier ce que je veux dire.
Merci d'avance pour tout conseil,
Cordialement,
Mi

 

[Hervé]

Bonjour

Une proposition en pièce jointe.

J'ai remplacé ta zone combinée par une combobox, plus facile à manipuler.

Pour voir le code : clic droit sur l'onglet, puis visualiser le code.

Salut
Hervé

 

[Mi]

Merci Hervé !!

Mais ce n'est pas possible de garder le menu déroulant classique ? Car je trouve ce combobox assez difficile à manipuler. Ou comment faire, par exemple, pour déplacer ce combobox et le redimensionner ? Le click droit sur celui-ci n'a aucun effet chez moi ...

Encore merci,
Mi

 

[andré]

Salut Mi,

Avec une liste déroulante classique, je ne vois pas comment faire.
Mais il y a une autre méthode (heureusement) !

Sous le menu Affichage / Affichages personnalisés, tu peux enregistrer toutes les mises en page que tu désires (ainsi d'ailleurs que les zones d'impression).

Si la petite fenêtre Affichages personnalisés ne se trouve pas dans tes barres d'outils tu peux l'y mettre par un glisser du menu Personnaliser (clic droit dans une barre d'outils puis Personnaliser / Commandes / Affichage / Affichage personnalisé).

Ainsi tu auras une liste déroulante, mais dans la barre d'outils.

Ândré.

 

[Hervé]

Re

La combobox est un activeX, donc manipulable par VBA.

Pour ceci, affiche la boite de dialogue visual basic : Affichage---> barre d'outils----> Visual basic

Dans cette boite à outils tu as un bouton : mode création (une équerre avec un crayon), clique dessus.

Maintenant tu peut cliquer gauche sur la combobox, et ainsi la manipuler.

En cliquant droit sur la combobox et en choisissant propriété, tu va entrer dans le menu des propriétés de la combobox, ou tu pourras choisir la police, la couleur etc.....

Tu verras dans les propriétés la ligne listfillrange avec comme valeur : A14:A15 qui correspond aux cellule permettant le remplissage du combobox.

Pour quitter le mode création , reclique sur l'icone (équerre et crayon).

Je ne sais pas manipuler les controles de la boite à outil formulaire (jamais fait), donc je serais en peine pour t'aider à réaliser ceci avec ce type de contrôes, si quelqu'un sat, qu'il n'hésite pas.

Salut
Hervé

 

[Mi]

Merci beaucoup Hervé, je vais improviser avec le Combobox, ce qui n'est pas mal du tout.

Pour andré: merci pour la suggestion avec l'affichage personnalisé.

 

[Mi]

Je reviens et j'insiste avec la liste déroulante classique:

Cette liste change tout simplement la valeur d'une "cellule liée" en 1 ou 2.

Donc pourriez-vous me corriger le code suivant (ne riez pas), où B4 est la cellule liée:

Sub Mi()
If B4 = 1 Then
Rows(47).ShowDetail = False
Else
Rows(47).ShowDetail = True
End If
End Sub

Je ne sais pas comment mettre la condition d'afficher/masquer Rows(47) en fonction de la cellule liée B4, qui ne peux prendre comme valeur que 1 ou 2 selon la liste déroulante.

Merci pour tout conseil,
Mi

 

[zano]

Tout simplement ...

faire apparaître vba en clic "Alt+F11"
écrire la macro :

Sub AfficherMasquerLigne25()
Select Case Range("B4")
Case 1
Rows("25").EntireRow.Hidden = True
Case 2
Rows("25").EntireRow.Hidden = False
End Select
End Sub

revenir sur la feuille excel
clic droit sur la liste déroulante
clic sur " Affecter une macro"
sélectionner la macro dans la liste

le tour est joué ...

 

[Mi]

Zano, merci beaucoup pour ce macro, il m'est très utile.

Amitiés,
Mi