PROBLEME AVEC MSGBOX

Electron24 · 6 Janvier 2019

Bonsoir le forum,

Lorsque je veux ouvrir une boite de message dans mon classeur "PERSONEL.Xlsm" je reçois un message :"Erreur de compilation. Nombre d'arguments incorrect ou affectation de propriété incorrecte" Alors que la même boite fonctionne parfaitement dans un classeur.

Code:

Sub Macro1()
Dim vQuest As String

    vQuest = MsgBox("Désirez vous le Format Portrait   (OUI)" & Chr(10) & "ou le Format paysage   (NON)", vbYesNo + vbInformation, "DEMANDE DE MISE EN PAGE")
    If vQuest = vbYes Then
        MsgBox "portrait"
    Else
        MsgBox "paysage"
    End If

    Range("A2").Select
End Sub

Dranreb · 10 Janvier 2019

Bonsoir.
Ah c'est pas bien ça: dans le module ModOuvrir il y a une Sub MsgBox qui n'attend en effet aucun argument.
Je vous conseille vivement de l'appeler autrement pour qu'elle ne soit plus en conflit avec la fonction VBA.MsgBox !

Dranreb · 6 Janvier 2019

Bonsoir.
Est-ce que ça plante aussi en déclarant VQuest du type de donnée fait pour ça ?
Dim VQuest As VbMsgBoxResult

Electron24 · 6 Janvier 2019

Bonsoir Dranreb
Eh oui ça me mets le même message.

Dranreb · 6 Janvier 2019

Il faudrait que je puisse voir le classeur téléversé. Comme ça je ne vois rien d'anormal dans l'instruction.
À tout hasard vérifiez s'il n'y a pas une référence portée MANQUANT dans menu Outils, Références…

Electron24 · 7 Janvier 2019

Je reviens vers vous avec le fichier concernant les références il n'y a aucun noté "manquant"

Dranreb · 7 Janvier 2019

Alors je ne sais pas.
Je trouverais probablement rapidement si j'avais le classeur sous la main.

Electron24 · 8 Janvier 2019

Re Bonjour,

Cela ne servira à rien de vous envoyer le classeur car ca fonctionne parfaitement dans un classeur, mais dés que je mets une macro dans le classeur de personel.xlsm (Classeur de macros perso) contenant un envoi vers l'affichage d'un MSGBOX là çà m'envoi le message d'erreur. Le problème apparait uniquement lorsque je mets la macro ou les macros contenant une demande de msgbox ". Merci pour votre aide. Voici le classeur là ça fonctionne.

Modeste geedee · 8 Janvier 2019

Electron24 à dit:
Re Bonjour,

Cela ne servira à rien de vous envoyer le classeur car ca fonctionne parfaitement dans un classeur, mais dés que je mets une macro dans le classeur de personel.xlsm (Classeur de macros perso) contenant un envoi vers l'affichage d'un MSGBOX là çà m'envoi le message d'erreur. Le problème apparait uniquement lorsque je mets la macro ou les macros contenant une demande de msgbox ". Merci pour votre aide. Voici le classeur là ça fonctionne.

Cela ne sert à rien le Classeur2.xlsm
si Le problème apparait uniquement dans le classeur personel.xlsm
on te demande le personnel.xlsm

Electron24 · 8 Janvier 2019

Eh bien renomme le classeur2 en personnel et tu l'auras. c'est le même

Dranreb · 8 Janvier 2019

Mettez option Explicit en tête de votre module modChrono. Il y a un frmChrono qui n'existe pas, là.
Veillez à ce que Arrêt dans le module de classe soit coché dans la rubrique Récupération d'erreurs, onglet Général, commande Options… du menu Outils et montrez l'instruction en Débogage quand l'erreur se produit.

Electron24 · 10 Janvier 2019

Bonsoir Dranreb,
Après quelques recherches afin de retrouver le répertoire ou se trouve le fameux classeur "PERSONAL.XLSB" ci joint que j'ai renommé en "XLSM" sinon je n'arrivais pas à le télécharger j'ai suivi vos conseils mais maintenant l'erreur de compilation se retrouve sur toutes mes macros donc j'ai joins le classeur complet. Ci joint aussi quelques vues de mon classeur.

Dranreb · 10 Janvier 2019

Bonsoir.
Ah c'est pas bien ça: dans le module ModOuvrir il y a une Sub MsgBox qui n'attend en effet aucun argument.
Je vous conseille vivement de l'appeler autrement pour qu'elle ne soit plus en conflit avec la fonction VBA.MsgBox !

Electron24 · 11 Janvier 2019

Bonjour Dranreb
Vous étes un génie je n'aurais jamais pensé à ce genre de problème. Tout est rentré dans l'ordre. Mille merci. Et encore 2019 merci. Meilleurs Voeux à vous

PROBLEME AVEC MSGBOX

Electron24

XLDnaute Occasionnel

Dranreb

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Discussions similaires