XL 2016 liste survol

eastwick

XLDnaute Accro

• 22 Juillet 2022

• #16

Ce fichier n'est pas pour moi, l'utilisateur a opté pour la méthode AL 22... (vraiment !)
Néanmoins je loue tous les services que vous m'avez rendus, job75.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2022

• #17

C'est l'inconvénient de laisser le choix à des gens qui n'y connaissent rien.

Alors à chaque fois que vous modifierez la liste il faudra modifier le groupe de Shapes.

 

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 22 Juillet 2022

• #18

Bonjour à tous,

Bon et bien voici le classeur modifié avec une référence supplémentaire.

Vous trouverez quelques conseils permettant de rajouter une forme (shape).

Bonne fin de journée
Cordialement

AL 22

 

Pièces jointes

• liste survol.xlsm

  66 KB · Affichages: 6

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Juillet 2022

• #19

merci bien

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Juillet 2022

• #20

Bonour au fi

job75 à dit:

C'est l'inconvénient de laisser le choix à des gens qui n'y connaissent rien.

Cliquez pour agrandir...

Ce n'est pas très sympa pour nore ami @AL 22

P.S. Même s'il ne réponsd pas directemet à la question, mon fichier a l'air d'être transparent
Cordialement

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Juillet 2022

• #21

AL 22 à dit:

Bonjour à tous,

Bon et bien voici le classeur modifié avec une référence supplémentaire.

Vous trouverez quelques conseils permettant de rajouter une forme (shape).

Bonne fin de journée
Cordialement

AL 22

Cliquez pour agrandir...

J'ai bien suivi vos consignes, scrupuleusement même... Impossible d'afficher la ligne choisie dans le shape groupé. Grosse galère, il me dit que la macro Groupe2_Cliquer n'est pas disponible.
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Affichage des choix*******************************************************************************

On Error Resume Next
If Target.Count > 1 Then Exit Sub
Shapes("Groupe 2").Visible = msoFalse
On Error GoTo 0

If Not Intersect(Target, Range("G2:G2448")) Is Nothing Then
Sheets("totaux").Range("V44").Value = Target.Row
Choix_Liste
Else
Shapes("Groupe 2").Visible = msoFalse
Sheets("totaux").Range("V44").ClearContents
End If

End Sub

Bizarre, merci !

 

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 23 Juillet 2022

• #22

Bonjour eastwick, job75, Efgé, soan, patricktoulon, bonjour à tous,

Attention !
Assurez-vous que le shape porte strictement le même nom que la macro.

Dans votre post21, vous écrivez :

il me dit que la macro Groupe2_Cliquer n'est pas disponible

Cliquez pour agrandir...

et dans la macro on trouve :

Shapes("Groupe 2").Visible = msoFalse

Cliquez pour agrandir...

Il y a un espace après "Groupe"

Quelque soit son nom, il doit porter le même nom pour être reconnu.



J'espère que cela vous débloquera !

Bonne journée

AL 22

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2022

• #23

Bonjour eastwick, le forum,

Avec une ListBox comme le suggère patricktoulon au post #10 c'est très simple :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ListBox1.Visible = False
If Intersect(ActiveCell, Range("A2:A6,A8:A12,A14:A18")) Is Nothing Then Exit Sub
With ListBox1
    .ListFillRange = "Liste"
    .LinkedCell = ActiveCell.Address
    .Top = ActiveCell.Top
    .Left = ActiveCell(1, 2).Left
    .Visible = True
End With
End Sub

Si l'on modifie le nombre d'éléments de la liste il faut ajuster manuellement la hauteur de la ListBox.

A+

 

Pièces jointes

• liste survol.xlsm

  25.9 KB · Affichages: 5

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Juillet 2022

• #24

Bonjour Le Forum 🙂
@ job75
Pour info :
Chez moi, il ne se passe rien au survol la souris. Il faut cliquer sur la cellule pour afficher.
Lionel 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2022

• #25

Usine à gaz à dit:

Bonjour Le Forum 🙂
@ job75
Pour info :
Chez moi, il ne se passe rien au survol la souris. Il faut cliquer sur la cellule pour afficher.
Lionel 🙂

Cliquez pour agrandir...

Bonjour Lionel,

Tu n'as pas suivi, le post #23 n'a rien à voir avec le survol.

C'est juste un remplacement des Shapes de AL 22.

Le survol c'est avec la ComboBox des posts #5 et #12.

A+

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 23 Juillet 2022

• #26

Un immense merci aux fidèles qui me font avancer dans mon travail, vous êtes indispensables

 

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 23 Juillet 2022

• #27

Bonsoir
La discussion étant toujours en cours, je me permet une contribution.
on peut créer un "pseudo" évènement Mouse_Mouve.
Pas besoin de sélectionner la cellule.
avec GetCursorPos et ActiveWindow.RangeFromPoint.

Dans la démo il faut cliquer sur le bouton et survoler la colonne A avec la souris.
!! je suis en WIN32

 

Pièces jointes

• move_mouse2.xlsm

  53.7 KB · Affichages: 8

Vote positif 0 Vote négatif