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"

[EvaristeGaloisBis]

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.

[Invité]

Bonjour EvaristeGalloisBis,

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

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).

[EvaristeGaloisBis]

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

[wilfried_42]

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

[EvaristeGaloisBis]

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

[Invité]

oui il faut les guillemets :

Code :

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

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"

[e040098k]

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 :

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

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

[EvaristeGaloisBis]

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

Code :

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

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

[e040098k]

OK! 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)

[EvaristeGaloisBis]

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.

[fring]

Bonjour tlm,

Utilise l'événement KeyDown

Code :

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

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 :

  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
  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 :

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

  1
  2
  3
  4
  5
  Public Num As Byte
   
  Sub TEST()
  Sheets(Num).Select
  End Sub

[e040098k]

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