Créer des noms de variables

Bonjour à tous,

je suis en train d'optimiser la gestion des raccourcis d'une petite application réalisée sous Excel/VBA.

C'est simple, lorsque l'utilisateur appuie sur CTRL + touche du pavé numérique de 0 --> 9, le n° correspondant à la courbe s'affiche ou non dans un graphique.

Ctrl + 1 => courbe n°1 affichée ou désactivée.

Pour alléger mon code je voudrais passer en paramètre le n° de courbe/touche appuyé :

Code:

---

1 2 3 4 5 6 7 8

Dans THIS WORKBOOK / OPEN Application.OnKey "^{96}", "ctrl_pavenum(0)" Application.OnKey "^{97}", "ctrl_pavenum(1)" Application.OnKey "^{98}", "ctrl_pavenum(2)" Application.OnKey "^{99}", "ctrl_pavenum(3)" ... Application.OnKey "^{106}", "ctrl_pavenum(9)"

---

Dans mon module :

Code:

---

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

Public Sub ctrl_pavenum(lng) ' Paramètre passé : lng   Select Case lng Case 0: val_bool_chk = Feuil2.chk_s0.Value Case 1: val_bool_chk = Feuil2.chk_s1.Value Case 2: val_bool_chk = Feuil2.chk_s2.Value Case 3: val_bool_chk = Feuil2.chk_s3.Value Case 4: val_bool_chk = Feuil2.chk_s4.Value Case 5: val_bool_chk = Feuil2.chk_s5.Value Case 6: val_bool_chk = Feuil2.chk_s6.Value Case 7: val_bool_chk = Feuil2.chk_s7.Value Case 8: val_bool_chk = Feuil2.chk_s8.Value Case 9: val_bool_chk = Feuil2.chk_s9.Value End Select   Select Case val_bool_chk Case True: val_bool_chk = False Case False: val_bool_chk = True End Select

---

Cependant, celà ne fonctionne pas car j'obtiens le message "Impossible de trouver la macro 'ctrl_pavenum(1)'. Peut-être est-ce tout simplement pas possible ?

Hello,

Je n'ai pas regardé le code, mais ne manquerait-il pas :

Code:

---

End Sub

---

A placer à la fin.

Les codes pour 0 a 9 ne sont-ils pas ceux-ci

48 0
49 1
50 2
51 3
52 4
53 5
54 6
55 7
56 8
57 9


Pour le moment, je n'arrive pas a passer le paramètre à la fonction.
En attendant, j'ai essayé ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Application.OnKey "^{48}", "ctrl_pavenum" Application.OnKey "^{49}", "ctrl_pavenum" Application.OnKey "^{50}", "ctrl_pavenum" Application.OnKey "^{51}", "ctrl_pavenum"   End Sub

---

Code:

---

1 2 3 4 5 6

Sub ctrl_pavenum()   MsgBox "c'est ca"   End Sub

---

Il reste donc a passer le paramètre, je regarde et je reviens.

Bonjour aalex_38, effectivement j'ai oublié de copier le End Sub dans le message, mais il est bien dans mon code. Donc le soucis, n'est pas à ce niveau là.

:lol: As-tu vraiment lu mon message ? :D

Bon toujours pas de paramètre mais une solution de contournement :

Pourquoi ne pas faire une macro par touche CTRL

Avec

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() Dim j As Integer   For I = 0 To 9 j = 48 + I Application.OnKey "^{" & j & "}", "ctrl_pavenum" & I Next End Sub

---

Et dans ton module, les macros correspondantes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ctrl_pavenum0() MsgBox "ca marche" End Sub   Sub ctrl_pavenum1() MsgBox "ca marche aussi" End Sub . . .

---

Bonjour aalex_38, effectivement je n'avais pas vu que tu n'étais pas l'auteur de la première réponse ;-)

J'ai adopté le code que tu as proposé, ce qui me fait l'économie de plusieurs lignes, merci. J'aurais vraiment souhaité passé des paramètres à la procédure, mais visiblement ce n'est pas possible ?

