XL 2021 ListBox1 souci de compilation

Usine à gaz · 26 Juillet 2023

Bonjour à toutes et à tous

J'ai un souci de compilation vec ma ListBox

il y a longtemps que je n'ai pas créé de ListBox et je ne sais plus faire lol.
Quelqu'un voudrait bien me dire comment corriger ?
Un grand merci à toutes et à tous

dysorthographie · 26 Juillet 2023

VB:

Private Sub ListBox1_Click()
    'Select Case Me.ListBox1.ListIndex
    Select Case choix_admin.ListBox1 '.ListIndex
        Case "RétabliMenu"
            RétabliMenu 'macro NON
            'Application.EnableEvents = False
        Case "plein_ecran"
            plein_ecran 'macro OUI
        Case "Facturation"
            Facturation
    End Select
    Unload choix_admin
End Sub

vgendron · 26 Juillet 2023

bah non..

dans tes additem, tu rentres des strings
tu fais un case sur le .listindex ==> qui va de 0 à 3
donc..
case 3 correspond bien à la valeur "Facturer"
et dans le case 3, tu fais appel à une macro qui s'appelle "facturation".. elle pourrait s'appeler toto que ce serait pareil...

ou alors;. ton image ne montre pas tout... genre.. facturation c'est aussi le nom d'un module comme suggéré plus haut

après, comme indiqué par dysorthographie, c'est plus pratique de faire un select case sur la valeur qui est selectionnée plutot que son indice.. c'est plus clair et ca évite de devoir le lien entre la valeur et son indice..

Usine à gaz · 26 Juillet 2023

Re vgendron

C'est ce que je croyais aussi...
Voici l'image complète dans mon fichier de travail :

Dranreb · 26 Juillet 2023

Dommage qu'on ne voie pas sur votre image les modules dans l'explorateur de projet

vgendron · 26 Juillet 2023

1) les listindex commencent à 0
pour le constater, ajoute un msbox me.listbox1.listindex avant ton select case
le message t'indique que tu spécifies un nom de module plutot qu'une procédure.. mais .. ton image.. euh.. bon...

Usine à gaz · 26 Juillet 2023

Dranreb à dit:
Dommage qu'on ne voie pas sur votre image les modules dans l'explorateur de projet

C'est comme ça :

Dranreb · 26 Juillet 2023

Ce n'est pas le même projet puisque là il n'y a qu'une Worksheet et un UserForm.

Usine à gaz · 26 Juillet 2023

Dranreb à dit:
Ce n'est pas le même projet puisque là il n'y a qu'une Worksheet et un UserForm.

OUi mais dans le fichier de travail, il y a bcp de macros et il me faudrait faire beaucoup de captures d'écran à envoyer.

Et maintenant, ça fonctionne dans le fichier test et également dans mon fichier de travail.
Voi les Posts 9 -11 et 12

Dranreb · 26 Juillet 2023

Donc on ne saura jamais s'il y avait effectivement un module Facturation (en plus éventuellement d'une Sub portant ce nom, dedans ou ailleurs) ?

Usine à gaz · 26 Juillet 2023

Dranreb à dit:
Donc on ne saura jamais s'il y avait effectivement un module Facturation (en plus éventuellement d'une Sub portant ce nom, dedans ou ailleurs) ?

Je confirme, il y a bien un module Facturation.
Et maintenant ça fonctionne bien.

Dranreb · 26 Juillet 2023

Eh bien la voilà l'explication de votre erreur de départ ! N'est-ce pas clair ?

vgendron · 26 Juillet 2023

si je ne dis pas de betise... Bernard avait déjà identifié le pb dès le post2....
quand on dit que les images ne servent pas à grand chose...

laurent950 · 26 Juillet 2023

Bonsoir,

VB:

Private Sub UserForm_Initialize()
    choix_admin.ListBox1.List = Array("RétabliMenu", "plein_ecran", "Facturation")
End Sub

"Facturation." & choix_admin.ListBox1.Text
Facturation = Nom du Module
Suivie du Point (pour le chemin entre le module et la macro)
& entre le Module et le nom de la macro
Le Nom de la Macro lors de la sélection dans listeBox1

VB:

Private Sub ListBox1_Click()
    Application.Run "Facturation." & choix_admin.ListBox1.Text
    Unload choix_admin
End Sub

dysorthographie · 27 Juillet 2023

Bonjour,
En utilisant ListIndex de la combobox ça oblige la renidexation de toutesles case du select case en cas de d'ajout ou de suppression d'un item. Alors quand utilisant le texte sélectionné on ce contante de retoucher que ce qui à été modifié.

Pour le reste l'exemple fourni par Usine à Gaz fonctionnait avec m'a petite modification.

TooFatBoy · 27 Juillet 2023

Bonjour,

Dranreb à dit:
Donc on ne saura jamais s'il y avait effectivement un module Facturation (en plus éventuellement d'une Sub portant ce nom, dedans ou ailleurs) ?

Surtout, on ne saura peut-être jamais pourquoi ceci ne fonctionne pas :

et que ceci fonctionne :

alors que les deux organigrammes sont semblables.

Est-ce parce que le module "Facturation" a été renommé pour ne plus entrer en conflit avec la procédure "Facturation" ?
Est-ce pour une autre raison ?

Usine à gaz · 27 Juillet 2023

Bjr Le fil , Bjr le Forum

Encore merci pour votre patience à tous
En fait, ça na fonctionnait plus dans mon fichier de travail Grrr !
Vos réponses et interrogations ne m'ont pas quitté cette nuit lol
Et je n'avais rien compris et en particulier le retour dès #Post 2 de Dranreb
J'ai voulu en avoir la certitude et je me suis apercu que :

Dans VBAProject = facturation - Nom de la macro = Facturation
J'ai modifié le nom dans VBAProject en facturer et ça fonctionne.
Je n'en connais pas l'explication "technique" mais c'est bon maintenant dans mon fichier de travail.
Encore merci à tous

XL 2021 ListBox1 souci de compilation

Usine à gaz

XLDnaute Barbatruc

dysorthographie

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires