XL 2016 liste survol

job75

XLDnaute Barbatruc

• 8 Juillet 2022

• #2

Bonjour eastwick,

Le survol d'une cellule ne crée aucun évènement en VBA.

Il permet l'affichage du commentaire s'il y en a un.

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 8 Juillet 2022

• #3

Bonjour à tous

job75 à dit:

Le survol d'une cellule ne crée aucun évènement en VBA.

Cliquez pour agrandir...

Avec une astuce, oui.

Cordialement

 

Pièces jointes

• AuSurvol.xlsm

  17.3 KB · Affichages: 20

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 8 Juillet 2022

• #4

Merci !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2022

• #5

Bonjour eastwick, Efgé, le forum,

Le survol d'un contrôle ActiveX crée l'évènement MouseMove.

Voyez le fichier joint et le code de la feuille :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    .Visible = False
    If Intersect(ActiveCell, [A2:A6,A8:A12,A14:A18]) Is Nothing Then Exit Sub
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top - 1
    .Width = ActiveCell.Width + 14
    .Height = ActiveCell.Height + 2
    .LinkedCell = ActiveCell.Address(0, 0)
    .ListFillRange = "Liste"
    .ListRows = [Liste].Rows.Count
    .Visible = True
End With
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button%, ByVal Shift%, ByVal X!, ByVal Y!)
If X < ActiveCell.Width Then ComboBox1.Activate: ComboBox1.DropDown Else ActiveCell.Activate
End Sub

A+

 

Pièces jointes

• liste survol(1).xlsm

  22.8 KB · Affichages: 18

Dernière édition: 9 Juillet 2022

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 9 Juillet 2022

• #6

Merci job75, c'est précisément ce que je souhaitais. Dans les faits, ma liste se trouve sur un autre onglet, j'essaye néanmoins de voir ce que je peux faire...

 

Dernière édition: 9 Juillet 2022

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 9 Juillet 2022

• #7

Bonsoir eastwick, le forum,

Une autre approche avec des shapes qui apparaissent en sélectionnant une cellule dans la plage en jaune et permettent de saisir un choix de la liste puis disparaissent.



J'ai décalé les données sur un autre onglet pour répondre à votre dernier post.
Si vous modifiez les données, elles s'actualisent dans les shapes.

Bonne soirée à tous

AL 22

 

Pièces jointes

• liste survol.xlsm

  22.6 KB · Affichages: 12

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Juillet 2022

• #8

Bonsoir AL 22, le fil,

elle est vraiment très belle,
ta démo animée !

soan

 

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 9 Juillet 2022

• #9

Re,

Merci beaucoup soan pour ton retour.
J'espère que cela répondra à la demande d'eastwick.

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Juillet 2022

• #10

Bonjour a tous
oui c'est pas mal mais ...a ajouter des shapes j'ajouterais une listbox c'est plus simple
et moins compliqué a mettre en place

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juillet 2022

• #11

Bonjour le forum,

patricktoulon à dit:

oui c'est pas mal mais ...a ajouter des shapes j'ajouterais une listbox c'est plus simple
et moins compliqué a mettre en place

Cliquez pour agrandir...

Et surtout ce n'est pas le problème posé (le survol).

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juillet 2022

• #12

eastwick à dit:

Dans les faits, ma liste se trouve sur un autre onglet, j'essaye néanmoins de voir ce que je peux faire...

Cliquez pour agrandir...

Vous remarquerez que la liste source est nommée "Liste" et seul ce nom est utilisé dans la ComBoBox.

La liste peut donc se trouver n'importe où.

 

Pièces jointes

• liste survol(2).xlsm

  23.7 KB · Affichages: 15

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 11 Juillet 2022

• #13

Merci à tous, je reviens vers vous si besoin est...

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 22 Juillet 2022

• #14

Bonjour,
Pas moyen d'actualiser le shape avec un nom supplémentaire (autres) dans le 2ème onglet...
Un petit coup de main serait le bienvenu !

Merci beaucoup

 

Pièces jointes

• liste survol.xlsm

  21.2 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2022

• #15

Bonjour eastwick,

Vous n'avez pas compris que la solution de AL 22 utilise un groupe de 13 Shapes ?

Donc pour actualiser ce groupe c'est forcément la galère.

Aucun problème avec ma solution, il suffit de définir le nom Liste par la formule dynamique :

Code:

=DECALER(Feuil1!$H$2;;;NBVAL(Feuil1!$H:$H)-1)

A+

 

Vote positif 0 Vote négatif