VBA: Autofilter et Rowsource

Version imprimable

Bonjour à tous!!!;)
Je rencontre un souci avec un programme VBA:
ainsi dans un userform je voudrais qu'une liste déroulante ne fasse apparaitre des données que si un critère est rempli; j'ai donc tapé le code suivant:
Code:

1 2 3 4 5 6 7 8 If ListeDeroulanteCategorie.Value = "Voiture" Then Sheets("Voiture").Select Range("A2").Select 'selectionne la dernière rangée du tableau Selection.End(xlDown).Select 'filtre sur la 11 ème colonne avec comme critère la valeur "OUI" Selection.AutoFilter Field:=11, Criteria1:="OUI" ListeMaterielDisponible.RowSource = "Voiture!A2:A250"
Seulement voila la liste déroulante "ListeMaterielDisponible" ne m'affiche pas que la séléction mais m'affiche toute la colonne A sans tenir compte du filtre
Si quelqu'un a une idée j'en serais extrêmement reconnaissante de bien vouloir m'aider

Bien cordialement,

Julie

bonjour

à essayer, pas certain que cela fonctionne !

un combo partiel, je prefer le gerer que d'utilise le rowsource

en debut de macro

Code:

dim Cel as range, plage as range

ensuite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If ListeDeroulanteCategorie.Value = "Voiture" Then
           Sheets("Voiture").Select
           Range("A2").Select
  'selectionne la dernière rangée du tableau
           Selection.End(xlDown).Select
  'filtre sur la 11 ème colonne avec comme critère la valeur "OUI"
           Selection.AutoFilter Field:=11, Criteria1:="OUI"
           ListeMaterielDisponible.clear
           set plage = Range("A2:A250").SpecialCells(xlCellTypeVisible)
           for each cel in plage
                listematerieldisponible.additem cel.value
           next

27/12/2010, 20h12
julieko

ça marche!!!

Bonjour Wilfried

Je n'ai malheureusement pas bien compris le language utilisé mais cela fonctionne correctement
en vous remerciant très sincèrement :lol:
Bien cordialement
Julie

Bonsoir,
et sans passer par un filtre :

Code:

dim l as long

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'après avoir enlever les filtres si inutiles
If ListeDeroulanteCategorie.Value = "Voiture" Then
   With Sheets("Voiture")
      .Select
      l = .Range("a" & .Rows.Count).End(xlUp).Row
      listematerieldisponible.Clear
      Set Plage = .Range("A2:A" & l)
      For Each cell In Plage
         If cell.Offset(0, 10) = "OUI" Then
                listematerieldisponible.AddItem cell.Value
         End If
      Next
   End With
End If

a essayer

bonne soirée