Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

combobox avec menu déroulant

  • Initiateur de la discussion Initiateur de la discussion jphald
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jphald

XLDnaute Nouveau
Bonjour à tous

Sur une page d'accueil , j'ai créé une combobox avec menu déroulant (mois de l'année), lorsque je clic sur l'un d'eux, j'ouvre la feuille de calcul correspondante à ce mois, ensuite pour revenir sur la page d'accueil j'ai un bouton avec un lien.
tout fonctionne bien.
Mais si je ferme le fichier , à la prochaine ouverture , la page à l'écran sera celle du dernier mois ouvert , celui qui sera visible sur le menu déroulant de la combobox.
Ce que je souhaiterai , c'est d'ouvrir le fichier directement sur ma page d'accueil, quelque soit le mois afficher sur la combobox.

voici mes codes

pour arriver sur la page d'accueil à l'ouverture

Private Sub Workbook_Open()
Sheets("PAGE DE GARDE").Select
End Sub

la combobox

Private Sub ComboBox1_Change()
If ComboBox1.Text = "janvier" Then
Sheets("janvier").Select
ElseIf ComboBox1.Text = "fevrier" Then
Sheets("fevrier").Select
ElseIf ComboBox1.Text = "mars" Then
Sheets("mars").Select
ElseIf ComboBox1.Text = "avril" Then
Sheets("avril").Select
ElseIf ComboBox1.Text = "mai" Then
Sheets("mai").Select
ElseIf ComboBox1.Text = "juin" Then
Sheets("juin").Select
ElseIf ComboBox1.Text = "juillet" Then
Sheets("juillet").Select
End If
End Sub

merci d'avance pour l'aide
 
Re : combobox avec menu déroulant

Bonjour,

Pour la combobox:

Code:
Private Sub ComboBox1_Change()
 If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Activate
End Sub

Pour l'ouverture, remplacer le .Select par le .Activate.

A+
 
Re : combobox avec menu déroulant

bonjour

Merci pour ta réponse rapide Hasco
mais je suis désolé , aucun changement , j'ai changé les codes , le résultat est identique
à l'ouverture du fichier , la page qui s'affiche est celle qui est mois visible sur le menu déroulant de la combobox.
 
Re : combobox avec menu déroulant

Salut jphald, Hi, Ges 🙂, le Forum


Un essai avec le code de l'ami Hasco et un autre avec une liste de validation

et pour le retour en page d'accueil à la fermeture du classeur ou à l'ouverture de ce dernier: 2 solutions

Code:
[COLOR=BLUE]Option Explicit[/COLOR]

[COLOR=BLUE]Private Sub[/COLOR] Workbook_Open()
Sheets("Feuil4").Activate
[COLOR=BLUE]End Sub[/COLOR]

[COLOR=BLUE]Private Sub[/COLOR] Workbook_BeforeClose(Cancel [COLOR=BLUE]As Boolean[/COLOR])
Sheets("Feuil4").Activate
[COLOR=BLUE]End Sub[/COLOR]
Bonne Journée
 

Pièces jointes

Dernière édition:
Re : combobox avec menu déroulant

Bonjour,

Voici une solution, c'est vrai que xl 2007 a parfois des comportements étranges avec les procédures évènementielles.

J'ai été très content de voir que pas une ligne que nous t'avions, Dull et moi-même conseillée n'était présente dans ton classeur. Sympa😱

A+
 
Re : combobox avec menu déroulant

bonjour

Le classeur que j'ai posté n'est pas l'original , ce sont mes cpt bancaires , je pense que vous l'aviez compris, je l'ai créé rapidement pour que vous ayez un aperçu de ce que je recherchais .
là je n'est pas trop de temps , je reverrai tt ça dans la semaine , et je vous posterais mes résultats, en attendant merci pour tout et bon week end
jp
 
Re : combobox avec menu déroulant

Bonjour
J'ai un peu de temps , je vais avancé un peu

merci pour la réponse c'est parfait , je voudrais savoir s'il est possible d'avoir un combobox transparent, le superposer à un bouton sans que celui-ci soit caché ?
voilà ou j'en suis
 

Pièces jointes

Re : combobox avec menu déroulant

Bonjour,

Comme excel gère mal les transparences de certains objets, l'idée ici est de mettre la même couleur de fond que le bouton et de mettre à false la propriété Shadow.

A+
 
Re : combobox avec menu déroulant

RE,

Avec un petit logiciel gratuit qui s'appelle ColorMania Très pratique avec sa pipette et son convertisseur en Long VB ou HTML ou Hexa etc...

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
193
Réponses
12
Affichages
499
Réponses
3
Affichages
665
Réponses
2
Affichages
461
Réponses
3
Affichages
504
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…