XL 2010 Retrouver objet Listbox

[herve62]

Bonjour
Ce fichier a + de 5 ans dans mon grenier et je ne suis pas le créateur
Je n'arrive plus à me rappeler comment retrouver et comment a été créé LISTBOX1 ? (liste MOTIFS)

Le principe : dans "accessoires" il y a un bouton qui inhibe ou pas le clic droit si inhibé dans les feuilles si on clic droit dans une cellules "blanche" on ouvre cette Listbox1
sinon c'est le menu standard
Je n'ai jamais repris ce fichier !! donc plus de souvenirs ?

 

[TooFatBoy]

Est-ce que ton problème ne vient pas du fait que la liste source est horizontale ?

 

[job75]

Quand on veut voir les propriétés d'un contrôle ActiveX dans une feuille de calcul il faut d'abord se mettre en mode création puis clic droit sur le contrôle => Propriétés.

@Marcel32 Accessoires!$B$3:$B$7 est un vecteur vertical...

Bonne nuit.

 

[TooFatBoy]

Quand on veut voir les propriétés d'un contrôle ActiveX dans une feuille de calcul il faut d'abord se mettre en mode création puis clic droit sur le contrôle => Propriétés.

Oui, c'est ce que j'ai expliqué en #10 : passer en mode création.

@Marcel32 Accessoires!$B$3:$B$7 est un vecteur vertical...

Certes, mais Clé ne l'est pas...

 

[ChTi160]

Bonjour Le Fil
Hervé
Comme le dit Marcel essais , dans le Fichier joint , de mettre ta Plage "Clé" en Liste verticale !
Dans ton fichier, tu n'as pas encore mis de Code ?
Une Vidéo
J'ai modifié la Liste deux Colonnes et l'ai mise en Verticale je l'ai nommée "Absences"
Bonne journée
Jean marie

 

[herve62]

Bonjour tous
Merci de vos conseils , donc j'avance bien mais je bloque à la fin après Inhibe Clic la liste ne s'affiche pas au clic droit ( bug) ?

 

[TooFatBoy]

Voir fichier joint.

Tu as un problème au niveau du "Toggle" : il faut sans cesse le désactiver/réactiver.
Franchement, ce n'est pas convivial du tout ce truc de ListBox...

 

[Valtrase]

Salut Hervé,
1- D'abord tu sélectionnes la Feuil1
2- Dans le menu Développeur ( si pas de Menu alors faire Alt + F11) tu cliques sur Mode création.

3- Ensuite cliques sur la listBox qui est apparue quelque part

4- Dans le menu développeur cliques sur propriétés

5- Dans la fenêtre qui s'affiche tu as la source dans ListFillRange c'est une plage nommée et la cellule liée LinkedCell qui ici est dynamique et correspondra à la cellule active.
La cellule nommée motifs et sur la feuille Accessoires.

6- Si un click droit et décelé alors on teste la variable publique Public MemInh As Boolean qui est mise à Vrai ou Faux selon l'appuis sur le bouton. Si la variable est à Vrai alors on effectue encore plusieurs test et on affiche la ListBox. (Regarde la Sub Worksheet_BeforeRightClick des Feuilles 1 & 2

7- Maintenant si tu veux ajouter une autre ListBox, toujours dans le menu Développeur Tu clique sur Insérer puis zone de liste des contrôles Active X

 

[herve62]

@Valtrase : ben oui maintenant ça va ! dans mon exemple du début c'etait un fichier qui fonctionnait
et que je voulais adapter à un autre ...mais soucis !!
@Marcel32 : oui c'est vrai d'ailleurs je n'avais pas poursuivi avec ce fichier cela devenait lourd pour 10 personnes car il fallait bien délimiter toutes zones accessible ou pas
Là encore ça bug sur .listindex= 5 ??
Je laisse tomber , mais bon cela m'a fait réviser

 

[TooFatBoy]

Là encore ça bug sur .listindex= 5 ??

Ben oui, c'est normal, ta liste n'a que 5 items.

Si tu regardes mon fichier en #21, tu verras que j'ai ajouté une ligne vide à la plage nommée MOTIFS.

 

[ChTi160]

Bonjour
Effectivement !
Les Lignes de la ListBox vont de 0 à .ListCount-1 (si 5 éléments dans la ListBox alors de 0 à 4) ce qui fait 5
Bonne fin de Journée
Jean marie

 

[herve62]

Ben oui je viens d'en ajouter 1 aussi ...mais ça change rien

 

[TooFatBoy]

Ben oui je viens d'en ajouter 1 aussi ...mais ça change rien

Oui, il faut jouer sur un paramètre de la ListBox qui actuellement bloque sa MàJ.

De tête je ne saurais te dire quel est ce paramètre mais, là encore, si tu regardes mon fichier de #21, tu auras la réponse.

 

[TooFatBoy]

Je crois me rappeler que j'ai mis un truc non valide dans ListFillRange, puis j'ai remis MOTIFS, et ça a mis à jour la ListBox.

 

[cp4]

Bonjour à tous et toutes les participantes,

Je ne sais pas si ça résoudra ton problème mais recherche les fichiers dont l'extension est *.EXD.
Il y en a 2 ou 3, je ne me souviens plus de leur chemin.
Une fois trouvés, il faut les supprimer. à toute fin utile voici un lien concernant l'extension exd ---> Lien

Bon week-end

 

[ChTi160]

Re
ne peux tu mettre le fichier sur lequel tu Travailles ?
Jean marie