[XL-2003] Afficher lignes en fonction valeur combobox sur USF

[Cenotik]

Bonjour

J'ai un fichier contenant un tableau dans lequel une colonne contient du texte (en fait des lettres et chiffres mais assimilables à du texte je pense) et les autres uniquement des chiffres. J'ai créé un UserForm avec une combobox permettant à l'utilisateur de sélectionner une des valeurs de la colonne "texte". Je voudrais utiliser la valeur sélectionnée par l'utilisateur pour l'affecter à une variable. A partir de là, je ferais une boucle pour tester chaque ligne et n'afficher que celles contenant la variable (c'est à dire la valeur sélectionnée par l'utilisateur).

Le code est le suivant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SelectionPerformance()
 
Dim Plage As Range
 
Set Plage = [E7:E235]
 
For Each Cell In Plage
 
If Cell.Value <> "UserForm1.Combobox1.Value" Then
Cell.EntireRow.Visible = False
End If
 
Next
 
End Sub

Le souci c'est que son execution génère une erreur 438

J'ai également essayé ceci avec pour résultat une erreur 424

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SelectionPerformance()
 
Dim X as String
 
Set X = UserForm1.Combobox1.Value
 
Dim Plage As Range
 
Set Plage = [E7:E235]
 
For Each Cell In Plage
 
If Cell.Vale <> "X" Then
Cell.EntireRow.Visible = False
End If
 
Next
 
End Sub

J'ai essayé pas mal de choses (affectation de la valeur de la combobox à une cellule puis récupération de la valeur de cette cellule par exemple) mais je suis dans l'impasse....

Je suis débutant et malgré plusieurs heures de recherche sur le web, je sèche...

[jfontaine]

Bonjour,

Personnellement, j'utiliserais un filtre plutôt qu'une boucle

- Ajouter des titres sur la ligne 6
- Mettre le code ci dessous dans la userform

Code :

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
 
On Error Resume Next
 
Sheets("Données").Range("E6").AutoFilter
If ComboBox1.Value <> "" Then Sheets("Données").Range("E6").AutoFilter Field:=3, Criteria1:=ComboBox1.Value
 
End Sub

Sinon au niveau des tes codes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SelectionPerformance()
 
Dim Plage As Range
Dim Cel As Range
 
Set Plage = [E7:E235]
 
For Each Cel In Plage
 
   If Cel.Value = UserForm1.ComboBox1.Value Then
       Rows(Cel.Row).Hidden = False
   Else
       Rows(Cel.Row).Hidden = True
   End If
 
Next
 
End Sub

Pour le deuxième, même erreur tu cherches le caractère X et non la valeur de la variable X

[Cenotik]

Ca fonctionne au niveau du code. En revanche, ça ne marche pas avec le filtrage. Je vais réessayer.


J'aurai surement d'autres questions en avançant mais merci beaucoup pour ce point là