Discussion :

[ericdev67]

Bonjour,

Je cherche à afficher les éléments d'une feuille lors d'un survol de la souris.....

Je mets exceptionnellement un fichier en PJ dès le 1er post......juste pour que ce soit plus clair....

En fait, je cherche à faire : je survol une cellule (contenant le total) et lors du survol, les résultats s'affichent....

Une petite aide ?

(c'est un fichier test, d'où les valeurs "inutiles"....
En vous remerciant pour votre aide,

[ESVBA]

regarde ce lien : http://www.developpez.net/forums/d14...vol-d-cellule/

Bonsoir

ESVBA

[Theze]

Bonjour,

Une autre solution, utiliser un lien hypertexte. Explications, tu sélectionnes une cellule dans ta feuille puis tu exécutes cette proc et ensuite, tu survoles la cellule pour voir le résultat. Ce sera plus compliqué si tu veux l'info en dynamique mais à toi de nous dire quand et comment les infos vont changer et à ce moment là, on pourra voir :

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
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Cel As Range
    Dim Info As String
 
    Set Fe = ActiveSheet
    Set Cel = ActiveCell
 
    'ici le texte devant apparaître dans l'info-bulle du lien hypertexte
    'à adapter... Si l'info doit être dynamique ça sera plus compliqué !!!
    Info = "Eric1 Essaitotal1-1 Essaitotall1-1 Essaitotalll1-1" & _
           "Eric1 Essaitotal1-2 Essaitotall1-2 Essaitotalll1-2" & _
           "Eric1 Essaitotal1-3 Essaitotall1-3 Essaitotalll1-3" & _
           "Eric1 Essaitotal1-4 Essaitotall1-4 Essaitotalll1-4" & _
           "Eric1 Essaitotal1-5 Essaitotall1-5 Essaitotalll1-5" & _
           "Eric1 Essaitotal1-6 Essaitotall1-6 Essaitotalll1-6" & _
           "Eric1 Essaitotal1-7 Essaitotall1-7 Essaitotalll1-7"
 
    'crée un lien hypertexte interne à la feuille et faisant référence à la cellule elle-même
    'afin de ne pas changer la sélection si clic sur le lien
    Fe.Hyperlinks.Add Cel, "", Fe.Name & "!" & Cel.Address(0, 0), Info
 
    'vire la couleur et le soulignement du lien
    With Cel.Font
 
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
 
    End With
 
End Sub

[ericdev67]

Merci ESVBA,

Mais je cherche à avoir ce qui est affiché dans la feuille "détail" (de mon fichier), alors que cette macro "grossit" le tableau.....

Merci Theze,

oui, je comprends la logique de ta proposition, mais.....effectivement, il faut du dynamique.... : lorsque je survole D3 (et non pas D4 comme je l'ai mis dans mon fichier....excusez pour la coquille...), le code doit chercher dans la feuille "détail" le tableau correspondant et l'affiche.....

Je sais, pas simple (enfin pour moi...), mais cela permet une lecture plus rapide......

Une fois de plus, j'essaye de trouver la solution via JB et son site bourré de super tuto...:http://boisgontierjacques.free.fr/, et dans "évènementiel", il semblerait qu'il y ait une solution.....

Code :

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

1
2
3
4
5
6
7
8
9
10
Survol texte dans une cellule
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If X < 5 Or X > Label1.Width - 5 Or Y < 5 Or Y > Label1.Height - 5 Then
     ActiveSheet.Shapes("monshape").Visible = False
     Label1.ForeColor = vbBlack
  Else
   ActiveSheet.Shapes("monshape").Visible = True
   Label1.ForeColor = vbRed
  End If
End Sub

si "monshape" pouvait afficher la plage correspondante dans "détail" il semblerait que cela puisse fonctionner.....En fait, je n'arrête pas de faire des essais non concluants....: je n'arrive pas à remplacer "monshape" par la plage de cellule de "Détail".....

Merci pour votre aide,
A+

[boisgontierjacques]

Bonjour,


Exemple d'affichage d'un commentaire dans une cellule qui contient le produit de 2 autres cellules

Boisgontier

[ericdev67]

Merci JB,

Merci pour ce code, il me redonne espoir....

Mais je cherche à afficher une plage de cellule (qui se trouve dans ma feuille "détail") et là, je n'affiche qu'une seule cellule et/ou je n'ai pas compris la logique de votre code...

En vous remerciant,

[boisgontierjacques]

Voir essai en PJ

Boisgontier

[ericdev67]

Merci JB,

Effectivement, cela commence à ressembler à ce que je recherche

2 questions :
comment définir "eric1" ? (= définir que Détail!A2 : D8 = plage=eric1) ?
comment définir le survol souris ? (= la valeur "d" peut être changeante....dans mon exemple, si survol en E3, affichage de la plage Détail!G2:J6)

En vous remerciant,

[ericdev67]

Bonjour,

Une autre solution envisageable serait d'utiliser un USF, qui, au survol de la cellule, afficherait les élements correspondants de "Détail".....

Merci pour votre aide,

[ericdev67]

Bonjour,

Toujours en train de chercher....

En fait, en regardant de près les tutos de JB, le tuto sur

Visu Champ Survol

correspondrait à ce que je recherche....en se disant que la "photo" pourrait être le tableau en "détail", mais.....je n'arrive vraiment pas à le modifier....
Peut-être qu'en fait, le survol souris pose trop de soucis....en utilisant "target" (=donc en sélectionnant la cellule), ce serait peut-être plus simple.....

En vous remerciant pour votre aide,

[patricktoulon]

bonjour
exemple sur label dynamique

classeur en pièce jointe

[Theze]

Bonjour,

Le plus simple alors est d'utiliser l'évènement "Change" de la feuille !

[ericdev67]

Merci patricktoulon, (bouh...on a perdu....)

Merci pour ce code, très original et sympa, il y a quelques bugs (surement liés à mon vieil ordi) lorsque je descends le carré rouge (=il descends, il remonte). J'ai essayé de modifier le code par rapport à ce que je cherchais (=éléments dans la feuille2), en modifiant

Code :

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

Set suport = Feuil2.ChartObjects.add(500, 20, Range(addr).Width, Range(addr).Height)

, mais cela n'a pas fonctionné...
Si j'ai bien compris, il va falloir aussi que je mette toutes les adresses de références de mes plages pour provoquer l'affichage....bon avec une macro ce sera réalisable, (je mets l'adresse dans la colonne suivante), mais lorsque je vais cliquer et/ou survoler ma cellule, comment faire pour que le code prenne l'adressage qui est dans la cellule voisine ? Pas clair.... :si je prends mon fichier de base, admettons que je mette l'adressage en E3, si je survole D3, comment pourra-t-il "comprendre" que l'adresse est en E3 ?

Merci pour votre aide,


Merci Theze,

pas très à l'aise avec les évènements....vous me conseillez d'utiliser le clic sur cellule (=qui va déclencher l'évènement) pour afficher mes plages ?

En vous remerciant pour votre aide,

[patricktoulon]

re
la même chose sur ton fichier

[ericdev67]

Super merci patricktoulon,

J'ai compris pourquoi cela ne fonctionnait pas....(je parle de mes essais, pas de votre code qui fonctionne très bien !)

j'ai utilisé votre possibilité d'aller sur plusieurs colonnes

Code :

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

 If Button = 1 Then .Left = .Left + (x - dX): .Top = .Top + (y - dY) ' si tu veux naviguer sur plusieurs colonnes

, car ce qui m’intéresse, c'est qu'au survol (=déplacement du carré rouge) sur le 7 (=D3), ou le 5 (=E3), etc...la plage correspondante s'affiche.

Je vois bien qu'on y est presque puisque dans votre code, au survol de la colonne C, les plages apparaissent.

Pour info, Eric1, Eric2, Eric3 sont des personnes différentes, et donc ont des "Total1", "Total2", etc....différents. C'est un peu comme un TCD...

En vous remerciant pour votre aide.

[patricktoulon]

Bonjour
j'avoue que c'est très confus tes explications
je comprend pas très bien le rapport entre 7 et d3 etc... surtout que tu a justement ces chiffres dans ces emplacement

alors a quoi correspondent ces chiffres exactement essaie d'être plus précis car la!!! c'est du guacamole

[ericdev67]

Merci patricktoulon,

Effectivement, ce n'était pas très clair....

J'ai mis en PJ le fichier test, avec le résultat recherché...

Plus j'y travaille, plus je me dis que la feuil2 qui décompose le tableau, est finalement inutile,....

En te remerciant pour ton aide,

(et tu as raison, le guacamole, c'est meilleur à l'apéro....surtout avec le temps qu'on a....)

[patricktoulon]

re
oui compris regarde demain ca va être un peu plus compliqué

[ericdev67]

Re,

Ok, je comprends mieux pourquoi je galère autant...

(au fait je suis allé sur le lien : survol des bouton dans userform, n'aurais-tu pas un fichier test SVP que je puisse voir et/ou comprendre le résultat final et analyser le code....suis un authentique auto-didacte qui grâce à ce type de code, fait des essais, essaye de voir comment les utiliser/ré-utiliser, etc.......) Merci

Merci pour ton aide,

[ericdev67]

bonjour,

Je suis toujours en galère et n'arrive pas à trouver une piste....

je cherche toujours à afficher des valeurs d'un tableau (fichier "test" du post #17) au survol et/ou clic souris...

une petite aide ?

En vous remerciant,