Remplacer une zone combiné par combobox [Résolu/Fermé]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Bonsoir à toutes et à tous,
Problème avec la taille de police dans la zone combiné sur feuil Excel.
Alors je l'ai remplacé par un Combo Box, mais je n'arrive pas à mettre le code VBA pour remplacer le rôle de la zone combiné.
Exemple ci-joint : http://cjoint.com/?EDcvGRW5CJx
Merci pour vos aides
Cordialement
Afficher la suite 

1 réponse

Messages postés
16941
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 septembre 2019
3601
0
Merci
Bonsoir,

si tu nomme tes onglets en clair comme ils s'affichent dans ton Combobox ce code suffit

Private Sub ComboBox1_Change()
Sheets(ComboBox1).Activate
End Sub

mais n'oublie pas de supprimer la cellule liée dans Linkedcell

si tu veux conserver tes noms d'onglet 01,02 etc
tu peux nommer ta cellule E2 feuille an pour l'emple je l'ai nommée Call
Dans laquelle j'ai mis cette formule
Private Sub ComboBox1_Change()
Sheets([Call] + 2).Activate
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien Mike, bonne soiré