Rapport de message :*
 

Re: Macro qui n'accepte pas de lignes de code supplémentaires

Titre du sujet : Re: Macro qui n'accepte pas de lignes de code supplémentaires
par Guy le 12/03/2016 15:27:57

Bonjour mots-croises,

 

Tu devrais prendre l'habitude d'utiliser la compilation du projet VBA.
Dans l'éditeur de code, menu Débogage/Compiler VBAProject.
Avec cette simple manipulation tu aurais vu qu'il manquait un End If à ton code.

 

Sub Infos()
Dim Msg As String
Dim Reponse As Integer

    Reponse = MsgBox("Pour enregistrer, cliquer n'importe où sur le graphique", vbExclamation + vbOKOnly, "Infos")
    If Reponse = vbOK Then
    
        Reponse = MsgBox("Pour quitter, cliquer sur l'image (lac & montagne)", vbExclamation + vbOKOnly, "Infos")
        If Reponse = vbOK Then

               Reponse = MsgBox("Avec cette phrase, ça ne fonctionne plus)", vbExclamation + vbOKOnly, "Infos")
        End If
        If Reponse = vbOK Then
               
            Reponse = MsgBox("Bien le bonjour chez vous", vbExclamation + vbOKOnly, "Infos")
        End If
    End If
    
End Sub

Cordialement,

 

Guy