[VBA excel] regroupement de macros
Résolu
pol_38
-
Utilisateur anonyme -
Utilisateur anonyme -
11 réponses
Tu mets tes macros dans des modules et, quand tu en as, besoin tu les appelles avec la fonction Call.
par exemple tu as un sub qui s'appelle rato, eh bien tu utilises la ligne suivante pour l'utiliser avec un argument positif :
Sub jeteste()
' mon début de code
Call rato
'ma suite de code
End sub
---
J'ai des preuves !
par exemple tu as un sub qui s'appelle rato, eh bien tu utilises la ligne suivante pour l'utiliser avec un argument positif :
Sub jeteste()
' mon début de code
Call rato
'ma suite de code
End sub
---
J'ai des preuves !
Bonjour,
Comme l'a dit ruzakruzak, il faut utiliser la fonction call.
Supposons que tu ais les procédures suivantes dans le même module.
sub abc
end sub
------------
sub def
end sub
------------
sub ghi
end sub
------------
Si tu veux exécuter à l'affilée les 3 procédures tu dois en créer une quatrième qui appelle les trois autres avec la fonction call. Exemple:
sub jkl
call abc
call def
call ghi
end sub
Lorsque tu seras sous Excel tu exécuteras la procedure jkl bien entendu :)
Petite précision: crée ta procédure appellante dans le même module que les autres pour le moment, puis renseigne toi sur les différentes portées des procédures.
Bon courage.
Comme l'a dit ruzakruzak, il faut utiliser la fonction call.
Supposons que tu ais les procédures suivantes dans le même module.
sub abc
end sub
------------
sub def
end sub
------------
sub ghi
end sub
------------
Si tu veux exécuter à l'affilée les 3 procédures tu dois en créer une quatrième qui appelle les trois autres avec la fonction call. Exemple:
sub jkl
call abc
call def
call ghi
end sub
Lorsque tu seras sous Excel tu exécuteras la procedure jkl bien entendu :)
Petite précision: crée ta procédure appellante dans le même module que les autres pour le moment, puis renseigne toi sur les différentes portées des procédures.
Bon courage.
ok merci du tuyau, mais ce n'est pas excatement ce que je cherchais à savoir. J'essaie d'être plus précis:
Disons que j'ai un module, comprenant plusieurs macros, séparés par une ligne; du genre:
sub(machin)
x
x
x
End sub
-----------------------------
Sub(truc)
x
x
End Sub
-------------------------
Et je voudrais lancer toutes les macro de ce module en une seule fois, sans rien changer dans le module.
Est-possible?
a+
Disons que j'ai un module, comprenant plusieurs macros, séparés par une ligne; du genre:
sub(machin)
x
x
x
End sub
-----------------------------
Sub(truc)
x
x
End Sub
-------------------------
Et je voudrais lancer toutes les macro de ce module en une seule fois, sans rien changer dans le module.
Est-possible?
a+
salut les gars
excusez pour le derangement
quelqu'un peut il me dire comment on créer une nouvelle discussion
g unprobleme sous Access et g vraiment besoin du forum
Merci de me repondre meme si je ne vous aide pas
excusez pour le derangement
quelqu'un peut il me dire comment on créer une nouvelle discussion
g unprobleme sous Access et g vraiment besoin du forum
Merci de me repondre meme si je ne vous aide pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous,
j'ai un petit soucis dans mes macros avec une fonction call:
Ma fonction de base commence par un
Sub (1)
for i = 41 to 712
....
.....
call sub 2Bonjour à tous,
j'ai un petit soucis dans mes macros avec une fonction call:
Ma fonction de base commence par un
for i = 41 to 712
....
.....
call sub 2
Mon soucis c'est que j'aimerais qu'en faisant appel à ma fonction (sub2) l'indice soit pris en compte dans cette fonction, or par défaut ce n'est pas le cas.
Pourriez vous me dire comment faire passer un indice d'une fonction à une autre sans le réécrire dans la sub 2?
je pense à un truc du genre
call sub2 (with i=indice) ou quelque chose comme ca, mais je ne trouve pas d'indication correcte
Merci à vous et j'espere avoir été assez clair
j'ai un petit soucis dans mes macros avec une fonction call:
Ma fonction de base commence par un
Sub (1)
for i = 41 to 712
....
.....
call sub 2Bonjour à tous,
j'ai un petit soucis dans mes macros avec une fonction call:
Ma fonction de base commence par un
for i = 41 to 712
....
.....
call sub 2
Mon soucis c'est que j'aimerais qu'en faisant appel à ma fonction (sub2) l'indice soit pris en compte dans cette fonction, or par défaut ce n'est pas le cas.
Pourriez vous me dire comment faire passer un indice d'une fonction à une autre sans le réécrire dans la sub 2?
je pense à un truc du genre
call sub2 (with i=indice) ou quelque chose comme ca, mais je ne trouve pas d'indication correcte
Merci à vous et j'espere avoir été assez clair
OK, merci
Pour ton indice i je comprends,
Mais pour le k je ne sais pas quoi mettre car je ne connais pas à l'avance la valeur que ca va prendre. Comment puis-je la définir?
dans ma sub(2) il faut que je fasse appel à cet indice ou pas?
c'est ce que je pensais avoir compris dans ton exemple mais alors pourquoi prendre un k et aps un i?
Pour ton indice i je comprends,
Mais pour le k je ne sais pas quoi mettre car je ne connais pas à l'avance la valeur que ca va prendre. Comment puis-je la définir?
dans ma sub(2) il faut que je fasse appel à cet indice ou pas?
c'est ce que je pensais avoir compris dans ton exemple mais alors pourquoi prendre un k et aps un i?
bonjour,
Passe ton argument en utilisant une variable globale que tu déclares dans ton module de macros.
;o)
Polux
Passe ton argument en utilisant une variable globale que tu déclares dans ton module de macros.
Option Explicit Dim k As Variant Sub (1) for i = 41 to 712 K = i .... ..... call sub 2 Sub2 (k) ....
;o)
Polux
Bonjour,
Autre exemple :
Supossons 3 routines dans le module 1 :
Maintenant on souhaite faire l'appel des ces routines à partir d'un tierce module.
Soit le module 2 :
Remarquer la syntaxe lorsque l'on utilise l'instrction CALL.
Remarquer aussi la différence entre ByVal et ByRef.
Byval passe la valeur de la variable
ByRef passe l'adresse de la variable ( donc modifiable ).
Cordialement.
Bonne continuité.
Lupin
Autre exemple :
Supossons 3 routines dans le module 1 :
Option Explicit
Sub AfficheResultat(ByVal MonResultat As Long)
MsgBox MonResultat
End Sub
'
Sub CalculResultat(ByVal Indice1 As Long, ByRef Indice2 As Long)
Indice2 = (Indice1 * 2)
End Sub
'
Sub EntreeValeur(ByRef donnees As Long)
Dim Valeur As Variant
Valeur = InputBox("Enterz un nombre : ", "DONNÉES", "100")
donnees = Transforme(Valeur)
End Sub
'
Function Transforme(ByVal Entree As Variant) As Long
Transforme = CLng(Val(Entree))
End Function
'
Maintenant on souhaite faire l'appel des ces routines à partir d'un tierce module.
Soit le module 2 :
Option Explicit
Sub Principal()
Dim Reponse As Long, Multiplicateur As Long
Multiplicateur = 5
Module1.EntreeValeur Reponse
Module1.CalculResultat Multiplicateur, Reponse
Module1.AfficheResultat Reponse
End Sub
'
Sub Principal2()
Dim Reponse As Long, Multiplicateur As Long
Multiplicateur = 5
Call Module1.EntreeValeur(Reponse)
Call Module1.CalculResultat(Multiplicateur, Reponse)
Call Module1.AfficheResultat(Reponse)
End Sub
'
Remarquer la syntaxe lorsque l'on utilise l'instrction CALL.
Remarquer aussi la différence entre ByVal et ByRef.
Byval passe la valeur de la variable
ByRef passe l'adresse de la variable ( donc modifiable ).
Cordialement.
Bonne continuité.
Lupin
Merci pour les infos, ca semble fonctionner en faisant juste apple à mon i ou k entre ().
Merci à vous
Merci à vous
bonjour tout le monde
j'ai à peu prés le meme probleme avec la fonction call.
dans mes macro quand j'ai par exemple
"call active_feuille_param"
ou
call cibler("sommer")
cela ne marche pas, j'ai toujours une erreur au niveau du débogage et je comprends pas grand chose;
meci de me dire ce qu'il faut faire
j'ai à peu prés le meme probleme avec la fonction call.
dans mes macro quand j'ai par exemple
"call active_feuille_param"
ou
call cibler("sommer")
cela ne marche pas, j'ai toujours une erreur au niveau du débogage et je comprends pas grand chose;
meci de me dire ce qu'il faut faire
