Input box type 8 (range) : sortir

[zebanx]

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

 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

 

[job75]

Bonjour zebanx,

Curieux que tu aies créé cette discussion : pour qu'une InputBox se ferme il faut cliquer sur l'un des 2 boutons.

A+

 

[zebanx]

Bonjour Job75

Effectivement....😳 (et j'avais un problème sur excel avec un reboot dans cet intervalle, bref...)
Désolé pour le dérangement.

Bonne fin de journée à toi
zebanx