affectation valeur Combobox

[Bricoltou]

Bonjour à Tous

je cherche a affecter les valeurs d'une combobox ( Fichier joint ) dans la feuille Excel.
J'ai bien réussi lorsque je sélectionne le Lundi , je n'arrive pas à creer les conditions lorsque je sélectionne un autre jour .😱

Merci d'avance pour votre aide

@+

Bricoltou

 

[kjin]

Re : affectation valeur Combobox

Bonsoir,

Private Sub CommandButton3_Click()
With Sheets("plan_hebdo")
    Select Case ComboBox33
        Case "Lundi"
            .Cells(5, 3) = ComboBox33
            .Cells(6, 3) = TextBox1
            'etc...
            
        Case "Mardi"
            .Cells(7, 1) = ComboBox3
            .Cells(8, 1) = ComboBox4
            .Cells(9, 1) = ComboBox5
            'etc...
        'etc...
    End Select
End With

End Sub

Bon pour les combos j'ai mis n'importe quoi, je te laisse compléter
Tu utilises l'instruction with/End with donc n'oublie pas le point devant "Cells"
Dans ta liste des jours de la semaine tu as un espace à la fin du mot "lundi" !
A+
kjin

 

[Bricoltou]

Re : affectation valeur Combobox

Bonjour le Fil

Merci a toi Kjin 😎 , effectivement je n'était pas dans la bonne direction .

@+

Bricoltou

 

[kjin]

Re : affectation valeur Combobox

Re,
Non, tu pourrais également utiliser

If ....= "lundi" Then
ElseIf... = "mardi" Then
ElseIf... = "mercredi" Then
...
End If

Mais c'est devient vite lourd
A+
kjin