Liste deroulante VBA

Bonjour , je suis nouveau sur ce forum et je débute en VBA , ma demande est simple et peut être que je vais paraitre ridicule mais je répète je débute. En faite quand je clique sur HACCP un userform s'ouvre avec liste déroulante et je voudrai que quand je choisi le mois via la liste déroulante et que je valide via le bouton VALIDER , ce mois s'inscrit en feuil1 cellule A1 , je vous joint mon fichier. Merci

Bonsoir,

A mettre dans ton USF pour l'action du bouton

Private Sub CommandButton2_Click()
Sheets("Feuil1").Activate
    If Len(ComboBox1) = 0 Then
        MsgBox "Vous devez faire un choix !"
        Me.ComboBox1.SetFocus
        Exit Sub
        Else
        i = 2
        Do While Cells(i, 1) <> ""
             Cells(i, 1).Offset(1, 0).Select
             i = i + 1
             Loop
             Application.ScreenUpdating = False 'désactivation défilement écran
             ActiveCell.Value = ComboBox1.Value
             'ActiveCell.Offset(0, 1).Value = Textbox1.value ' pour la suite sur la meme ligne
             'ActiveCell.Offset(1, 1).Value = Textbox1.value ' en dessous de "pour la suite sur la meme ligne"
             'etc.....
    End If
    Sheets("Feuil1").Activate
    Unload ListeDeroulante
    Application.ScreenUpdating = True 'activation défilement écran
End Sub

Bonsoir,

En réponse à la question posée, ceci suffit amplement :

Private Sub CommandButton2_Click()
    If ComboBox1.ListIndex > -1 Then Worksheets("REGLAGE") _
     .Range("A1").Value = ComboBox1.Value
End Sub

Reste à voir comment tu comptes poursuivre...

Cordialement.

bonsoir,

un code tres simple.

CDt

Re,

Bonsoir Mr Ferrand,

J'ai fait un rajout justement pour (vu la taille de l'USF) pouvoir continuer

Cordialement

Bonsoir M12,

Je ne reproche rien à ton code, mais il me semble que tu le pousses dans une orientation sans qu'on sache quelle est la sienne précisément.

S'il exprime son intention de lister les mois en colonne A... cela aura été de la prémonition.

Cordialement et bon weekend.

Attendons la réponse de Fredy45.

merci merci et encore merci ça fonctionne !!!