XL 2010 Retrouver objet Listbox

herve62 · 8 Avril 2022

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 ?

ChTi160 · 9 Avril 2022

Re
je dis :

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

tu réponds :

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

Donc tu a x Lignes avec celle que tu viens de rajouter !
tu avais signalé que si tu mettais

Là encore ça bug sur .listindex= 5

donc il aurait fallu mettre .listIndex=4 si tu as 5 Lignes , la dernière a pour Index 4
je vois qu'on parle de l'extension est *.EXD.
je ne comprends pas pourquoi Lol
dans l'attente
Jean marie

cp4 · 9 Avril 2022

ChTi160 à dit:
Re
je dis :

tu réponds :

Donc tu a x Lignes avec celle que tu viens de rajouter !
tu avais signalé que si tu mettais

donc il aurait fallu mettre .listIndex=4 si tu as 5 Lignes , la dernière a pour Index 4
je vois qu'on parle de l'extension est *.EXD.
je ne comprends pas pourquoi Lol
dans l'attente
Jean marie

Oups! j'ai lu de travers, j'avais cru qu'il n'arrivais plus à créer une Listbox.

ChTi160 · 9 Avril 2022

Re
je ne comprends pas d'où vient le problème !
il parle de:

Là encore ça bug sur .listindex= 5

donc je ne sais pas si c'est une partie de Boucle ou ?????? Lol
alors qu'il fais référence au ListIndex = 5 alors qu'il n'a que 5 Données dans sa ListBox donc la dernière n'est pas 5 mais 4 .....
il faudrait plus de la Procédure ou se trouve ce ListIndex=5 !
Enfin attendons
Jean marie

herve62 · 9 Avril 2022

JM : c'est pour moi ? donc je remets
Dans le fichier d'il y a 6 ans j'ai exactement le même nombre
With Listbox1
.......
.listindex=5
et pas de soucis

ChTi160 · 9 Avril 2022

Re
c'est ce que je disais
tu as 5 elements dans la LIstBox et chez moi y'a l'erreur si on laisse le .ListIndex=5 (d'ailleurs pourquoi mettre le ListIndex sur le 1/2J)
moi j'aurai mis .listIndex=-1
pour voir tu mets .listIndex=4
Jean marie

ChTi160 · 9 Avril 2022

Re
ce que j'ai mis :

VB:

Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Cancel As Boolean)
If MemInh = False Then Exit Sub
Application.ScreenUpdating = False
Set MemCible = Cible                                                                         ' Mémorise Cible
With ListBox1
    If .Value <> "" Then Cible.Value = ""
    .LinkedCell = Cible.Address                                                             ' Indique la cellule d'application à la liste
    .Top = Cible.Top + 20                                                                      ' Positionne la liste, la désélectionne et la rend visible
    .Left = Cible.Left + 50
    .ListIndex = -1                                                                                 ' Sélectionne dernier choix (vide) de la liste car Pb. avec .Listindex = -1
    .Visible = True
End With
Cancel = True
Application.ScreenUpdating = True
End Sub

je me rends compte que tu as devant la Ligne .ListIndex=5
' Sélectionne dernier choix (vide)
il faut donc inclure dans la Palge "MOTIFS" Une Cellule Vide en Dernier tu auras ainsi 6 Ligne dont une Vide qui aura le ListIndex 5
Jean marie

ChTi160 · 9 Avril 2022

Re
ce que Cela donne avec une Ligne Vide en bas de la plage "MOTIFS"
Jean marie

ChTi160 · 9 Avril 2022

Re
ce que j'ai modifié et semble répondre aux besoins
j'ai apostrophé deux Lignes

Code:

Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Cancel As Boolean)
If MemInh = False Then Exit Sub
Application.ScreenUpdating = False
Set MemCible = Cible                                                                         ' Mémorise Cible
With ListBox1
'    If .Value <> "" Then Cible.Value = "" 'Inhibé'
    .LinkedCell = Cible.Address                                                             ' Indique la cellule d'application à la liste
    .Top = Cible.Top + 20                                                                      ' Positionne la liste, la désélectionne et la rend visible
    .Left = Cible.Left + 50
