Boucle Combobox TextBox

Bonjour à tous,

J'ai un Userform contenant vingt Combobox liés avec 20 textbox. Les combobox possèdent tous les mêmes Items. Lorsque je change la valeur d'un combobox, je souhaiterais que le textbox associé change de couleur en fonction de l'item de la combobox. Je sais le faire dans chaque Combobox_Change mais j'aimerais avoir une technique pour le faire en une seule boucle si possible.

Je vous remercie d'avance,

Cordialement,

SamSam

Bonjour SamSam, bonjour le forum,

Il te faut utiliser un Module de Classe... Si tu daignes mettre un fichier je pourrais te faire une proposition VBA.

Bonsoir ThauThème !

Merci pour ta réponse. Voici le fichier en question

Bonjour ThauThème,

Je voulais savoir si tu avais pu regarder pour ce module de classe ?

Sinon, est-ce que quelqu'un aurait une solution à me proposer ?

Je vous remercie tous.

SamSam

Bonjour,

Je ne maîtrise pas très bien les modules de classe, pour le moment, je te propose une solution intermédiaire:

Private Sub ComboBox1_Change()
Call ChangeCouleur(ActiveControl, Me)
End Sub

appelle le sub:

Sub ChangeCouleur(Cbox As msforms.Control, Usf As msforms.UserForm)
Dim TxBox As msforms.TextBox
While Not TypeOf Cbox Is ComboBox
    Set Cbox = Cbox.ActiveControl
Wend

Set TxBox = Usf.Controls("TextBox" & Replace(Cbox.Name, "ComboBox", ""))
TxBox.BackColor = RGB(150, 150, 150)
End Sub

Je regarde comment faire pour créer un module de classe et te fais un retour plus tard si j'y suis parvenu

Bonjour Samsam, Ausecour,

J'avais zappé...

En pièce jointe ton fichier modifié. Je t'avoue que je ne suis pas expert en module de classe. Je rencontre toujours des difficultés à définir l'item modifié... Mais ça fonctionne...

Bonjour ThauThème,

Tu arrives au moins à faire fonctionner quelque chose, moi je n'ai rien réussi à fair via les modules de classe, je n'en utilise jamais, du coup je n'ai jamais l'occasier de m'améliorer avec...

Je laisse ta solution, je n'en chercherai pas d'autre, elle est top

Merci à vous deux pour vos réponses !

ThauThème, ta solution marche du tonnerre !!

Merci

De rien

Merci d'avoir passé le sujet en résolu