XL 2021 ListBox1 souci de compilation

[Usine à gaz]

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

 

[vgendron]

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]

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

 

[Dranreb]

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

 

[vgendron]

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]

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

C'est comme ça :

 

[Dranreb]

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

 

[Usine à gaz]

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]

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]

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]

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

 

[vgendron]

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]

Bonsoir,

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

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

 

[dysorthographie]

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]

Bonjour,

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]

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