[Charly2]

Bonsoir Yvon, bonsoir à toutes et à tous

Yvon, je ne comprends pas bien ton code. Pourquoi ne mets-tu pas le code d'initialisation des TextBox(es) dans le code de ton USF multiprest ?

Enfin, je te propose une solution (pas forcément la meilleure) pour répondre à tes conditions :

If (Range('G28') >= 30) And (Range('G28') <= 33) Then
&nbsp;&nbsp;multiprest.Show
&nbsp;&nbsp;With Me
&nbsp;&nbsp;&nbsp;&nbsp;multiprest.TextBox1.BackCo lor = &HFFFFFF
&nbsp;&nbsp;&nbsp;&nbsp;multiprest.TextBox2.BackCo lor = &HFFFFFF
&nbsp;&nbsp;&nbsp;&nbsp;multiprest.TextBox3.BackCo lor = &HFFFFFF
&nbsp;&nbsp;&nbsp;&nbsp;Select Case Sheets(1).Range('G28')
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 30
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mu ltiprest.TextBox2.BackColor = &HFF&
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 31
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mu ltiprest.TextBox3.BackColor = &HFF&
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 32
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mu ltiprest.TextBox1.BackColor = &HFF&
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mu ltiprest.TextBox3.BackColor = &HFF&
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 33
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mu ltiprest.TextBox1.BackColor = &HFF&
&nbsp;&nbsp;&nbsp;&nbsp;End Select
&nbsp;&nbsp;End With
End If

Questions facultatives : à quoi sert le 'With Me' ? Arrives-tu à initialiser tes TextBoxes après multiprest.Show ?

Amicalement
Charly