Pb menu déroulant avec UserForm - débutant

Voici le début de mon code, la ligne en rouge plante et je ne vois par pourquoi ?
Le UserForn est bien nommé "Onglet" comme au début de la ligne.......

Si vous pouvez aider un débutant, d'avance merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Dim rang_onglet As Byte Dim onglet_nom As String Sub UserForm_initialize() For rang_onglet = 1 To Sheets.Count Onglet.AddItem Sheets(rang_onglet).Name Next End Sub

---

Que veux-tu faire exactement ?
Tu parles de menu déroulant (combobox) mais il est où ?
Onglet c'est le nom de ton UserForm ou du menu déroulant qui se trouve sur ton UserForm ?

Bonjour
avec un ComboBox placé dans un userForm

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Dim rang_onglet As Integer Dim onglet_nom As String   Sub UserForm_initialize() For rang_onglet = 1 To Sheets.Count ComboBox1.AddItem Sheets(rang_onglet).Name Next End Sub

---

Bonne journée.

Mon problème avec la combobox, c'est que une fois affiché avec mes élément s dans le menu déroulant je ne peux plus en sortir quand je clic sur mon choix.........

Essaye ceci pour comprendre le mécanisme, dans l'éditeur de Visual Basic, clic droit sur ton ComboBox --> code et insère le code ci-dessous

Code:

---

1 2 3 4

Private Sub ComboBox1_Change() MsgBox Me.ComboBox1.Value Unload Me End Sub

---

Ca fonctionne même si je ne maitrise pas tout :mouarf:
merci beaucoup

Cela te montre comment récupérer la valeur que tu as sélectionnée, si tu veux envoyer cette valeur vers une cellule, tu remplaces simplement MsgBox par la cellule en question, exemple :

Code:

---

1 2 3 4

Private Sub ComboBox1_Change() Sheets(1).Range("A1").Value = Me.ComboBox1.Value Unload Me End Sub

---

Le Unload Me est facultatif, c'est ce qui ferme le UserForm