Macro qui n'accepte pas de lignes de code supplémentaires | ||
---|---|---|
Inscription: 26/02/2016
De La Balme de S.
Messages:
7
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 12-03-2016 00h09
Bonjour.
Voilà, j'ai copié ce code, et j'ai inséré des phrases à moi. Ca fonctionne parfaitement. ------------- Sub Infos() Reponse = MsgBox("Pour enregistrer, cliquer n'importe où sur le graphique", vbExclamation + vbOKOnly, "Infos")
------------
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() Reponse = MsgBox("Pour enregistrer, cliquer n'importe où sur le graphique", vbExclamation + vbOKOnly, "Infos")
Reponse = MsgBox("Avec cette phrase, ça ne fonctionne plus)", vbExclamation + vbOKOnly, "Infos")
Si quelqu'un(e) peut me dire où est l'erreur?
Merci |
|
|
Re: Macro qui n'accepte pas de lignes de code supplémentaires | ||
---|---|---|
Inscription: 09/01/2008
De Montréal, Québec
Messages:
463
Système d'exploitation: PC Version Excel utilisée: 97 à 2016 |
Posté le : 12-03-2016 15h27
Bonjour mots-croises,
Tu devrais prendre l'habitude d'utiliser la compilation du projet VBA.
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 |
|
|
Re: Macro qui n'accepte pas de lignes de code supplémentaires | ||
---|---|---|
Inscription: 26/02/2016
De La Balme de S.
Messages:
7
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 18-03-2016 09h24
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 |
|
|