Discussion :

[Pierre67]

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

[Invité]

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
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

[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

[Invité]

a=r(i,1) b=r(i,2) c=r(i,3)....

[Pierre67]

Ok merci

je vais voir ça sur du concret

Code :

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

       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

[Invité]

c'est bien ça

[Pierre67]

Merci pour pour la rapidité de traitement de ma demande