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,

 

[Usine à gaz]

Re-Bonjour Job75, à toutes et à tous,
Super ton Fichier et j'ai enfin compris (enfin je pense 😕) comment ça marche.
Un grand merci Job et à tous.
Voir pièce jointe.
Amicalement,
Lionel,

 

[job75]

Re,

Oui c'est à peu près ça.

Sauf que dans les formules de validation la 1ère cellule (vide) est en trop, pas génial...

A+

 

[Usine à gaz]

LOL : si pour moi c'est important pour que les gens qui se trompent puissent effacer "direct" 😉

 

[job75]

Re,

Alors pour être clair peut-être mettre <Effacer> dans la 1ère (ou la dernière) cellule des plages en colonne A.

Et compléter la 2ème macro :

Private Sub Listbox1_Click()
With ActiveCell
  If .Value = "<Effacer>" Then .Value = ""
  .Activate 'ôte le focus
End With
End Sub

A+

 

[Usine à gaz]

Ha Job, vraiment pointu ..... Merci 😉,
Je vais regarder dès que j'ai un petit moment.
Amicalement,
Lionel,

 

[Si...]

Re

Puisque c’était fait (l’affichage au survol n’étant pas de mise)…

Pour éviter de reprendre les adresses des listes en cas de changement, j’utilise la fonction Tableau (même si je sais qu’elle n'est guère utilsée). Bien sûr ceci est donné, comme toujours, seulement à titre d’exemple.

Pour les dimensions du contrôle Job a déjà donné des instructions.

 

[Usine à gaz]

Re,

Alors pour être clair peut-être mettre <Effacer> dans la 1ère (ou la dernière) cellule des plages en colonne A.

Et compléter la 2ème macro :

Private Sub Listbox1_Click()
With ActiveCell
  If .Value = "<Effacer>" Then .Value = ""
  .Activate 'ôte le focus
End With
End Sub

A+

Bonjour Job, le forum,
Effectivement, c'est plus 'propre' comme ça 🙂
Merci Job,

Bonne semaine à toutes et à tous,
Amicalement,
Lionel,

 

[Usine à gaz]

Re

Puisque c’était fait (l’affichage au survol n’étant pas de mise)…

Pour éviter de reprendre les adresses des listes en cas de changement, j’utilise la fonction Tableau (même si je sais qu’elle n'est guère utilsée). Bien sûr ceci est donné, comme toujours, seulement à titre d’exemple.

Pour les dimensions du contrôle Job a déjà donné des instructions.

Bonjour Si,

Merci pour ton fichier, c'est aussi une façon qui fonctionne bien 🙂
Bonne semaine,
Amicalement,
Lionel,