zebanx
XLDnaute Accro
Bonjour à tous,
Comment SVP sortir facilement d'une inputbox de type 8 (ie : on tape une lettre, un chiffre, ou un mot-clé "fin" pour faire un exit sub) ?
Je vous remercie par avance pour vos réponse.
Un petit fichier d'accompagnement comme d'habitude sur une inputbox très simple.
Merci et bonne journée
zebanx
Comment SVP sortir facilement d'une inputbox de type 8 (ie : on tape une lettre, un chiffre, ou un mot-clé "fin" pour faire un exit sub) ?
Je vous remercie par avance pour vos réponse.
Un petit fichier d'accompagnement comme d'habitude sur une inputbox très simple.
Merci et bonne journée
zebanx
VB:
Sub sh01_adresse_majuscule()
On Error Resume Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ", Type:=8)
If Err = 0 Then
For Each i In monchamp
i.Value = UCase(i.Value)
Next i
End If
End Sub