Discussion :

[tof23]

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 :

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

[ouskel'n'or]

Je n'ai pas regardé ton code mais si tu places dans une variable le nom de l'image au moment de l'afficher, tu as son nom... Bien sûr, ta "Picture" ne s'en "souviendra pas"
Tu peux faire ça ?

[tof23]

Merci ouskel'n'or pour ta réponse.
C'est déja le cas. Le nom des pictures est une variable.
Je souhaite que la macro lancée prenne en compte que j'ai cliqué sur la "picture 10" et non la "picture 9 ou 11". Et çà je n'arrive pas à le faire.
Peut être que mon principe est complètement faux et qu'il existe un aute moyen d'y arriver.
Merci de ton aide.