XL 2019 Liste déroulante comprenant les lettres de A à E par exemple

R

Rouge

XLDnaute Impliqué

• 10 Février 2021

• #2

Bonjour,

Voici une proposition, les combobox se remplissant à l'ouverture du fichier ainsi qu'à chaque modification de la liste?

Pour voir les codes, faire ALT + F11, ils sont présents dans le module de la "Feuil1", dans le module "Thisworkook "et dans le module de "UserForm1".

Cdlt

 

Pièces jointes

• thespeedy20_Liste déroulante comprenant les lettres de A à E par exemple.xlsm

  24.8 KB · Affichages: 8

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 10 Février 2021

• #3

Bonjour

Un proposition PowerQuery, intégré à Excel

Compléter le tableau source puis Données, Actualiser Tout

 

Pièces jointes

• Liste_Alpha.xlsx

  37.8 KB · Affichages: 6

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 10 Février 2021

• #4

Bonjour Rouge, Chris

Merci pour vos propositions....

@Rouge : cela fonctionne très bien, une petite chose, quand on sélectionne une listbox, est il possible de mettre les autres vides... ? dans le but de n'avoir qu'un choix possible ?

merci d'avance

@chris : je testerai ce soir, car je n'ai que Powerquery à la maison....

OLi

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 10 Février 2021

• #5

RE

thespeedy20 à dit:

@chris : je testerai ce soir, car je n'ai que Powerquery à la maison....

Cliquez pour agrandir...

Tu as quelle version à la maison ? PowerQuery est disponible dès 2010 en Add on et intégré à partir de 2016

 

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 10 Février 2021

• #6

Bonsoir Chris,

A la maison, je suis en 2019... mais au boulot, on tourne encore sur des vieilles bécanes et là je suis encore en 2007....

OLi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2021

• #7

Bonsoir thespeedy20, Rouge, chris,

32000 lignes ce n'est pas beaucoup et à mon avis une seule ComboBox suffit.

Voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Code:

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear 'RAZ
If [D3] = "" Or [E3] = "" Then Exit Sub
Dim derlig&
If FilterMode Then ShowAllData 'si la feuille est filtrée
derlig = Range("B" & Rows.Count).End(xlUp).Row
If derlig = 1 Then Exit Sub
With Sheets("Liste")
    .[A:B].ClearContents
    .[A1].Resize(derlig - 1) = Range("B2:B" & derlig).Value
    .[A:B].Sort .[A1], xlAscending, Header:=xlNo
    .[A1].CurrentRegion.Resize(, 2).RemoveDuplicates 1, Header:=xlNo 'supprime les doublons
    With .[A1].CurrentRegion.Resize(, 2)
        .Columns(2) = "=1/(A1>=""" & [D3] & """)/(A1<=""" & [E3] & "ZZZ" & """)"
        On Error Resume Next 'si aucune SpecialCell
        ComboBox1.List = Intersect(.Columns(2).SpecialCells(xlCellTypeFormulas, 1).EntireRow, .Cells).Value
    End With
End With
End Sub

La liste de la ComboBox est créée dans la 2ème feuille.

Bonne nuit.

 

Pièces jointes

• test_liste(1).xlsm

  34 KB · Affichages: 6

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 11 Février 2021

• #8

Bonjour à tous,

En réponse à thespeedy20 :
cela fonctionne très bien, une petite chose, quand on sélectionne une listbox, est il possible de mettre les autres vides... ? dans le but de n'avoir qu'un choix possible ?

Voilà la modification.

Cdlt

 

Pièces jointes

• thespeedy20_Liste déroulante comprenant les lettres de A à E par exemple_1.xlsm

  27 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2021

• #9

Bonjour le fil, le forum,

Finalement il est aussi simple de laisser entrer n'importe quoi en D3 et E3, voyez ce fichier (2).

A+

 

Pièces jointes

• test_liste(2).xlsm

  35.2 KB · Affichages: 5

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 11 Février 2021

• #10

Bonjour à tous,

@ job75 : sur la feuille liste, il y a toujours des résidus de l'ancienne liste, peut-on les effacer ?
est il possible extraire des lignes(à partir de la colonne B jusqu'à D à partir du ComboBox ? sur la feuille extraction en E15 - F 15 - G15 (source étant la feuille cours). ?

@Rouge : merci beaucoup pour la correction...

Merci encore de votre aide

OLi

 

Pièces jointes

• test_liste(3).xlsm

  44.4 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2021

• #11

thespeedy20 à dit:

@ job75 : sur la feuille liste, il y a toujours des résidus de l'ancienne liste, peut-on les effacer ?

Cliquez pour agrandir...

Ces "résidus" n'ont pas d'importance puisqu'ils sont effacés en début de macro.

Edit : mais c'est vrai qu'ils alourdissent le fichier, je viens de les effacer une 2ème fois au post #9 :

VB:

    .[A:B].ClearContents 'RAZ pour alléger le fichier

La feuille Liste doit être masquée, elle peut être utilisée pour faire d'autres extractions.

 

Dernière édition: 11 Février 2021

Vote positif 0 Vote négatif

T

thespeedy20

XLDnaute Occasionnel

• 12 Février 2021

• #12

Bonsoir à tous,

je tiens à vous remercier pour votre aide:

@Rouge , @chris, @job75

3 méthodes différentes pour un même résultat...

Encore merci d'avoir partager vos connaissances....

OLi

 

Vote positif 0 Vote négatif