Ajouter et gérer un combobox par macro

Bonjour,

J'ai une macro qui crée une feuille, ajoute un combobox dans cette feuille et le remplit avec la liste des onglets.

Code:

---

1 2 3 4 5 6 7

ActiveSheet.DropDowns.Add(138, 160, 150, 15).Select For Each feuille In Worksheets Selection.AddItem feuille.Name Next feuille Selection.Name = "CbChoixFeuille" Selection.OnAction = "choixFeuille"

---

Jusqu'ici pas de problème. J'aimerais que l'utilisateur puisse ouvrir l'onglet qui le concerne en le choisissant dans le combobox plutôt que de le sélectionner dans les onglets en bas de page.
Et là je sèche complètement. Comment lire le contenu du combobox que j'ai créé par macro? Ma sub choixfeuille ne marche pas.

Code:

---

1 2 3 4 5 6

Sub choixFeuille()   Sheets(ActiveSheet.Shapes("CbChoixFeuille").List(ActiveSheet.Shapes("CbChoixFeuille").listitem)).Select   End Sub

---

Quelqu'un a une idée?

Bonjour,

Ce n'est une ComboBox qui a été créée mais un contrôle de formulaire Excel.DropDown.

Essayez de remplacer le code de la Sub choixFeuille par

Code:

---

1 2 3 4 5 6

Sub choixFeuille() Dim DD As Excel.DropDown '--- Set DD = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object Sheets(DD.List(DD.Value)).Select End Sub

---

Bonjour,

pourquoi utiliser un combobox quand une liste de validation située dans une cellule réalise la même chose ?

créer une liste de validation dans la cellule A1 de Feuil2 : la liste contient le nom de chaque feuille du classeur

Macro a placer dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ListeValidation() Dim Chaine As String   For i = 1 To ThisWorkbook.Worksheets.Count Chaine = Chaine & Worksheets(i).Name & "," Next i   Chaine = Mid(Chaine, 1, Len(Chaine) - 1)   With Feuil2.Cells(1, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Chaine .IgnoreBlank = True .InCellDropdown = True End With   End Sub

---

Evènement qui se déclenche quand on choisi une valeur dans la liste de validation : activation de la feuille sélectionnée

Macro à placer directement dans le module de la feuille qui contient la liste de validation

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Cells(1, 1)) Is Nothing Then If Cells(1, 1) <> "" Then Worksheets(Cells(1, 1).Value).Activate End If   End Sub

---

je te laisse adapter à ton cas

Ps : écrire une macro par macro c'est possible, faire une recherche sur le forum pour trouver le tuto de manipulation du VBE ;)

Bonjour,

Citation:

---

Jusqu'ici pas de problème. J'aimerais que l'utilisateur puisse ouvrir l'onglet qui le concerne en le choisissant dans le combobox plutôt que de le sélectionner dans les onglets en bas de page.

---

Un simple clic droit au niveau des flèches de navigation permet de sélectionner une feuille. Une petite explication aux utilisateurs suffira.

Merci énormément pour vos réponses.
Pour éviter de trop modifier mon code existant j'ai utilisé le code de PMO2017, ça fonctionne parfaitement.

Joe.Levrai, merci aussi pour ta contribution. J'ai déjà écrit une macro qui écrit une macro mais dans mon souvenir il fallait autoriser l'accès au VBE ce que les gens de la sécurité n'aime pas beaucoup.

Philippe Tulliez, effectivement, c'est plus simple comme tu dis mais certains utilisateurs ont besoin qu'on leur tienne la main et c'est pas demain que ça va changer. J'en ai même qui ne savent même pas que les onglet existent...

Encore merci et bonne journée!

Petite remarque pour les administrateurs du site. Je ne reçois plus les notifications instantanées par e-mail. Pourtant je reçois toujours la newsletter...

Concernant l'option "Accès approuvé au modèle objet" dont tu fais mention, et qui doit être activée quand on manipule le VBE par macro

fait une recherche sur le forum ... de mémoire on a déjà traité le sujet et proposé une solution (un peu bancale il me semble) pour mettre en place l'option à la place de l'utilisateur

EDIT : voilà le sujet en question http://www.developpez.net/forums/d15...asic-n-fiable/

Excel 2010 : ok
Excel 2003 : ok
autre version : tester mais probablement qu'il faudra adapter les solutions 2003 ou 2010

Merci, je vais garder ça dans un coin, ça peut toujours servir.