ca marchera mieux comme ca
diagno.Text=""
message = "zobby la mouche" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbRed
diagno.SelText = message
message = "turlute" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbYellow
diagno.SelText = message
message = "toto en string" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbGreen
diagno.SelText = message
message = "VIVE LES SCHTROUMPFS" & vbCrLf
diagno.SelStart = Len(diagno.Text)
diagno.SelColor = vbMagenta
diagno.SelText = message
BasicInstinct