bonjour à toutes et à tous,
En effet il y avait beaucoup plus simple que ce que je voulais faire, mais ça m'aurait fait plaisir de comprendre la fonction do...loop car je ne l'ai jamais utilisé .
mais pour mes debuts il vaut mieux faire simple avec les if...then et surtout exit sub (merci @+Thierry) que j'avais oublié, ça fonctionne trés bien .
If Textdecouv <> "" Then
If Textdecouv.Value > 0 Then
Tp = MsgBox("VOUS DEVEZ TAPER DES VALEURS NEGATIVE", 16, "ERREUR DE SAISIE")
Exit Sub
End If
Range("cpte!c4") = Textdecouv.Value
End If
daniel, j'ai essayé de faire ta solution et j'y suis pas arrivé, je pense que c'est encore trop dur pour mes petites connaissances, mais je ne desespere pas un jour j'y arriverai.
merci à tous et surtout à @+Thierry de me montrer mes erreurs,(c'est comme cela qu'on avance) .
à bientot .
dj.run