Menu déroulant dynamique

Ce sujet contient 4 réponse, 3 participant et a été mis à jour pour la dernière fois par lucasmembile, le il y a 1 année et 2 mois.

Affichage de 1 message (sur 5 au total)

Auteur

Messages
13 août 2020 à 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 août 2020 à 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 août 2020 à 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 août 2020 à 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 février 2024 à 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.
Auteur

Messages