Discussion :

[julieko]

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 :

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

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

[wilfried_42]

bonjour

à essayer, pas certain que cela fonctionne !

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

en debut de macro

Code :

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

dim Cel as range, plage as range

ensuite

Code :

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

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

[julieko]

Bonjour Wilfried

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

[casefayere]

Bonsoir,
et sans passer par un filtre :

Code :

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

dim l as long

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