Discussion :

[Leona]

Bonjour à tous,

Voila je gère une grande base de donnée sous Excel (3000 lignes environ) et d'une vingtaine de colonnes.

A partir d'un Userform et à l'aide d'une liste déroulante, je souhaite que ma liste déroulante soit alimenté par les donnée d'une colonne de ma base.
Jusque la le rowsource est suffisant. Seulement je souhaite que cette liste puisse avoir des controles et qu'elles n'affichent que certaines valeurs, donc en bloquer une partie.

VOila un exemple.

J'ai une colonne d'immatriculation
Une colonne differenciant gasoil/essence/Gpl ...
une colonne différenciant CT ok/pas ok
etc ...

Ma liste déroulante est alimenté par la colonne des immatriculations, mais si je ne cherche que les véhicules roulants au gasoil? ou que ceux qui ont leur CT ok?

Comment peut on faire cette liste déroulante adaptée aux conditions imposées? (sans créer autant de rowsource que de possibilités)

Merci de vos réponses

Leona K.

[tirex28]

Bonjour,

Tu peux filtrer ta plage selon tes criteres et ensuite charger ta zone de liste avec les enregistrements visibles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
    Dim Plage As Range, Zone As Range, i As Long
    Set Plage = Range("A1:Z3000")
    Plage.AutoFilter 'Supprime un filtre eventuel
    With Plage
        .AutoFilter Field:=3, Criteria1:="Gasoil"
        'Le 3 identifie la colonne a filtrer
        With .Columns(1).SpecialCells(xlCellTypeVisible)
            'Le 1 identifie la colonne qui alimente ta liste
            For Each Zone In .Areas
                For i = 1 To Zone.Cells.Count
                    ComboBox1.AddItem Zone.Cells(i).Value
                Next
            Next
            ComboBox1.RemoveItem 0 'Supprime le titre de colonne
        End With
    End With
End Sub

Cordialement,

Tirex28/

[Leona]

Impecable, rien à ajouter si ce n'est un grand merci (avec les commentaires en plus, c'est parfait !)

Bonne soirée et encore merci Tirex !