3 boutons bva en 1 seul

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 !

Madjon6

XLDnaute Occasionnel
Bonjour,

Je voudrais savoir comment faire pour exécuter 3 boutons de macros en vba en un seul.

L'utilisateur appuie sur le bouton et les 3 macros s'exécutent en même temps.

Si vous avez le code vba permettant l'opération je suis preneur.

Merci à vous
 
Re : 3 boutons bva en 1 seul

Bonsoir Madjon6,

Dans ta première macro et juste avant d'en sortir, c'est-à-dire qu'elle a fait son travail, tu appelles la seconde et à suivre la troisième :

Macro2
Macro3
End Sub

Bonne soirée.

Jean-Pierre
 
Re : 3 boutons bva en 1 seul

Bonsoir Madjon, bonsoir le forum,

Imaginons que dans un module (Module1) tu aies 3 marcos mommées Macro1, Macro2 et Macro3. Le code sur le bouton :
Code:
Private Sub CommandButton1_Click()
Module1.Macro1 'ou Call Macro1 
Module1.Macro2 'ou Call Macro2
Module1.Macro3 'ou Call Macro3
End Sub

Édition :

Pas en même temps mais les unes après les autres... (sinon Montpellier va se foutre de la gueule de Sète)

Salut JeanPierre, Kjin
 
Re : 3 boutons bva en 1 seul

Je n y arrive pas les amis est parce que mes 2 macros sont dans des onglets différent de celui ou le bouton de compilation est créee ?

En fait la macro 1 met en fort l'onglet 1 la macro 2 met l'onglet 2 et la 3 eme les active dans un autyre onglet.

Et chaque macro est dans un module à part

Merci à vous
 
Re : 3 boutons bva en 1 seul

Bonjour le fil, bonjour le forum,

Madjon, je rejoins JeanPierre car tes explications ne sont pas très claires. Mais si tes macros sont des macros événementielles ça risque de compliquer un peu... Seul un aperçu de ton fichier nous permettra vraiment de comprendre.
 
Re : 3 boutons bva en 1 seul

Je suis un peu perdu voici la version finale de mon code qui produit une erreur de compilation ou il me dit fonction ou variable manquante

Je l'ai mis dans un nouveau module

Code :

Sub refresh()

Module1.call MAJ_FI_brut()
Module2.call Mise_en_forme()


Workbooks("P&L ESSBASE SAMPLE_blackstoneFormat.xls").Activate

y = EssVConnect("Essbase", "Admincom", "passadmin", "110.100.100.31", "PL_H", "Pl_h")
x = EssVRetrieve("Essbase", RANGE("k1:m48"), 1)
y = EssVDisconnect("Essbase")



End Sub

Merci encore
 
- 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

Discussions similaires

  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
Réponses
32
Affichages
1 K
Réponses
3
Affichages
885
Retour