Décidément Pascal on se croise aujourd'hui !
Je vois qu'on a la même proposition !
Sinon on pourrait aussi faire plus léger avec un Select Case...
Option Explicit
Option Compare Text 'si on veut pas de surprise MAJ/min
Private Sub TextBox1_Change()
Dim A As String, B As String, C As String, D As String
A = "Séverine123"
B = "Sonia456"
C = "Christophe789"
D = "Christian159"
Select Case Me.TextBox1
Case "Séverine"
PlacingValue A, 250, 150, 10, "E4"
Case "Sonia"
PlacingValue B, 250, 50, 10, "E4"
Case "Christophe"
PlacingValue C, 0, 250, 180, "E5"
Case "Christian"
PlacingValue D, 250, 250, 10, "E5"
End Select
End Sub
Sub PlacingValue(Nom As String, Red As Byte, Green As Byte, Blue As Byte, Cell As String)
With Me.Range(Cell)
.Value = Nom
.Font.Color = RGB(Red, Green, Blue)
End With
Me.TextBox1 = ""
End Sub
Bonne Fin d'Aprèm
@+Thierry