Discussion :

[Nherve]

Bonjour a tous

Je me permet de vous solliciter 5 minutes tout au plus.

Je voudrais savoir comment faire pour donner une valeur à une textbox en fonction de choix fait sur plusieurs combobox

L'idée est simple si toutes les combobox de 4 à 11 ont comme valeur "Conforme" il faut que la TextBox13 soit égale a ACCEPTÉ sinon c'est REFUSÉ.
De plus il faut que cela se fasse de manière automatique.

J'y suis arrivé sans aucun problème avec Une combobox et une textbox mais là ça bloque.

Merci d'avance de votre aide.

Bonne journée

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox13_change()
 
If ComboBox4.Value = "Conforme" And ComboBox5.Value = "Conforme" And ComboBox6.Value = "Conforme" And ComboBox7.Value = "Conforme" And ComboBox8.Value = "Conforme" And ComboBox9.Value = "Conforme" And ComboBox10.Value = "Conforme" And ComboBox11.Value = "Conforme" Then
    TextBox13.Text = "ACCEPTÉ"
    TextBox13.BackColor = &H80FF80    'Vert
Else
    TextBox13.Text = "REFUSÉ"
    TextBox13.BackColor = &HC0C0FF     'Rouge clair
End If

[unparia]

Bonjour
Si tu souhaites que cela se fasse de manière "automatique", ce n'est pas l'évènement Change de la textbox, qu'il te faut utiliser, mais (bien évidemment) les évènements de tes comboboxes ...

[Nherve]

J'ai déjà utilisé les événements sur les combobox pour faire de la "Mise en forme" avec ce code que j'ai répété pour chaque combobox.
Du coup je ne voie pas comment faire.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Combobox4_change()
        If ComboBox4.Value = "Non conforme" Then
            Label61.BackColor = &H8080FF    'rouge
            TextBox16.Text = "Ne respect pas le cahier des charges"
        Else
            Label61.BackColor = &H80FF80    'Vert
            TextBox16.Text = "Respect le cahier des charges"
        End If
End Sub

[Nherve]

Merci beaucoup pour cette réponse qui même si elle pris son temps pour atteindre le bon neurone