Application.InputBox vbBoolean

[dionys0s]

Bonjour le forum,

j'aurais souhaité capter l'évènement annulation d'un Application.InputBox dont le type désiré est 4 : Ce lien n'existe plus.

Pour n'importe quel autre type, pour empêcher l'annulation de la saisie, on peut utiliser

Do
  InpBx = Excel.Application.InputBox(Promp:=Ppt, Title:=Ttl, Default:=Dflt, Type:=Pas4)
Loop While VBA.VarType(InpBx) = VBA.vbBoolean

Mais là du coup ça ne marche pas...
Y a-t-il une solution pour ça ?

D'avance merci 🙂

 

[pierrejean]

Re : Application.InputBox vbBoolean

Bonjour dionys0s

Peut-etre comme ceci

Sub test()
Do
 inpbx = Excel.Application.InputBox(Prompt:=Ppt, Title:=Ttl, Default:=Dflt, Type:=Pas4)
Loop While inpbx = False


End Sub

 

[dionys0s]

Re : Application.InputBox vbBoolean

Re,
Bonjour pierrejean

en fait du coup, je voudrais que ça fonctionne avec le type 4, c'est à dire avec quelque chose comme ça :

Do
  InpBx = Excel.Application.InputBox(Promp:=Ppt, Title:=Ttl, Default:=Dflt, Type:=4)
Loop While "l'utilisateur a cliqué sur annuler"

puisque le cas où le type voulu est 4, c'est forcément True ou False qui est renvoyé par la méthode.