Franchement je ne sais pas si c'est possible, pour l'instant je n'ai pas trouvé...

Bonjour,

Code:

---

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

'Dans un module standard Sub ctrl_pavenum(KeyCode As Integer) MsgBox KeyCode End Sub   'Dans ThisWorkbook Private Sub Workbook_Open() Dim j As Integer, i As Integer For i = 0 To 9 j = 48 + i Application.OnKey "^{" & j & "}", "'ctrl_pavenum " & i & "'" Next End Sub

---

Testé sur un PC portable dépourvu de pave numérique, j'ignore si ca fonctionne sur un clavier standard.

Cordialement,

Tirex28/

Super tirex28, ça marche !

Encore bravo pour cette solution :king:

Par pure curiosité, comment expliquer que ça fonctionne avec cette syntaxe ?

Bonjour,

Citation:

---

Par pure curiosité, comment expliquer que ça fonctionne avec cette syntaxe ?

---

Il faudrait poser la question aux concepteurs de vba mais c'est le même principe pour les cousines de OnKey:

Code:

---

1 2 3 4 5 6 7 8 9

Sub AvecParametre(p As Long) MsgBox p End Sub   Sub Test() Application.OnTime Now + TimeValue("00:00:01"), "'AvecParametre 1'"   Application.Run "'AvecParametre 2'" End Sub

---

Bonne journée,

Tirex28/

Je suis de retour, et j'ai une petite question bonus à vous poser !

J'utilise donc des raccourcis clavier type "ctrl+gauche" pour manipuler facilement des graphiques, est-il possible de restreindre l'utilisation de ces raccourcis claviers à une feuille particulière ?

Celà permettrait l'usage des raccourcis classiques d'Excel (ctrl+bas pour aller tout en bas par exemple) sur les autres feuilles. :D

La solution temporaire en attendant de trouver mieux :

Code:

---

1 2 3 4 5

ThisWorkbook ' Déplacement sur x min (ctrl) Application.OnKey "^{37}", "ctrl_fleche_gauche" ' Flèche gauche Application.OnKey "^{39}", "ctrl_fleche_droite" ' Flèche droite ...

---

Code:

---

1 2 3 4 5 6 7 8

' X MIN - Public Sub ctrl_fleche_gauche()   If (ActiveSheet.Name = "Feuil2") Then Call x_temps_plus_moins(Feuil2.combo_x1_delta_date_min_max.Value, "min", "moins") End if   End Sub

---

Le problème est que l'on ne retrouve pas l'usage des raccourcis classiques sur les autres feuilles.

Bonjour,

Si le graphique est sur sa propre feuille tu peux utiliser ses propres évènements pour gérer tes raccourcis:

Code:

---

1 2 3 4 5 6 7 8 9 10

'Dans le module de la feuille graphique Private Sub Chart_Activate() 'Personnalisation des raccourcis Application.OnKey "^{37}", "ctrl_fleche_gauche" ' Flèche gauche End Sub   Private Sub Chart_Deactivate() 'Restauration des raccourcis Application.OnKey "^{37}" ', "ctrl_fleche_gauche" ' Flèche gauche End Sub

---

S'il s'agit d'un graphique incorporé à une feuille de calcul tu te sers des évènements de cette feuille:

Code:

---

1 2 3 4 5 6 7 8 9 10

'Dans le module de la feuille contenant le graphique: Private Sub Worksheet_Activate() 'Personnalisation des raccourcis Application.OnKey "^{37}", "ctrl_fleche_gauche" ' Flèche gauche End Sub   Private Sub Worksheet_Deactivate() 'Restauration des raccourcis Application.OnKey "^{37}" ', "ctrl_fleche_gauche" ' Flèche gauche End Sub

---

Cordialement,

Tirex28/

Merci Tirex, c'est vrai je n'y avais pas pensé. C'est grace à des personnes comme toi qu'on progresse ! :king: