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

1 réponse

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    1. Utilisateur anonyme
       
      Merci bien Mike, bonne soiré
      0