lancer une macro en construisant son nom

Bonjour,

Je développe une interface de menu pour une petite appli excel. Je vous souhaite que celle-ci puisse s'utiliser aussi bien au clavier qu'à la souris. Ainsi par exemple atteindre une feuille des deux manières différentes

J'ai fait ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub opt1_Click() Sheets("Reguls_de_stock").Select Me.Hide End Sub   Private Sub TB_ChoixOption_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then   opt & TB_ChoixOption.Value & _Click 'Ici je veux qu'il lance l'évenement "opt1_Click"   End If End Sub

---

Comment puis-je dans la 2ème macro lancer la première en utilisant la valeur de TB_ChoixOption ?

Bonjour,

si les 2 macro sont dans le même module il devrait suffire d'ajouter Run :

Code:

---

Run opt & TB_ChoixOption.Value & _Click

---

Bonjour,

Non cela ne fonctionne pas la ligne reste en rouge!

De plus je n'avais pas tester le code mais cle me donne l'erreur suivante au lancement :

"La déclaration de la procédure ne correspond pas à l'évenement ou à la procédure de même nom!"


!!!!:roll:

Bonjour à tous

j'ai deja cherché, mais je n'ai pas trouvé le moyen de lancer un macro à partir d'un variable

alors j'ai triché, j'ai créé le call et je l'ai inserré dans le code

tu crees un module que tu nommes Lance_Opt par exemple
dedans tu mets :

Code:

---

1 2 3

Sub Go_Opt()   end sub

---

maintenant la macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub TB_ChoixOption_KeyPress(KeyAscii As Integer) dim ordre as string If KeyAscii = vbKeyReturn Then ordre = "Call Opt" & TB_ChoixOption.Value With ThisWorkbook.VBProject.VBComponents("Lance_Opt").CodeModule For ligne = 1 To .CountOfLines If .Lines(ligne, 1) = "Go_Opt()" Then .InsertLines ligne + 1, ordre: Exit For Next ligne Call Go_Opt .DeleteLines ligne + 1, 1 End With   End If End Sub

---

Bonjours,

On est toujours surpris quand cela fonctionne chez l'un et pas chez l'autre.
Je n'ai aucun problème pour lancer la macro de ce type.

Avez-vous vérifié en mode débogage le contenu des variables ?

Que contient la variable "opt" ?

re:

c'est peut etre la le probleme jacques_jean

opt n'est pas à mon avis une variable et doit etre traité avec "opt"

Bonjour Wilfried42,

En effet c'est déjà une possibilité mais je viens seulement de voir que le code contient une erreur :

Code:

---

1 2 3 4 5 6 7

Private Sub TB_ChoixOption_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then   opt & TB_ChoixOption.Value & _Click 'Ici je veux qu'il lance l'évenement "opt1_Click"   End If End Sub

---

ici il ne faut pas oublier les "" et vous pouvez ajouter Run devant la ligne.

Code:

---

opt & TB_ChoixOption.Value & "_Click" 'Ici je veux qu'il lance l'évenement "opt1_Click"

---

bonjour,
j'ai testé le run est il fonctionne très bien si le code est contenu dans un module. Par contre il ne focntionne pas quand il est mis dans un sheet ou un thisworkbook.

Par la suite j'ai testé en mettant le tout dans une userforme et sa ne fonctionne pas.
Peut etre faut-il que tu mettes ta fonction appelée dans un module.

Bonjour EvaristeGalloisBis,

Bien vu, c'est évident. Et la procédure

Citation:

---

opt & TB_ChoixOption.Value & "_Click"

---

ne peut se trouver que sur un Userform.

Comme quoi, on peut être obnubilé par une erreur et ne pas
voir l'autre. Il faut parfois un oeil neuf, en tout cas plus
neuf que le mien (et même que les miens).

Merci... Pour une fois que j'arrive a aider quelqu'un sur le forum... :)

re:

question / reponse

ceci ne serait il pas une interruption : _click
je crois avoir vu mais je n'en suis meme pas sur, provoque par vba une interruption....

par contre, mettre à jour un objet sur lequel est associer une interruption, devrait provoquer cette meme interruption

juste une remarque :
Est ce bien _click et non "_click" ?

oui il faut les guillemets :

Code:

---

opt & TB_ChoixOption.Value & "_Click"

---

de plus si "opt" n'est pas une variable, il faut également des guillemets, comme déjà signalé par Wilfried42.

Quant a provoquer une interruption, je le répète, chez moi cela a fonctionné (mais dans un module) et le mot "_click" n'a plus de signification stricte en lui-même, ce n'est plus qu'une partie d'un texte qui sera par exemple :

"opt1_click"

Ok, Excusez moi pour le retard ! Merci pour vos réponses le code d'appel de la macro me semble cohérent!

Seulement je n'arrive pas à le tester car au moment de lancer mon USerForm je bloque toujours sur la ligne :

Code:

---

Private Sub TB_ChoixOption_KeyPress(KeyAscii As Integer)

---

Avec le message suivant :

"La déclaration de la procédure ne correspond pas à la description de l'évenement ou à la procédure de même nom!" :cry:

il n'y a pas un byval ou byref qui traine dans la procédure de l'évenement?

Code:

---

1 2 3

Private Sub TB_ChoixOption_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   End Sub

---

OK! :king: il y avait un ByVal

Maintenant mon UF s'ouvre seulement cela ne reconnait pas la pression de la touche Entrée (aucun effet en mode débogage)

il me semble (pour avoir déja eu un esquisse de ce genre de probeleme) que le "compileur" interpretre la ligne de code comme je lance la macro "truc_KeyPress" et non comme tu le penses : je lance l'evenement "KeyPress" liée a l'objet truc.

Mais a voir par des experts du VBA-E.

Bonjour tlm,

Utilise l'événement KeyDown

Code:

---

1 2 3 4 5

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then '...ce que tu veux faire End If End Sub

---

Comme cela a été dit plusieurs fois (parfois entre les lignes), ce que tu veux faire ne fonctionnera pas, tu ne peux pas exécuter une procédure événementielle au départ d'une autre procédure.

Tu dois passer par une procédure dans un module standard
En gros, pour un userform avec 3 OptionButton et 1 TextBox cela pourrait ressembler à un truc du genre

• dans le module du userform
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

  Private Sub Opt1_Click() Num = 1 TEST End Sub Private Sub Opt2_Click() Num = 2 TEST End Sub Private Sub Opt3_Click() Num = 3 TEST End Sub   Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Num = TextBox1 TEST End If End Sub

  ---

• dans un module standard
  
  Code:

  ---

  1 2 3 4 5

  Public Num As Byte   Sub TEST() Sheets(Num).Select End Sub

  ---

:king::yaisse2:

Nickel !!
Ca fonctionne à merveille!

Il ne me reste plus qu'à trouver le moyen de construire mon user form et le module standard de manière dynamique afin de pouvoir faire évoluer mes options facilement.

MERCI Développez.net !!!