[VBA] Type d'une variable réponse de msgbox

Bonjour à tous,

J'ai une petite question à vous poser. Je fais du VBA et je voudrais savoir quel est le type d'une variable réponse à une msgbox ?

Exemple :

Dim rep as ********

rep = msgbox("Allez-vous bien ?",vbyesno)


Que dois-je mettre à la place des étoiles dans mon code ? Je peux mettre 'variant', mais je trouve que ce n'est pas terrible.

Merci à vous !!!
Configuration: Windows XP
Firefox 3.0.10

13 réponses

  1. Contributeur
    Bonjour

    X est un tyupe "long" que l'on inscrive "vbOK" ou 0 car vbOK est une constante de valeur 0

    Ci joint tableau Word avec les valeurs
    https://www.cjoint.com/?fErSCp8PYt

    Petite astuce si on hésite sur le type d'une variable( hésiter, je sais bien faire...)
    avant de mettre en option Explicit:
    sélectionner la variable (par ex "x") et debogage sélectionner un espion
    faire la macro en pas à pas (F8)
    le statut de "x" va passer de variant à long.
    1. Contributeur
      et avec option explicit, si on déclare la variable sans type, cela ne permet-il pas de "découvrir" le type à l'éxécution ?
    2. Contributeur
      @yg_beoui, tout à fait, tu as raison. C'est une mauvaise habitude de ma part!
      (je fais souvent des variables "test" provisoires lors de l'élaboration et j'ai la flemme de déclarer pour une durée de vie provisoire)
      Bon Dimanche
  2. Enfait, je sais pas car il y a aussi les "vbcancel", et autres.
    1. Ah ok pas de probleme !
      Je pense qu'integer suffit car VbOK = 1 et VbNo = 0c (je ne suis pas sur du chiffre mais ça renvoie un nombre !)
      ALors bonne continuation !
      1. Salut,

        Oui, mais moi je met toujours 'option explicit' en début de mes procédures. Donc je dois tout déclarer. Ca évite de chercher des heures quand on fait une erreur en écrivant le nom des variables dans le programme.
        1. théoriquement tu n'a même pas a déclarer cette variable ! eh oui !!!

          Sub Va_t_il_bien ()

          rep = msgbox("Allez-vous bien ?",vbyesno,"Ca va ?")

          If rep = VbYes Then
          x = MsgBox ("Moi aussi !",VbOKOnly,"Et moi !")
          Else If rep = VbNo Then
          x2 = Msgbox ("Moi non plus !",VbOKOnly,"Et moi !")

          tu vera ça marche très bien !!!
          1. et un string peut très bien stocké un numérique, et les bool il ne met pas d'erreur mais je suis d'accord ça ne sert à rien
            1. Bonjour

              C'est écrit dans l'aide de VBA. Mets le curseur sur le mot Msgbox dans ton programme, et appuie sur la touche F1.