Remplacer une zone combiné par combobox

Résolu/Fermé
Utilisateur anonyme - Modifié par delta70 le 2/04/2015 à 22:15
 Utilisateur anonyme - 2 avril 2015 à 22:52
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 : https://www.cjoint.com/c/EDcvGRW5CJx
Merci pour vos aides
Cordialement
A voir également:

1 réponse

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
Modifié par Mike-31 le 2/04/2015 à 22:44
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.
0
Utilisateur anonyme
2 avril 2015 à 22:52
Merci bien Mike, bonne soiré
0