Remplacer une zone combiné par combobox

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
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 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
 
Merci bien Mike, bonne soiré
0