Revenir à une instruction antérieure

[Sorsha]

Bonsoir

Je suis une vraie newbie, je decouvre les userform...

J'ai une msgbox dont l'objectif est d'enregistrer un numéro de RAR

Si il n y a pas les 13 numéros requis, elle renvoi un message d'erreur. Mais dans ce cas, elle se ferme. Je voudrai qu'elle se rouvre...

Est ce qu'une bonne âme aurait une idée ?

Code :

LigneM = (Range("B65000").End(xlUp).Row + 1)

Dim Message
Message = InputBox("Saisie du numéro de RAR :", "Envoi recommandé")

Select Case Len(Message)
Case Is <> 13
MsgBox "Merci de saisir un numéro valide (13 car.)"

Case Else
Range("XAA" & LigneM) = Message
End Select

Emetteur.SetFocus

Merci et bonne soirée à tous

 

[Robert]

Re : Revenir à une instruction antérieure

Bonsoir Sorsha, bonsoir le forum,

Peut-être comme ça :

Dim Message As String

LigneM = (Range("B65000").End(xlUp).Row + 1)
ici:
Message = InputBox("Saisie du numéro de RAR :", "Envoi recommandé")
Select Case Len(Message)
    Case 0
        Exit Sub
    Case Is <> 13
        MsgBox "Merci de saisir un numéro valide (13 car.)"
        GoTo ici
    Case Else
        Range("XAA" & LigneM) = Message
End Select
Emetteur.SetFocus

 

[Sorsha]

Re : Revenir à une instruction antérieure

Ca marche impec !!

Merci Beaucoup Robert