appeler une macro.

Version imprimable

23/03/2008, 17h08
bebel9313

appeler une macro.
Bonjour,
je viens à votre aide pour un blocage.

Voilà j'ai crée une macro sous exce lexécutée par un bouton.

Voici le début et la fin:
Code:

1 2 3 4 5 6 7 8 9 Private Sub eval_achat_vente_Click() Dim i As Variant ..... k = 4 ..... Else End If Next End Sub
créée dans la feuille "courbe_capital"
Et j'aimerai l'appeler à partir d'une autre feuille et d'une autre macro.
J'ai essayé call..., et ça ne marche pas.
merci pour votre aide
23/03/2008, 17h24
Didier Gonard

bonjour,

Il faut mettre ton code adapté dans un module normal et te servir de tes modules de click pour appeler ce code avec effectivement call ;)

cordialement,

Didier
23/03/2008, 17h31
ouskel'n'or
Citation:

Envoyé par Ormonth

Il faut mettre ton code adapté dans un module normal et te servir de tes modules de click pour appeler ce code avec effectivement call

Mais tu n'est pas obligé d'utiliser Call
Code:

1 2 3 Call LaMacro 'ou LaMcro
donnent le même résultat ;)

NB - "Module normal" aussi nommé "Module standard"
23/03/2008, 18h44
Didier Gonard

bonsoir,
;)

Citation:

Code :
Call LaMacro
'ou
LaMcrodonnent le même résultat

pas vraiment, LaMacro tout court, oui ;)

Bon, mais pour un débutant, pas forcément "Call-é", on va pas lui compliquer le vie, même si call est carrément déconseillé par certains..
http://mhubiche.developpez.com/vba/f...ses/#LII-A-3-b

bonne soirée pascale :)

Didier
24/03/2008, 10h09
did103

Bonjour,

Moi j'utilise des fonctions (function toto()).
Cela permet d'appeler la fonction à partir de différentes macros sur plusieurs pages.
On peut la considérer comme une sous-macro, ou un sous-programme.

La fonction à d'autres avantages, car elle peut même effectuer des calculs directement pour Excel (là c'est de la sous-traitance;)).
24/03/2008, 11h04
AlainTech

Une fonction (Function) n'est nécessaire que quand elle doit renvoyer une valeur.

Dans les autres cas, une procédure (Sub) suffit.
Une procédure peut aussi être appelée par d'autres.

En fait j'ai déjà essayé vos possibilités:
call eval_achat_vente ou eval_achat_vente
m'affichent un message d'erreur
"Erreur de compilation,
sub ou fonction non defini"

En fait je ne comprends toujours pas:

J'ai une macro dans la feuille 1:

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit

Private Sub eval_achat_vente_Click()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
Dim nom_action As Variant, nom_action_vend As Variant
Dim prix_action As Variant, prix_action_vend As Variant
Dim ligne As Variant, capital As Variant...........
End Sub

Que je veux appeler a partir d'une autre macro dans la feuille 2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub calcul_Click()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
'Calcul du porcentage de la transaction.
For i = 5 To 76
    If Cells(i, 1) = 1 Then
        While Cells(i, 5) <> Cells(i, 21)
        Cells(i, 7).Copy
        Cells(i, 22).Paste
        Cells(i, 21).Copy
        Cells(i, 5).Paste
        Call eval_achat_vente
        Wend
    Else
    End If
Next
End Sub

24/03/2008, 13h37
AlainTech

Si tu nommes ta procédure

Code:

Private Sub eval_achat_vente_Click()

et que tu l'appelles ainsi

Code:

eval_achat_vente()

il y a peu de chance que ça fonctionne...

Mais c'est un bouton de commande le _Click!

Le 1er bouton sur la 1ère feuille:

Code:

1
2
3
4
Option Explicit
Private Sub eval_achat_vente_Click()
  appel_proc()
End Sub

Que tu appelles à partir du 2ème bouton dans la feuille 2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub calcul_Click()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
'Calcul du porcentage de la transaction.
For i = 5 To 76
    If Cells(i, 1) = 1 Then
        While Cells(i, 5) <> Cells(i, 21)
        Cells(i, 7).Copy
        Cells(i, 22).Paste
        Cells(i, 21).Copy
        Cells(i, 5).Paste
       appel_proc()
        Wend
    Else
    End If
Next
End Sub

Et la procédure qui sert aux 2 touches: (je ne parle + de fonction, ya pas de retour de valeur :D)
Elle doit être dans un module pour être vue des 2 feuilles:

Code:

1
2
3
4
5
6
7
8
9
 
sub appel_proc()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
Dim nom_action As Variant, nom_action_vend As Variant
Dim prix_action As Variant, prix_action_vend As Variant
Dim ligne As Variant, capital As Variant...........
End Sub

Salut
j'ai créée dans le module 1 la macro

Code:

1
2
3
4
5
6
7
8
Sub eval_achat_vente1()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
Dim nom_action As Variant, nom_action_vend As Variant
Dim prix_action As Variant, prix_action_vend As Variant
pour les nouvelles valeurs
For i = 5 To 82.............

et je l'appelle via un bouton dans la feuille 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub calcul_Click()
Dim i As Variant
Dim j As Variant, frais As Variant, liquidite As Variant, risque As Variant
Dim nb_actions As Variant, nb_actions_vend As Variant
'Calcul du porcentage de la transaction.
For i = 5 To 76
    If Cells(i, 1) = 1 Then
        While Cells(i, 5) <> Cells(i, 21)
        Cells(i, 7).Copy
        Cells(i, 22).Paste
        Cells(i, 21).Copy
        Cells(i, 5).Paste
        eval_achat_vente1()
        Wend
    Else
    End If
Next
End Sub

Il me marque quand j'execute la macro "Private Sub calcul_Click()"
"erreur de compilation
Attendu : =" à la suite de l'execution de eval_achat_vente1()

25/03/2008, 11h07
ucfoutu

Bonjour,

enlève donc les parenthèses à
eval_achat_vente1()
25/03/2008, 11h34
Gorfael
Salut bebel9313

comme je n'ai pas l'intégralité des macros, je ne peux tester, mais....
Remplace
eval_achat_vente1()
par
eval_achat_vente1

excel s'attend à ce que tu transmettes des paramètres, puisque tu mets des parenthèses. Sans, l'instruction devarient perdre sa couleur rouge

Tu déclares toutes tes variables en Variant
Code:

1 2 Dim i, j, frais, liquidite, risque, nb_actions, nb_actions_vend Dim nom_action, nom_action_vend, prix_action, prix_action_vend
J'ai déclaré tous ces variables en Variant. Et c'est plus rapide que toi

Le but de la déclaration est multiple :
- éviter les erreurs de frappe => là, ce rôle est rempli
- Limiter l'occupation de la RAM => là, tu prends le maximum (16 octets) alors qu'en utilisant le bon type, c'est forcément inférieur
- éviter un remplissage de la variable avec une mauvaise donnée : pas rempli non plus.
Si tu attends des nombres et que tu as du texte, ou l'inverse, il vaut mieux le savoir au chargement de la variable, plutôt que parce qu'une comparaison ne fonctionne pas alors qu'elle devrait, ou si t'as du pot, quand tu veux incrémenter du texte.

A+

Tu as combien de boutons ?
Private Sub calcul_Click()
Private Sub eval_achat_vente_Click()

Sont-ils dans la même feuille ?
Quelle procédure veux-tu appeler ? "Sub eval_achat_vente()" ?
Dans ce cas, déclare tes variable dans cette procédure.

Derrière chaque bouton placé dans une feuille de calcul, tu mets
Code:

1 2 3 Private Sub LeBouton_Click() eval_achat_vente1 End sub
Si tu as des paramètres à passer (un N° de ligne, un nom de feuille par exemple) pour les passer à la procédure, tu mets
Code:

1 2 3 4 5 Private Sub LeBouton_Click() Dim FL1 as worksheet Set FL1 = Activesheet eval_achat_vente1 FL1 End sub
et dans la macro placée ds le module standard, tu mets
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub eval_achat_vente1(FL1 as worksheet) Dim i, j, frais, liquidite, risque, nb_actions, nb_actions_vend Dim nom_action, nom_action_vend, prix_action, prix_action_vend For i = 5 To 76 If FL1.Cells(i, 1) = 1 Then While FL1.Cells(i, 5) <> FL1.Cells(i, 21) FL1.Cells(i, 7).Copy FL1.Cells(i, 22) 'pas besoin de mettre sur 2 lignes FL1.Cells(i, 21).Copy FL1.Cells(i, 5) 'pas besoin de mettre sur 2 lignes Wend Else End If Next End Sub
Mais réponds : tu as combien de bouton par feuille ?
A+

27/03/2008, 09h54
bebel9313

Tu as combien de boutons ?
Private Sub calcul_Click()
Private Sub eval_achat_vente_Click()
Et d'autres

Sont-ils dans la même feuille ?
NON
Quelle procédure veux-tu appeler ? "Sub eval_achat_vente()" ?
Je veux appeler une action executée par un bouton. Celle là "Private Sub eval_achat_vente_Click()"

tu as combien de bouton par feuille ?
1 à deux boutons. Mais ça dépend des feuilles.

Sinon je crois avoir trouvé la solution. J'ai copier dans "module 1" tout mon programme avec l'en tete

Code:

Sub eval_achat_vente...........End sub

Et là, plus de message d'erreur sur ce point. Je pense qu'il l'execute.