Discussion :

[ericdev67]

Bonjour,

J'ai un classeur, 2 feuilles. Feuil1, des tableaux avec des données. Feuil2, les résultats sous forme de graphiques de ces tableaux.

(Je sais que je pourrais utiliser un format de graphique avec les données en dessous (cf création de graphique avec Excel), mais afin de faciliter la vision de l'ensemble (il y a beaucoup de données, et donc de graphiques), je ne souhaite pas utiliser cette possibilité.)

Donc je cherche à mettre sous le graphique un lien (exemple : "Chiffres"), lorsque je clique (et maintien sur ce clic) sur "Chiffres", le tableau des données apparait, puis disparait lorsqu'on lache le clic.

Donc quand clic, on cherche les coordonnées du tableau dans la feuil1, on ouvre la plage de données du tableau.

Pour l'instant j'ai utilisé le lien hypertexte, mais ça ouvre complètement la Feuil1, et je suis à chaque fois obligé de fermer et/ou re-sélectionner la Feuil2....


Une idée ?

merci,
A+

Pour le clic souris, j'ai l'impression qu'il va falloir que je passe par un

Code :

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

MouseUp  MouseDown

, mais je n'arrive pas à sélectionner les plages de cellules du tableau.....

Une idée/orientation ?

Merci,

A+

En fait, je cherche à faire comme un commentaire : lorsqu'on insère un commentaire dans une cellule, en passant dessus, le commentaire s'ouvre.....

j'explore cette possibilité depuis 3h, mais....je n'ai pas l'impression que c'est la bonne solution......enfin, si pour le résultat final, mais de mettre le tableau de données dans ce commentaire......

Donc si quelqu'un à une idée ou une autre idée, je suis preneur.....

Merci,

A+

[ericdev67]

Je suis encore resté un peu sur les commentaires avec un

Code :

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

1
2
3
4
  Range("P8").Select
    Range("P8").AddComment
    Range("P8").Comment.Visible = False
    Range("P8").Comment = Range("G7:L16").Value 'Text:=Range("G7:L16").Value

Mais j'ai toujours une erreur (=objet)...Normal, certes, mais j'ai encore plus galéré avec les

Code :

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

Mouse

Toujours pas une petite idée ?

Merci,

A+

[ericdev67]

J'ai regardé dans les possibilités, et/ou le forum, j'ai bien trouvé le tuto de Silkyroad concernant le "clic-souris", j'arrive à avoie l'évènement "clic", mais impossible d'avoir l'ouverture d'une plage de cellule....

Je fais fausse route ?

Merci,

A+

[ericdev67]

Toujours en encore.....

C'est bon, j'arrive à créer l'évènement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim x As Long
    Dim lngColorIndex As Long
 
    Cancel = True
 
    ' Cherche coordonnées
    Sheets("Feuil2").Cells(2, 2) = Sheets("Feuil1").Range("A1")
 
 
End Sub

Mais je n'arrive qu'à récupérer la cellule A1, alors que je cherche à récupérer A1-B20. J'ai essayé avec

Code :

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

Sheets("Feuil1").Range("A1:B20")

et ça ne fonctionne pas....je pense que c'est que le format de mon clic droit (=cellule B2), n'est pas le même que A1:B20..... Je ne désespère pas, mais.....dur-dur de faire afficher la plage de cellule.....

Une idée ?

Merci,
A+

[mercatog]

Une proposition
On suppose qu'on veux faire un clique droit sur la cellule D12 de Feuil1 pour faire apparaitre la plage A1:C5 de Feuil2 (en image) et un double clique sur D12 de feuil1 supprime cette image
On suppose que tu n'as pas d'autres images sur ta feuille Feuil1

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
'Insère l'Image, image de A1:C5 de Feuil2 sue clique droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim shp As Shape
 
If Target.Address(0, 0) = "D12" Then
    Cancel = True
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then shp.Delete
    Next shp
    Range("D13").Select
    Sheets("Feuil2").Range("A1:C5").Copy
    ActiveSheet.Pictures.Paste
    Application.CutCopyMode = False
End If
End Sub
 
'Supprime l'image sur double clique en D12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shp As Shape
 
If Target.Address(0, 0) = "D12" Then
    Cancel = True
    For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then shp.Delete
    Next shp
End If
End Sub

[ericdev67]

Trop top mercatog

C'est exactement ce que je cherchais à avoir !!!!!

J'ai exploré pas mal de possibilités, mais l'idée de passer par une image est excellente !!! et surtout apporte la solution à mon problème

Merci à toi pour cette très bonne idée, et surtout ce très bon code !!! Je n'ai plus qu'à l'adapter à mon classeur.

(pour info aux memebres du forum, il faut positionner ce code dans l'objet "Feuil1" pour qu'il fonctionne)

Merci mercatog,

A+ pour de prochaines aventures