XL 2016 liste survol

[eastwick]

Bonjour à tous,
Dans le fichier joint, j'aimerais que les cellules jaunes proposent la liste bleue (F2:F14) simplement en passant dessus, sans avoir besoin de cliquer sur le petit triangle d'une liste classique.
J'aimerais aussi que la liste soit complète à chaque fois, si cela est possible, bien entendu.
Merci bien.

 

[eastwick]

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.

 

[job75]

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.

 

[AL 22]

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

 

[eastwick]

merci bien

 

[Efgé]

Bonour au fi

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

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

 

[eastwick]

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

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 !

 

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

et dans la macro on trouve :

Shapes("Groupe 2").Visible = msoFalse

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

 

[job75]

Bonjour eastwick, le forum,

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

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+

 

[Usine à gaz]

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

 

[job75]

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

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+

 

[eastwick]

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

 

[jm.andryszak]

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