Application.InputBox vbBoolean

dionys0s · 31 Août 2015

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

VB:

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 · 31 Août 2015

Re : Application.InputBox vbBoolean

Bonjour dionys0s

Peut-etre comme ceci

Code:

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


End Sub

dionys0s · 31 Août 2015

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 :

VB:

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.

Application.InputBox vbBoolean

dionys0s

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

dionys0s

XLDnaute Impliqué

Discussions similaires

Application.InputBox vbBoolean

dionys0s

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

dionys0s

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency