Appeler une macro avec une autre macro

Bonsoir,

Dans le code d'une feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
macro1
macro2
End Sub
Changer la sélection dans le feuille entraîne la macro1 puis la macro2.

@+
FxM



Rémy wrote:

Bonjour,

Quelqu'un pourrait-il me donner l'exemple d'un code VBA où une macro
évenementielle execute une ou plusieurs autre macro non evènementielle.

Merci,

Rémy.

Bonsoir Rémy,
En doublon avec FxM, mais puisque je l'ai écrite !
Dans un module ordinaire :

Sub jour()
MsgBox "Bonjour vous !", , "M.P.F.E."
End Sub

Sub voici()
MsgBox "T'as de beaux yeux, tu sais !", vbQuestion, "M.P.F.E."
End Sub

Sub reponse()
MsgBox "Je sais, je sais !", vbInformation, "M.P.F.E."
End Sub

Sub salut()
MsgBox "Mille Merci !", , "M.P.F.E."
End Sub

Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
jour
voici
reponse
salut
End Sub

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"Rémy" <remy-heinis@wanadoo.fr> a écrit dans le message de news:eMJjBq70DHA.4064@tk2msftngp13.phx.gbl...

Bonjour,

Quelqu'un pourrait-il me donner l'exemple d'un code VBA où une macro
évenementielle execute une ou plusieurs autre macro non evènementielle.

Merci,

Rémy.

Merci Philippe !

@+
FxM



Philippe.R wrote:

Bonsoir Rémy,
En doublon avec FxM, mais puisque je l'ai écrite !
Dans un module ordinaire :

Sub jour()
MsgBox "Bonjour vous !", , "M.P.F.E."
End Sub

Sub voici()
MsgBox "T'as de beaux yeux, tu sais !", vbQuestion, "M.P.F.E."
End Sub

Sub reponse()
MsgBox "Je sais, je sais !", vbInformation, "M.P.F.E."
End Sub

Sub salut()
MsgBox "Mille Merci !", , "M.P.F.E."
End Sub

Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
jour
voici
reponse
salut
End Sub

C'était avec tant de plaisir François Xavier !
;o))))))))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.

"FxM" <fxmanceaux@chello.fr> a écrit dans le message de news:u3m44J80DHA.1660@TK2MSFTNGP09.phx.gbl...

Merci Philippe !

@+
FxM



Philippe.R wrote:

Bonsoir Rémy,
En doublon avec FxM, mais puisque je l'ai écrite !
Dans un module ordinaire :

Sub jour()
MsgBox "Bonjour vous !", , "M.P.F.E."
End Sub

Sub voici()
MsgBox "T'as de beaux yeux, tu sais !", vbQuestion, "M.P.F.E."
End Sub

Sub reponse()
MsgBox "Je sais, je sais !", vbInformation, "M.P.F.E."
End Sub

Sub salut()
MsgBox "Mille Merci !", , "M.P.F.E."
End Sub

Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
jour
voici
reponse
salut
End Sub

bonjour rémy et afin que tes remerciements n'aillent pas qu'à ces deux
félons que sont francippe et philois...

par exemple dans le module This Workbook de ton classeur

Private Sub Workbook_Open()
toto
End Sub

et dans un module de ton classeur

Sub toto()
MsgBox "t'as tout juste"
End Sub

et tournez manège...
jps


"Rémy" wrote:

Bonjour,

Quelqu'un pourrait-il me donner l'exemple d'un code VBA où une macro
évenementielle execute une ou plusieurs autre macro non evènementielle.

Merci,

Rémy.

Bon, ben,...

Merci à tous

Merci Jean-Paul

"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de
news:3FF9C873.2BBB9C89@wanadoo.fr...

bonjour rémy et afin que tes remerciements n'aillent pas qu'à ces
deux

félons que sont francippe et philois...

par exemple dans le module This Workbook de ton classeur

Private Sub Workbook_Open()
toto
End Sub

et dans un module de ton classeur

Sub toto()
MsgBox "t'as tout juste"
End Sub

et tournez manège...
jps


"Rémy" wrote:

Bonjour,

Quelqu'un pourrait-il me donner l'exemple d'un code VBA où une
macro

évenementielle execute une ou plusieurs autre macro non
evènementielle.

Merci,

Rémy.