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