Forums : myDearFriend! Excel Pages


Rapport de message :*

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

Titre du sujet : Macro qui n'accepte pas de lignes de code supplémentaires
par mots-croises le 12/03/2016 00:09:34

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("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