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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Juin 2017

• #16

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,

 

Pièces jointes

• ListBox adaptable Job.xlsm

  59.8 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juin 2017

• #17

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Juin 2017

• #18

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juin 2017

• #19

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Juin 2017

• #20

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Juin 2017

• #21

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.

 

Pièces jointes

• FaussesListesDeValidation.xlsm

  24.3 KB · Affichages: 23

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2017

• #22

job75 à dit:

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 :

Code:

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

A+

Cliquez pour agrandir...

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

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

 

Pièces jointes

• ListBox adaptable Job.xlsm

  61.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2017

• #23

Si... à dit:

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.

Cliquez pour agrandir...

Bonjour Si,

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

 

Vote positif 0 Vote négatif