Menu déroulant dynamique

Home – Le CFO masqué › Forums › VBA › Menu déroulant dynamique

Viewing 5 posts - 1 through 5 (of 5 total)
  • Author
    Posts
  • 13 August 2020 at 5 h 43 min #75856
    Pimpin
    Participant

    Bonjour,

    Je voudrais créer un menu déroulant dynamique pour ma TEXTBOX1.
    J’ai pu faire un menu déroulant mais il ne s’arrête pas à la dernière
    valeur de mon tableau, et me laisse des espaces blancs.
    Merci pour votre aide.

    15 August 2020 at 5 h 53 min #76028
    Lionel
    Participant

    Salut Pimpin,
    Ce n’est pas un Combobox que tu veux remplir. Voici un code pour le remplir avec les données de la colonnes A en évitant les doublons.

    Private Sub UserForm_Initialize()
    Dim j As Integer
    
    'Récupère les données de la colonne A...
    For j = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
        ComboBox1 = Sheets("Feuil1").Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub

    Pour te perfectionner voici un peu de lecture : https://silkyroad.developpez.com/VBA/ControlesUserForm/#LI

    Attachments:
    You must be logged in to view attached files.
    15 August 2020 at 15 h 57 min #76112
    Pimpin
    Participant

    Re

    J’ai commencé à taper ta ligne :

    Private Sub UserForm_Initialize()

    Dim j As Integer

    for j=2 to sheets(“Feuil1”).range(“a65536).end(xlup).row

    Et ça m’a affiché Erreur de syntaxe ?

    Merci pour tes lumières…

    16 August 2020 at 4 h 37 min #76130
    Lionel
    Participant

    Je vois que tu as déjà oublié un guillemet. Le plus simple est de faire un copier-coller du code et ensuite, de modifier en fonction de tes données ; colonne, ligne…

    Private Sub UserForm_Initialize()
    Dim j As Integer
    
    'Récupère les données de la colonne A...
    For j = 2 To Sheets("Feuil1").Range("A1").End(xlDown).Row
        ComboBox1 = Sheets("Feuil1").Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub
    15 February 2024 at 12 h 05 min #137754
    lucasmembile
    Participant

    Bonjour La team,
    J’espère que vous allez bien….
    J’aimerai votre aide pour créer un menu dynamique en cascade.
    Le menu doit pouvoir s’identifier comme une catégorie qui renferme en lui des sous-catégories sachant que toutes les sous-catégories sont contenues dans chaque feuille distincte du classeur.

    Une illustration de l’aperçu :

    . Clients
    – Tableau de Bord
    – Créances
    – Règlements
    – Relances
    – Paramètres

    . Fournisseurs
    – Tableau de Bord
    – Dettes
    – Règlements
    – Paramètres

    J’aimerai également, que la macro puisse colorier la catégorie sélectionnée au moment où le curseur se pose dessus et décline ensuite l’ensemble les sous-catégories et dont la couleur s’affichera également lorsque je met le curseur dessus. De plus j’aimerai que le menu déroulant disparaît lorsque je retire la souris dessus.

    Je vous envoie un fichier attaché question de visualiser ce que je raconte, je l’ai capturé sur un site internet.

    Merci d’avance.

    Attachments:
    You must be logged in to view attached files.
  • Author
    Posts
Viewing 5 posts - 1 through 5 (of 5 total)
  • You must be logged in to reply to this topic.