Bonjour à tous
@dgeo27: si tu mettrais le fichier joint, ça serait beaucoup plus simple. Nous on ne sais pas comment est fait le formulaire et on est pas devins.
Un autre exemple
Dim rw
With Feuil1
rw = Application.Match(le texte à rechercher, .Columns(n° colonne de recherche), 0)
TextBox19 = Format(.Cells(rw, colonne montant), "# ##0.00 EURO")
End With
Et il y a encore cette ligne IIf(.Value < 0, vbRed, vbRed), donc si inférieur à zéro c'est rouge, sinon c'est rouge?!
Et pour obligé la saisie de valeurs numériques, supprime else Msgbox xxxxxx
Private Sub TextBox19_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1,2,3,4,5,6,7,8,9,0", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox "Veuillez saisir un nombre.", , "AVVERTISSEMENT"
End If
End Sub