Bonjour.

Voilà, j'ai copié ce code, et j'ai inséré des phrases à moi. Ca fonctionne parfaitement.

-------------

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("Bien le bonjour chez vous", vbExclamation + vbOKOnly, "Infos")
        End If
    End If
End Sub

------------

Hors, lorsque je le modifie en insérant (au milieu) une phrase supplémentaire, ma macro ne fonctionne plus. Comme celle qui suit par exemple

--------------

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")
        If Reponse = vbOK Then
               
            Reponse = MsgBox("Bien le bonjour chez vous", vbExclamation + vbOKOnly, "Infos")
        End If
    End If
End Sub

Si quelqu'un(e) peut me dire où est l'erreur?

Merci

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

Bjr Guy.

Apprendre dis tu. Ben, ces codes je les copies, je suis un ignare en matière de VBA. De simples msgbox pour agrémenter un ptit programme (non VBA) que je me suis fait.

Merci pour la solution.

Bonne journée