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

 

[Dranreb]

Bonjour.
Remarque: si vous spécifiez à exécuter le nom d'un module, vous pouvez le faire suivre d'un point, puis du nom de la Sub de ce module à exécuter. Facturation.Facturer, au hasard …

 

[cp4]

Bonjour à toutes et à tous

J'ai un souci de compilation vec ma ListBox
Regarde la pièce jointe 1175298
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

Bonsoir,

Il n'y a aucun rapport entre "Facturer" et "Facturation"
il faudrait écrire pour case 3 Facturer au lieu de Facturation

 

[Usine à gaz]

Re-Bjr Dranreb
J'ai tenté Facturation.Facturer : ça beug pas mais il ne se passe rien. Il ne va pas exécuter ma macro.

Bjr cp4
J'ai tenté "il faudrait écrire pour case 3 Facturer = pareil, j'ai le même beug
Merci à vous 2 pour m'avoir répondu.
Je continue à cherher

 

[laurent950]

Bonsoir @Usine à gaz

Dans votre code Facturation représente une :
- A) Fonction
- B) Une procédure
- C) ? autres

 

[Dranreb]

Examinez votre explorateur de projets. Il n'invente jamais cet état de fait si ce n'est pas effectivement un nom de module que vous avez spécifié au lieu d'un nom de procédure !

 

[dysorthographie]

Bonjour,
@Usine à gaz , tu veux qu'on utilise photoshop pour corriger ton code?

 

[mapomme]

Bonsoir à tous ,

Pour tous vous mettre d'accord :

facturation​

nom féminin


1. Action de facturer.

2. Ensemble d'opérations comptables allant de l'enregistrement de la commande à l'exploitation comptable et statistique des éléments de la facture.

3. Service où on fait les factures.

Bon, je sors

 

[Usine à gaz]

Re à tous,
Merci d'avoir été présents :
Voilà qui est mieux et qui fonctionne :

 

[dysorthographie]

Merci Photoshop!

en générale je préfère travaillé à partir du code et pas de limage!

 

[Usine à gaz]

Bsr dysorthographie
Voici le fichier test en pièce jointe

 

[dysorthographie]

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]

Hello

je ne vois pas pourquoi le fait d'avoir enlevé un listitem (RDV annulé) ca règle ton problème...

 

[Usine à gaz]

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

Merci à toi, c'est beaucoup mieux comme ça

 

[Usine à gaz]

Hello

je ne vois pas pourquoi le fait d'avoir enlevé un listitem (RDV annulé) ca règle ton problème...

Bsr vgendron
Ce n'est pas le fait d'avoir enlevé un listitem (RDV annulé) qui a régle mon souci.
Mais les noms des .AddItem ne correspondaient pas aux noms des Cases