Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion nilessoj
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nilessoj

Guest
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 🙂
 
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
 
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 !!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
449
Réponses
17
Affichages
2 K
  • Question Question
Microsoft 365 Protect/Unprotect
Réponses
18
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…