XL 2013 Résolu par Job75, Jacky67, Si : menu cellule affiché en permanence

[Usine à gaz]

Bonjour à toutes à tous,

J'ai une question qui pourra vous paraître curieuse :

J'ai un fichier excel que j'envoie à mes futurs clients et dans ce fichier, j'ai fait mon maximum pour qu'ils aient le moins possible de saisie.

Donc, 95 % du remplissage demandé sont des sélections comme ci-dessous :

Mais voilà, certains (et ils sont nombreux), ne comprennent pas qu'il faut d'abord cliquer dans la cellule pour afficher le bouton du menu déroulant de sélection.

Est-il possible que le bouton déroulant soit affiché en permanence pour les cellules qui en ont ?
Je joins un petit fichier test.

Avec mes remerciements,
Bonne fin de journée à toutes et à tous.
Amicalement,
Lionel,

 

[Jacky67]

Bonjour,
En utilisant un contrôle zone de liste (formulaire ou activeX) ???

 

[job75]

Bonsoir Lionel, Jacky67,

Avec une ListBox et ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ListBox1
  If ActiveCell.Address = "$F$8" Then
    .Top = ActiveCell.Top
    .Left = ActiveCell(1, 2).Left
    .Visible = True
  Else
    .Visible = False
  End If
End With
End Sub

Private Sub Listbox1_Click()
With ActiveCell
  'ici le code
  .Activate 'ôte le focus
End With
End Sub

A+

 

[Usine à gaz]

Bonsoir Job75, Jacky67 ..... toutes et tous,

Un grand merci pour vos deux solutions qui me vont très bien.
Vraiment super moi ..... tu coup, je ne sais que choisir LOL

Je vous souhaite une bonne journée,
Amicalement,
Lionel,

 

[job75]

Bonjour Lionel, Jacky67,

Fichier (2) avec 2 ListBox et une macro paramétrée.

S'il faut plus de ListBox on pourra utiliser un Module de classe.

A+

 

[Usine à gaz]

Re Job75,

C'est super !!!
Mais dans mon fichier, il y a "une "quarantaine" de cellules concernées et je suis bien incapable de faire un module de classe.
Je me permets de vous envoyer un message privé 🙂
Amicalement,
Lionel

 

[Si...]

Bonjour

« je ne sais que choisir », alors prends la mienne 😛 (exemple de survol facilement adaptable à n cas) !

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  List1.Visible = 1: List1.DropDown
End Sub
Private Sub List1_Click()
  List1.Visible = 0: [A1].Select
End Sub

Je laisse la main à Job 😉 pour les Modules de Classe.

 

[Usine à gaz]

Bonjour Si,

Merci LOL de m'avoir répondu et pour les explications qui éclairent ma lanterne.
Amicalement,
Lionel,

 

[Jacky67]

Re...
Il y a quelque chose qui m'échappe
La question était bien.....afficher la flèche en permanence

Les contrôles proposés font cela nativement.....non?

 

[Usine à gaz]

Bonjour Jacky67,

Oui, la question était bien....."afficher la flèche en permanence"
Amicalement,
Lionel

 

[job75]

Re, salut Si...

Jacky67 a raison, mais avec ma solution pas de flèche !

Comme le demande Lionel j'ai ajouté un Module de classe dans le fichier joint.

Il y a du code dans toutes les feuilles ou modules.

A+

 

[Usine à gaz]

Bonjour Job, Jacky67, SI, toutes et tous,

Merci pour cette solution avec module de classe. Je vais voir ça aussi dans le WE.
Bonne journée 🙂
Amicalement,
Lionel,

 

[job75]

Bonjour Lionel, le forum,

En fait une seule ListBox suffit pour toutes les cellules à renseigner.

Il suffit que ces cellules soient dotées d'une validation de données avec formule NB.SI.

Le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim f$, s
On Error Resume Next
f = ActiveCell.Validation.Formula1
With ListBox1
  .Visible = False
  If Not (f Like "=NB.SI(*" Or f Like "=COUNTIF(*") Then Exit Sub
  s = Split(f, ";")
  If UBound(s) < 1 Then s = Split(f, ",") 'pour version anglaise
  f = Mid(s(0), InStr(s(0), "(") + 1)
  .LinkedCell = ActiveCell.Address(0, 0)
  .ListFillRange = f
  Application.ScreenUpdating = False
  Range(f).Columns.AutoFit 'ajustement largeur
  .ColumnWidths = Range(f).Width 'adapter éventuellement
  .Width = Range(f).Width + 8 'adapter éventuellement
  .Height = Range(f).Height + 4 'adapter éventuellement
  Range(f).Columns.Hidden = True 'masque la colonne
  .Top = ActiveCell.Top
  .Left = ActiveCell(1, 2).Left
  .Visible = True
End With
End Sub

Private Sub Listbox1_Click()
With ActiveCell
  'ici le code à adapter
  .Activate 'ôte le focus
End With
End Sub

Fichier joint.

Bonne journée.

 

[Usine à gaz]

Merci Job 😉

 

[job75]

Re,

Pour l'adaptation de la hauteur de la ListBox ce code est plus précis chez moi :

  .Height = .ListCount * (.FontSize + 2.5) + 4 'adapter le 2.5 éventuellement

Fichier (1 bis).

Edit : petite précision, la colonne A et la ListBox doivent avoir la même police.

A+