Discussion :

[Philou_92]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 ?

[Abed_H]

Bonjour
avec un ComboBox placé dans un userForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou_92]

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.........

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ComboBox1_Change()
    MsgBox Me.ComboBox1.Value
    Unload Me
End Sub

[Philou_92]

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