Problème pour activer une macro via une autre macro.

[nilessoj]

Bonjour,

Je cherche à écrire une macro qui me demanderai par la msgBox si j'accepte la suppression des données sur mon classeur, si la réponse est oui une autre macro que j'ai déjà écrite correctement s'activera et mettra fin à la procédure, et si je réponds non la msgbox doit m'afficher quelque chose du genre "aucune modification n'a été apportée"

La macro que j'ai écrite et qui ne marche pas est :

Sub insererColonne2()
Dim Reponse As Long
Reponse = MsgBox(Prompt:="voulez vous remplacer les données ?", Title:="Attention", Buttons:=vbYesNo)
If Reponse = vbYes Then Call insererColonne
Else MsgBox(Prompt:="Aucune modification n'a été apportée", Title:="Confirmation",Buttons:=vbOKOnly)
End If
End Sub


Merci d'avance

 

[kjin]

Re : Problème pour activer une macro via une autre macro.

Bonsoir,
Plutôt que d'écrire en gras utilise la balise code (# dans le menu)

Sub insererColonne2()
If MsgBox(Prompt:="voulez vous remplacer les données ?", Title:="Attention", _
    Buttons:=vbYesNo) = vbYes Then
    Call insererColonne
Else
    MsgBox Prompt:="Aucune modification n'a été apportée", Title:="Confirmation", Buttons:=vbOKOnly
End If
End Sub

A+
kjin

 

[nilessoj]

Re : Problème pour activer une macro via une autre macro.

Merci pour la réponse et pour la balise du code (je suis nouveau sur le forum)

Bonne soirée

 

[pierrejean]

Re : Problème pour activer une macro via une autre macro.

Bonjour josselin

A tester:

Sub insererColonne2()
Dim Reponse As Long
Reponse = MsgBox(Prompt:="voulez vous remplacer les données ?", Title:="Attention", Buttons:=vbYesNo)
If Reponse = vbYes Then
Call insererColonne
Else
x = MsgBox(Prompt:="Aucune modification n'a été apportée", Title:="Confirmation", Buttons:=vbOKOnly)
End If
End Sub

Edit: Un tout petit peu à la bourre moi !!!