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

nilessoj

XLDnaute Nouveau
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

XLDnaute Barbatruc
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)
Code:
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
 

pierrejean

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

Bonjour josselin

A tester:
Code:
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 !!!
 

Discussions similaires

Réponses
18
Affichages
2 K

Statistiques des forums

Discussions
312 910
Messages
2 093 505
Membres
105 744
dernier inscrit
laure.mg