On Error GoTo si resultat supérieur

[David]

Bonjour à tous

j'ai un UserForm dans lequel je saisie des chiffres, une fois ces chiffres saisie je valide et si le résultat de se que je viens de saisir plus ce qu'il y a déja sur ma feuille dépasse 60 ça doit me renvoyer vers un On Error GoTo, que ça puisse mettre un message et que je puisse resaisir pour que ça ne dépasse pas 60. Les chiffres sont saisis dans les TexBox 2 et 3.

une fois la saisie faite mon résultat se trouve en "S" & n

lenom = Range("J7")
Sheets("base donnée").Unprotect Password:="xxxxxxxx"
For n = 3 To Sheets("base donnée").Range("A65536").End(xlUp).Row
  If Sheets("base donnée").Range("A" & n) = lenom Then
     Sheets("base donnée").Range("E" & n) = TextBox1
     Sheets("base donnée").Range("H" & n) = TextBox2
     Sheets("base donnée").Range("I" & n) = TextBox3
     Sheets("base donnée").Select
     Range("F" & n & ":I" & n).Select
    Selection.Copy
    Sheets("Feuil1").Select
        Range("E15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

J'espere être assez clair.

Merci d'avance

 

[David]

Re : On Error GoTo si resultat supérieur

Bon j'ai réussi à le faire tout seul 🙂.

c'était juste un GoTo avec un if et non pas un error GoTo.


Merci à tous