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.

 

[job75]

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+

 

[Efgé]

Bonjour à tous

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

Avec une astuce, oui.

Cordialement

 

[eastwick]

Merci !

 

[job75]

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 :

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+

 

[eastwick]

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...

 

[AL 22]

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

 

[soan]

Bonsoir AL 22, le fil,

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

soan

 

[AL 22]

Re,

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

A+

 

[patricktoulon]

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

 

[job75]

Bonjour le forum,

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

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

A+

 

[job75]

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

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ù.

 

[eastwick]

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

 

[eastwick]

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

 

[job75]

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 :

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

A+