Discussion :

[e040098k]

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 :

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

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 ?

[Invité]

Bonjour,

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

Code :

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

Run opt & TB_ChoixOption.Value & _Click

[e040098k]

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!"


!!!!

[wilfried_42]

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 :

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

1
2
3
Sub Go_Opt()
 
end sub

maintenant la macro

Code :

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

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

[Invité]

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" ?

[wilfried_42]

re:

c'est peut etre la le probleme jacques_jean

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

[Invité]

Bonjour Wilfried42,

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

Code :

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

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 :

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

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