Pb VBA champs dynamique

[marti]

Bonjour

Je suis débutant en VBA et je cherche à réaliser un programme permettant de filtrer différentes colonne sur différentes lignes... J'aimerais augmenter ce nombre de colonne et de ligne. Voici le code :

Sub filtre()
ligne = 0
Me.ListBox1.Clear
For i = 1 To [bd].Rows.Count
ok = True
For n = 1 To [bd].Columns.Count
If Not Range("bd").Cells(i, n) Like Me("comboBox" & n) Then ok = False
Next n
If ok Then
Me.ListBox1.AddItem
For k = 1 To [bd].Columns.Count
Me.ListBox1.List(ligne, k - 1) = Range("bd").Cells(i, k)
Next k
ligne = ligne + 1
End If
Next i
On Error Resume Next
' ActiveSheet.ShowAllData
' [A1].AutoFilter Field:=1, Criteria1:=Me.ComboBox1
' If Me.ComboBox2 <> "*" Then [A5].AutoFilter Field:=2, Criteria1:=Me.ComboBox2
' [A1].AutoFilter Field:=3, Criteria1:=Me.ComboBox3
' [A1].AutoFilter Field:=4, Criteria1:=Me.ComboBox4
' [A1].AutoFilter Field:=5, Criteria1:=Me.ComboBox5
End Sub

Je pense que le problème vient de (BD), je ne sait pas ce que c'est car c'est un tuto que j'ai récuperer... COmment peut on changer cette plage de donnée !

Merci d'avance

 

[Pierrot93]

Re : Pb VBA champs dynamique

Bonjour,

pas ouvert ton fichier mais dans ce code, "bd" est une plage nommée, sous 2003 => barre de menu => Insertion => nom => définir

bonne journée
@+

 

[marti]

Re : Pb VBA champs dynamique

Merci pour l'info, mais des que je change la plage il ne trouve plus l' UF ... Comment redéfinir la plage ! ou mieux l'associer à UF (d'ailleur je e comprend même pas comment il y est liée)

HELP ME

Merci d'avance