S
Sorsha
Guest
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 🙂
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 🙂