'    .ListIndex = -1   'Inhibé'                                                                            ' Sélectionne dernier choix (vide) de la liste car Pb. avec .Listindex = -1
    .Visible = True
End With
Cancel = True
Application.ScreenUpdating = True
End Sub

Jean marie

TooFatBoy · 9 Avril 2022

ChTi160 à dit:
je me rends compte que tu as devant la Ligne .ListIndex=5
' Sélectionne dernier choix (vide)
il faut donc inclure dans la Palge "MOTIFS" Une Cellule Vide en Dernier tu auras ainsi 6 Ligne dont une Vide qui aura le ListIndex 5

Toutafé ! Voir mon message #24. .. 😉

Mais ce n'est pas le seul problème :
- la liste ne se met pas à jour automatiquement,
- le "toggle" n'est plus pris en compte dès qu'on passe par VBE. Donc il faut repasser par la feuille "Noms des employés" pour désactiver/réactiver le "toggle".

Hervé se base apparemment sur le code d'un autre fichier (disponible en #1), mais déjà là on voit que le code est complètement pourri et que ce n'est pas vraiment fonctionnel... alors essayer d'adapter un truc pourri, ce n'est pas génial génial... 🙁
Perso, je n'ai pas encore compris l'intérêt du "toggle".

TooFatBoy · 9 Avril 2022

ChTi160 à dit:
ce que Cela donne avec une Ligne Vide en bas de la plage "MOTIFS

Si quelqu'un un jour regarde mon fichier de#21, il devrait y voir la même chose. 😉

ChTi160 à dit:
ce que j'ai modifié et semble répondre aux besoins

Ah, si tu as trouvé comment faire pour que la liste soit dynamique, ça m'intéresse ! 👍

ChTi160 · 9 Avril 2022

Re
Qu'entends tu par dynamique Lol
dans le Fichier on a une Plage Nommée et pas un Tableau Structuré !
Jean marie

TooFatBoy · 9 Avril 2022

Je veux dire un truc qui permette de mettre à jour la ListBox quand on change la plage "MOTIFS", car ça morche pô chez oim... 😭

Tu peux mettre ton fichier à disposition ?

ChTi160 · 10 Avril 2022

Bonjour Marcel
ce que j'ai mis pour que la Liste soit toujours à jours

VB:

Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Cancel As Boolean)
If MemInh = False Then Exit Sub
Application.ScreenUpdating = False
Set MemCible = Cible                                                                         ' Mémorise Cible
With ListBox1
    .ListFillRange = "MOTIFS" 'Ici on charge la Liste a chaque fois
    .LinkedCell = Cible.Address                                                             ' Indique la cellule d'application à la liste
    .Top = Cible.Top + 20                                                                      ' Positionne la liste, la désélectionne et la rend visible
    .Left = Cible.Left + 50
    .Visible = True
End With
Cancel = True
Application.ScreenUpdating = True
End Sub

Bonne Journée
Jean marie

ChTi160 · 10 Avril 2022

Re
je n'ai pas non plus trouvé cette plage des Fériés.

VB:

If Intersect(Cellule, Range("PlageFeries")) Is Nothing Then

géré par le On Error Goto
Jean marie

TooFatBoy · 10 Avril 2022

ChTi160 à dit:
Bonjour Marcel
ce que j'ai mis pour que la Liste soit toujours à jours

OK.
Mais est-ce que tu sais me dire pourquoi quand je change la plage nommée "Motifs", ça ne change pas la ListBox, alors que dans ses paramètres il y a bien la plage nommée "MOTIFS" comme source de données ?

XL 2010 Retrouver objet Listbox

herve62

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

XL 2010 Retrouver objet Listbox

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency