Discussion :

[Novice72]

Bonjour,

Je ne comprends pas où se trouve l'erreur de code ( ou d'écriture ). En effet, suivant la valeur de la variable "ly", il faut faire appel à telle ou telle macro ( ou sous macro ). J'ai tout d'abord utilisé la propriété "Select Case"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
     Select Case ly
     Case Is = 1
       Call caumont
     Case Is = 2
       Call Lemonnier
........
      Case Else
       Call Monnet
     End Select

VBA me dit : Utilisation incorrecte de la propriété ( en surlignant "Call caumont" )

J'ai donc utilisé la propriété IF ELSEIF ELSE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    If ly = 1 Then
          Call caumont
       ElseIf ly = 2 Then
          Call Lemonnier
       ElseIf ly = 3 Then
          Call oasis
...
       Else
         Call Monnet
   End if

Même Remarque de VBA

Pour information, "ly" peut prendre 52 valeurs différentes ( de 1 à 52 ). N'est-ce pas trop ? Si oui comment faire ?
Merci d'avance pour vos réponses.

Novice72

[SfJ5Rpw8]

Bonjour,

avant de chercher dans tes case et IF ... regarde si la ligne que tu veux conditionner "fonctionne" seule ...

[Novice72]

Merci pour ta réponse très rapide.
J'ai bien lu ton message ( en rouge ) avant de répondre à cette discussion. Excuses moi. d'avoir écrit ici.
Maintenant, tu as raison j'avais oublié de définir les variables dans les macros ( ce qui me provoquait sas doute cette erreur ).
Je vais maintenant réparer cet oubli, tester et la prochaine fois écrire au bon endroit.




Cordialement
Novice72

[Novice72]

Bonjour,
j'ai déjà réussi à appeler une macro à partir d'une autre macro quand les 2 se trouvaient dans le même module ( module1 ).
Maintenant, le problème se complique pour moi.
J'ai un programme lancé par un bouton OK d'USERFORM. Dans cette userform, plusieurs choix me sont proposés Mais :
SUIVANT LA VALEUR D'UNE VARIABLE ( que j'ai appelé "ly" comme lycée ) je veux ouvrir telle ou telle macro
( "ly" peut prendre toutes les valeurs de 1 à 52 donc il y a 52 macros correspondantes ).
voici ce que j'ai écrit avec l'instruction "case"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
     Select Case ly
     Case Is = 1
       Call caumont
     Case Is = 2
       Call Lemonnier
........
      Case Else
       Call Monnet
     End Select

Ne fonctionnant pas car VBA me dit : Utilisation incorrecte de la propriété ( en surlignant "Call caumont" )
j'ai donc utilisé les instructions If Elseif Else que voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    If ly = 1 Then
          Call caumont
       ElseIf ly = 2 Then
          Call Lemonnier
       ElseIf ly = 3 Then
          Call oasis
...
       Else
         Call Monnet
   End if

Là aussi j'ai la même remarque qu'avec l'instruction "case".

bbil m'a demandé de véridier la macro seule ( ce que j'ai fait car fonctionne maintenant ).

Ma question est donc : COMMENT APPELER UNE MACRO D'UN MODULE1 A PARTIR D'UN USERFORM ?


Merci d'avance.

Novice72

[SfJ5Rpw8]

...bbil m'a demandé de véridier la macro seule ( ce que j'ai fait car fonctionne maintenant ).
..

montre nous le code que tu as utilisé pour essayer l'appel de ta "macro seule" (sans tous tes IF et Case...)

montre nous aussi le code qui te sert à déclarer ta procédure caumont

[Novice72]

Bonjour,
Je n'ai pas de code qui appelle la macro seule.

Soit je vais dans excel / developpeur / Macros / et je clique sur n'importe quel lycée ( ça a l'air de fonctionner puisque j'ai des cellules qui varient sur une feuille )

Soit je rentre dans le code de la macro et je fais F5 ( exécuter la macro ) avec le même résultat.

Pour moi, quand j'appelle une macro c'est soit à partir d'un userform avec lequel on fait un choix
soit avec un bouton
soit avec une instruction CALL dans une autre macro.....


Bref, le mieux je pense et que je te donne un bout mon programme. Le problème est que mon fichier fait 8,27Mo. Comment faire ?
Je vais supprimer quelques userforms dans mon fichier d'origine afin qu'il soit moins lourd puis je te l'envoie.

A tout à l'heure et encore merci.
Novice72



Merci de t'intéresser à mon problème et merci d'avance.

Novice72

[SfJ5Rpw8]

...

soit avec une instruction CALL dans une autre macro.....

et alors cela fonctionne ? montre le code d'appel entre balise .!

Nota : Pour ton fichier joint merci de relire cela : Fichier joint dans vos discussions

[Novice72]

on ça ne marche pas avec l'instruction CALL
Je vaix essayer avec un français correct de m'expliquer :
j'ai une macro lancée depuis un bouton se trouvant dans un userform.
Dans cette macro il y a une variable qui s'appelle "ly"
Suivant la valeur de cette variable ( qui peut prendre tout entier compris entre 1 et 52 ), je veux ouvrir la macro correspondant à la valeur de "ly" ( ex : si ly=1 je fait "Call caumont" mais ça ne marche pas )....

comment appelle-ton une macro dans le module 1 alors que je suis dans mon userform

Cordialement

Merci d'avance pour votre réponse

Novice72

[SfJ5Rpw8]

ok .. je vais passer la main ... pourquoi me parle tu encore de ta variable ly de tes IF ....

je te demande juste le code que tu utiliserais pour appeler ta macro sans aucun tests parasites ... juste ton CALL et dis nous si cela fonctionne...


on verra ensuite pour tes IF et tes CASES...

[Theze]

Bonjour,

Dans un module standard ces 3 macros de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub caumont()
    MsgBox "caumont"
End Sub
 
Sub Lemonnier()
    MsgBox "Lemonnier"
End Sub
 
Sub Monnet()
    MsgBox "Monnet"
End Sub

dans le module de la Form, 1 TextBox nommé "TextBox1" et 1 bouton nommé "CommandButton1" (ce sont les noms par défaut). lancer la Form, entrer une valeur dans le TextBox (1 pour "caumont", 2 pour "Lemonnier" et n'importe lequel pour "Monnet") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CommandButton1_Click()
 
    Dim ly As Integer
 
    ly = CInt(TextBox1.Text)
 
    Select Case ly
 
        Case Is = 1
            caumont
 
        Case Is = 2
            Lemonnier
 
        Case Else
            Monnet
 
    End Select
 
End Sub

Hervé.

[Novice72]

Bonjour Theze,

Je ne comprends pas pourquoi je dois créer des textbox et un bouton.....
en tout cas ça ne change pas mon problème. En effet, mon souci, je pense, c'est que les "sous macros" ( qui sont dans le module1 ) doivent être lancée par le résultats d'une procédure ( d'une calcul ) et non pas par un bouton.

Excuses moi, mais je suis PERDU !!!!
Veux-tu que je t'envoie un bout de mon programme ???


J'ai cru comprendre sur les forums qu'il n'y a que 6 façons de lancer une macro ( bouton, raccourci clavier, etc...... ) MAIS PAS PAR DU TEXTE ?????

D'avance Merci

Novice72

[Novice72]

bonsoir,
Peux-tu juste répondre à cette question :
Comment lancer une macro à partir d'un programme ( donc avec du texte ). ???

PS : Sachant que la macro à lancer est dans le module1 contrairement au programme qui appartient à un bouton d'userform.

Merci

Novice72

[patricktoulon]

bonjour a tous WAHOUH !!!!!!débutant oui mais pas sourd quand même ,ni aveugle !!!on vient de te l'expliquer une macro dans un module quelconque s'appelle dans un évènement d'un control voir même de l'userform et quand je dis évènement je veux (click,move, mousedown,etc....) c'est pas compliqué a comprendre par curiosité tu enseigne quoi?

[Docmarti]

Bonjour.

Mets une commande Stop dans ton code pour en interrompre l'execution. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 Select Case ly
  Stop
     Case Is = 1
       Call caumont
     Case Is = 2
       Call Lemonnier
........
      Case Else
       Call Monnet
     End Select

Puis utilise la touche F8 a plusieurs reprises pour continuer l'execution Pas A pas jusqu'a ce que tu arrives a la ligne qui provoque l'erreur.

[Theze]

Bonjour,

MAIS PAS PAR DU TEXTE ?????

Pourquoi crier ?
L'exemple que j'ai posté c'est juste pour que tu puisse comprendre le fonctionnement de l'appel d'une procédure selon la valeur d'une variable après, que ce soit sur "Click" d'un bouton et comme le dis Patrick, sur n'importe quel autre évènement, ou encore de la manière que tu veux, si tu lance le code qui est attaché au bouton tu aura une des macro qui sera appelée !
D'un autre coté, bbil t'a posé une requête qui est restée sans réponse de ta part :

je te demande juste le code que tu utiliserais pour appeler ta macro sans aucun tests parasites ... juste ton CALL et dis nous si cela fonctionne...

Hervé.

[Invité]

Bonjour,
Hormis les is = qui en l'espèce ne sont pas utiles, le select case est plus maintenable que les if imbriqués et il est correcte!

Effectuer un branchement à une. Sub routine avec un call, pourquoi pas!

Reste, par élimination, à regarder du côté du caumont!

[Tooth]

Bonjour,

Plus simplement, pour appeler une autre fonction, il ne faut pas mettre les parenthèses après le nom de la macro ? Dans son cas il y a peut être des arguments dans ces différentes fonctions et c'est peut être la que ça coince.

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call Caumont()

[Novice72]

Non je ne crie pas. Je pose simplement une question qui, à mon sens ne trouve pas de réponse ( ou réponse Hors Sujet ). Bbil m'a demandé le code pour lancer les macros (c'est ce que j'essaie de faire avec call caumont ) . Donc quand on me dit que je ne réponds pas à sa requête.......

Pour Patrick : J'enseigne les mathématiques ( avec des mots simples compris de tous sinon je réponds aux élèves qui ne les comprennent pas sans arrogance ! ). Je ne suis ni sourd ni aveugle mais la commuication c'est peut-être le "récepteur" mais aussi "l'émetteur"
tu parles d' évènement d'un control voir même de l'userform et quand je dis évènement je veux (click,move, mousedown,etc....) . Là je commence à comprendre ce que veux dire évènement. Bref.......

J'ai trouvé la solution : Il fallait tout simplement remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call caumont

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

module1.caumont

. Maintenant ça marche...

Encore Merci à vous tous pour le temps passé pour résoudre mon problème. ( je suis vraiment novice )


NOVICE72

[patricktoulon]

bonjour
pour moi c'est du grand nimporte quoi!

pourquoi faire simple quand on peut faire compliqué hein!!!

dans un userform avec un bouton et le textbos "ly"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
[Private Sub CommandButton1_Click()
Select Case ly
       Case 1
        caumont
     Case 2
        Lemonnier
      Case Else
        Monnet
     End Select
End Sub

et dans le module standard 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub caumont()
MsgBox "caumont"
End Sub
Sub Lemonnier()
MsgBox "Lemonnier"
End Sub
Sub Monnet()
MsgBox "Monnet"
End Sub

et basta ca roule
et quoi que la il y aurait encore a dire que l'on peut encore simplifier la chose
exemple 2:

dans le userform avec tes 2 controls tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
quel_lycée ly
end sub

et dans le module standard tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub quel_lycée(ind)
msgbox switch(ind=1,"caumont",ind=2,"lemonier",ind>2,"monet")
ens sub

voila !!!!

[Docmarti]

J'ai trouvé la solution : Il fallait tout simplement remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call caumont

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

module1.caumont

. Maintenant ça marche...

... ( je suis vraiment novice )

Apparemment tu as une feuille dont la propriété NAME est "caumont" et une procédure qui s'appelle "caumont". Si c'est le cas,
dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call caumont

"caumont" réfère à la feuille et non à la procédure, d'où l'erreur.