Bonjour Bonjour
Me revoila avec mes questions de newbie...
J ai une inputbox qui, notament grace au forum se comporte (presque) comme je le souhaite
Elle sert à saisir un numéro de RAR (sur 13 car.)
La ou ca coince c'est si on appuie sur Annuler, l'inputbox se ferme, et la valeur saisie est concidér comme bonne
comme faire pour que si on clique sur Annuler on retourne à Goto ICI ?
Merci !
......
Dim Message As String
LigneM = (Range("B65000").End(xlUp).Row + 1)
If Message = "" Then
GoTo ici
End If
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("M" & LigneM) = Message
End Select
DTPicker1.SetFocus
Me revoila avec mes questions de newbie...
J ai une inputbox qui, notament grace au forum se comporte (presque) comme je le souhaite
Elle sert à saisir un numéro de RAR (sur 13 car.)
La ou ca coince c'est si on appuie sur Annuler, l'inputbox se ferme, et la valeur saisie est concidér comme bonne
comme faire pour que si on clique sur Annuler on retourne à Goto ICI ?
Merci !
......
Dim Message As String
LigneM = (Range("B65000").End(xlUp).Row + 1)
If Message = "" Then
GoTo ici
End If
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("M" & LigneM) = Message
End Select
DTPicker1.SetFocus