Discussion :

[hugo24489]

Bonjour,

Je suis nouveau sur le forum et galère un peu pour trouver une solution à mon problème.

En effet, j'ai associé plusieurs macros à des raccourcis claviers.

Cependant, j'aurai aimé que plusieurs macros soient rassemblés sur un unique raccourci clavier.

Pour être plus précis, j'ai 3 macros (avec 3 raccourcis claviers associés) qui me permettent de changer le style d'une cellule et j'aurai aimé qu'il n'y ait qu'un raccourci clavier permettant de choisir entre ces 3 macros =>

Si je fais CTRL + D => macro 1
si je rappuis uniquement sur D (en maintenant CTRL)=> macro 2
et ainsi de suite... jusqu'à ce que je revienne sur la macro1.

Auriez-vous une solution?

Merci beaucoup par avance!

[Theze]

Bonjour,

Une piste avec une variable Statique :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Test()
 
    Static A As Integer
 
    A = A + 1
 
    If A = 4 Then A = 0
 
    Select Case A
 
        Case 0: Macro1
        Case 1: Macro2
        Case 2: Macro3
        Case 3: Macro4
 
    End Select
 
End Sub
 
Sub Macro1()
    ActiveCell.Interior.ColorIndex = 3
End Sub
 
Sub Macro2()
    ActiveCell.Interior.ColorIndex = 5
End Sub
 
Sub Macro3()
    ActiveCell.Interior.ColorIndex = 8
End Sub
 
Sub Macro4()
    ActiveCell.Interior.ColorIndex = 0
End Sub