affectation valeur Combobox

Bricoltou · 28 Août 2009

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 · 28 Août 2009

Re : affectation valeur Combobox

Bonsoir,

Code:

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 · 28 Août 2009

Re : affectation valeur Combobox

Bonjour le Fil

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

@+

Bricoltou

kjin · 28 Août 2009

Re : affectation valeur Combobox

Re,
Non, tu pourrais également utiliser

Code:

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

Mais c'est devient vite lourd
A+
kjin

affectation valeur Combobox

Bricoltou

XLDnaute Occasionnel

Pièces jointes

kjin

XLDnaute Barbatruc

Bricoltou

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

affectation valeur Combobox

Bricoltou

XLDnaute Occasionnel

Pièces jointes

kjin

XLDnaute Barbatruc

Bricoltou

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency