Filtre et création Combobox

Version imprimable

16/01/2014, 14h38
Pierre67

Filtre et création Combobox

Bonjour

j'ai un petit souci d'alimentation d'une combobox en VBA.

Dans un tableau, je crée un filtre sur la colonne A donc les éléments filtrés sont en ligne (par exemple) 2, 5, 8, 12, ....

Comment créer dans un userform une combobox avec les valeurs de la colonne D, les n° de lignes n'étant pas consécutifs (puisque les valeurs en colonnes D seront en ligne 2,5,12, ...)

merci pour vos tuyaux
cordialement

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.BoundColumn = 2
Me.ComboBox1.ColumnWidths = "0;150"
Dim r As Range
 
Set r = ActiveSheet.UsedRange
For i = 2 To r.Rows.Count
    If r(i, 1).Rows(1).Hidden = False Then
        Me.ComboBox1.AddItem r(i, 1).Row
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = r(i, 1)
    End If
Next
End Sub
 
Private Sub Valider_Click()
If Me.ComboBox1.ListIndex = -1 Then MsgBox "Vous devez sélectionner.....": Exit Sub
MsgBox "Ligne : " & Me.ComboBox1.List(Me.ComboBox1.ListIndex)
End Sub

16/01/2014, 15h40
Pierre67

Bonjour et merci Rdurupt pour ta réactivité

juste uen petite question, je ne vois pas où on cherche les valeurs de la colonne D ?

cordialement
16/01/2014, 15h52
Invité

a=r(i,1) b=r(i,2) c=r(i,3)....
16/01/2014, 16h11
Pierre67

Ok merci

je vais voir ça sur du concret

Code:

Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = r(i, 4)

j'ai modifié ton code au niveau de cette ligne en remplacant r(i,1) par r(i,4) qui me donne bien les données de la colonne D (soit 4)

merci à toi
16/01/2014, 16h20
Invité

c'est bien ça
16/01/2014, 16h25
Pierre67

Merci pour pour la rapidité de traitement de ma demande
:ccool: