[VBA-E] Macros en cascade
Bonjour,
Je dispose d'un fichier Excel de 2000 lignes pour chaque onglet avec trois niveaux de sous-totaux. Je dois faire une présentation interactive.
Je cherche à développer des macros pour afficher les niveaux en cascade en fonction du sous-total sélecionné.
Ex= Affichage 100,200,300,...2000
Si je clique sur 400, il faudrait l'affichage: 410,420,430,...,490
Si je clique sur 430, il faudrait l'affichage:431,432,...,439
Etc..
J'arrive à afficher le premier niveau, à affecter une image pour chaque ligne, à affecter une macro su chaque image, mais je n'arrive pas pour qu'excel comprenne sur quelle image je clique.
Merci pour votre aide
Ci-joint mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub test()
Dim N As Integer
ActiveSheet.Cells.Delete
ActiveSheet.Pictures.Delete
For N = 1 To 20
Cells(N, 1).Value = 100 * N
Cells(N, 2).Select
ActiveSheet.Pictures.Insert( _
"C:\...\...\Images\loupe.png"). _
Select
Selection.ShapeRange.IncrementLeft 18.75
Selection.ShapeRange.Name = N
Selection.OnAction = "afficher"
Next N
End Sub
Sub afficher()
MsgBox Selection.ShapeRange.Name
End Sub |
[Edit]bbil: Merci de penser à utiliser les balises de codes [ CODE ] .. [ /CODE ] voir bouton http://www.developpez.net/forums/images/editor/code.gif
