Problème d'affichage combobox

Bonjour,

J'ai cherché longtemps mais en vain...Je voulais créer un outil rapidement en faisant du copier/coller faute de temps mais finalement ça prend + de temps q ue prévu pour faire ma combobox.

J'essaye de faire un outil de simulation de planning. J'ai du coup tous les mois de l'année à afficher mais c'est long à scroller.

J'ai voulu faire une combobox (insérer contrôle de formulaire dans l'onglet développeur directement) pensant que c'était simple mais pas vraiment...il doit y avoir des connaissances à avoir avant de me lancer).

Mon code fonctionne mais bug. Ma combobox affiche 2 fois le même menu. Donc il affiche 2 fois janvier à décembre.

Et lorsqu'il affiche la première valeur, il affiche le 0 au lieu de janvier par exemple. Il y a même parfois des erreurs d'affichage au click.

Je ne veux pas utiliser de userform (est-ce possible?). Mon erreur vient du fait que j'ai 1 combobox en GotFocus et l'autre en Click?

(Les commentaires, c'est un code trouvé sur le net qui utilise justement 2 types de combobox en mode focus et click qui fonctionne

mais que j'ai essayé d'adapter).

Je quote mon code.

Private Sub ComboBox1_GotFocus()
'    Dim I As Long
'    Me.ComboBox1.Style = fmStyleDropDownList
'    If Me.ComboBox1.ListCount <> Sheets.Count Then
       'Me.ComboBox1.Clear
'        For I = 1 To ActiveWorkbook.Sheets.Count
'            Me.ComboBox1.AddItem Sheets(I).Name
'        Next
'    End If
    'Me.ComboBox1.DropDown
    ComboBox1.AddItem "Janvier"
    ComboBox1.AddItem "Février"
    ComboBox1.AddItem "Mars"
    ComboBox1.AddItem "Avril"
    ComboBox1.AddItem "Mai"
    ComboBox1.AddItem "Juin"
    ComboBox1.AddItem "Juillet"
    ComboBox1.AddItem "Aout"
    ComboBox1.AddItem "Septembre"
    ComboBox1.AddItem "Octobre"
    ComboBox1.AddItem "Novembre"
    ComboBox1.AddItem "Décembre"

'ComboBox1.Style = fmStyleDropDownList
'ComboBox1.BoundColumn = 0

End Sub

Private Sub ComboBox1_Click()
'UpdatebyExtendoffice20180404
    'Sheets("Outil Congés").Select
     'Hyperlinks.Add Anchor:=Selection, Address:=ClasseurDestination, SubAddress:="'" & FeuilleDestination & "'" & "!" & AdresseDestination, TextToDisplay:=TexteLien
     'With Selection
    '.Value = TexteLien
    '.Hyperlinks.Add Anchor:=Selection, Address:=ClasseurDestination, SubAddress:="'" & FeuilleDestination & "'" & "!" & AdresseDestination, TextToDisplay:=TexteLien
'End With

    Select Case ComboBox1.Value
    Case 0
    Sheets("Outil Congés").Range("G5").Select
    Case 1
    Sheets("Outil Congés").Range("CZ5").Select
    Case 2
    Sheets("Outil Congés").Range("EY5").Select
    Case 3
    Sheets("Outil Congés").Range("HI5").Select
    Case 4
    Sheets("Outil Congés").Range("JN5").Select
    Case 5
    Sheets("Outil Congés").Range("LW5").Select
    Case 6
    Sheets("Outil Congés").Range("OG5").Select
    Case 7
    Sheets("Outil Congés").Range("QS5").Select
    Case 8
    Sheets("Outil Congés").Range("TA5").Select
    Case 9
    Sheets("Outil Congés").Range("VI5").Select
    Case 10
    Sheets("Outil Congés").Range("XS5").Select
    Case 11
    Sheets("Outil Congés").Range("AAC5").Select
    End Select

End Sub

Svp, Je vous remercie d'avance pour votre aide si possible.

Bonjour, on ne peut pas trouver le code le plus adapté à votre fichier sans celui-ci.

Désolé, ce matin je n'avais pas eu le temps de faire une version light du fichier. Y avait des données nominatives et le fichier faisait + de 1.5mo. Voilà c'est fait.

Onglet "Outil Congés" La ComboBox1

On peut donner un nom à la liste des mois dans un onglet "Param" .

Ensuite dans la propriété de la combobox en Row source on donne le nom de cette liste.

Super ça fonctionne nickel. Je vous remercie beaucoup. Y a t il un moyen de changer le nom de la première occurrence?

On voit apparaître colonne A.

Ooops j'avais pas fait attention.

Ah super merci lol Suffisait de décaler. Je vois comment ça fonctionne maintenant. Encore merci à toi.