Modifier une combobox et la placer sur plusieurs feuilles du même fichier

Fermé
souverain62 Messages postés 1 Date d'inscription jeudi 25 novembre 2021 Statut Membre Dernière intervention 25 novembre 2021 - 25 nov. 2021 à 16:55
Le Pingou Messages postés 12155 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 - 25 nov. 2021 à 21:40
Bonjour à Tous,
Autodidacte débutant sur Excel 365 et VBA, j'ai trouvé sur le forum un petit fichier qui me conviendrait si je savais :
- Modifier l'aspect et les dimensions de la combobox ainsi que son aspect
- La placer de façon indentique sur toutes les feuilles de mon fichier
Quelqu'un peut-il m'aider ?
Merci par avance
Voici le code VBA :

Option Explicit

Private Sub ComboBox1_DropButtonClick()
Dim F As Worksheet
ComboBox1.Clear
For Each F In ThisWorkbook.Worksheets
ComboBox1.AddItem F.Name
Next F
End Sub
Private Sub ComboBox1_Click()
Dim Feuille As String
On Error Resume Next
Feuille = ComboBox1.Value
Sheets(Feuille).Activate
ActiveSheet.Range("A1").Select
End Sub
A voir également:

1 réponse

Le Pingou Messages postés 12155 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 1 448
25 nov. 2021 à 21:40
Bonjour,
Je pense que le faire manuellement sera plus rapide que faire un programme VBA pour cela !
0