Cacher des lignes en fonction de la valeur d'une ComboBox

**Noctis76** · 11/09/2017, 20h44

Bonjour,

Je souhaite pouvoir cacher des lignes en fonction de la valeur d'une ComboBox. J'ai déja réussi avec les colonnes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox3_Change()
Dim Celt As Range
    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    If ComboBox3.value <> "Tasks" Then
        For Each Celt In Range("StandardTasksTable")
            If Celt.value <> ComboBox3.value Then Celt.EntireColumn.Hidden = True
        Next Celt
    End If
End Sub

J'ai ensuite essayé d'adapter ce code à des lignes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox2_Change()
Dim Celd As Range
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    If ComboBox2.value <> "Operations" Then
        For Each Celd In Range("OperationsList")
            If Celd.value <> ComboBox2.value Then Celd.EntireRow.Hidden = True
        Next Celd
    End If
End Sub

Mais une erreur s'affiche sur cette ligne

Code :

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

Cells.EntireRow.Hidden = False

Voici l'erreur : '1004' Impossible de définir la propriété Hidden de la classe Range.

Je bloque totalement, quelqu'un aurait une solution ?

Cordialement, Noctis.

**Menhir** · 12/09/2017, 09h16

A tout hasard, essaye ça :

Code :

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

ActiveSheet.UsedRange.EntireRow.Hidden = False

**Noctis76** · 12/09/2017, 14h13

Toujours la même erreur, cette fois sur la ligne que tu m'a demandé d'essayer. Une autre idée ?

**pijaku** · 12/09/2017, 14h48

Bonjour,

A tout hasard n'aurais-tu pas une feuille protégée avec l'option : autoriser tous les utilisateurs de cette feuille à : format de colonnes?

Si oui :

Code :

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

1
2
3
4
 
    ActiveSheet.Unprotect '"motdepasse"
    Cells.EntireRow.Hidden = False
    ActiveSheet.Protect '"motdepasse"

**Noctis76** · 12/09/2017, 14h58

Tout d'abord merci pour vos réponses.

Pijaku, j'ai tenté en ajoutant la desactivation/reactivation de la protection, et toujours la même erreur. J'ai oté la protection manuellement, et toujours rien.

Enfin j'ai tout d'abord ocpier coller ton code et l'erreur est ensuite passée à cette ligne :

Code :

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

Celd.EntireRow.Hidden = True

**pijaku** · 12/09/2017, 15h35

Forcément...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox2_Change()
Dim Celd As Range
    ActiveSheet.Unprotect '"motdepasse"
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    If ComboBox2.value <> "Operations" Then
        For Each Celd In Range("OperationsList")
            If Celd.value <> ComboBox2.value Then Celd.EntireRow.Hidden = True
        Next Celd
    End If
    ActiveSheet.Protect '"motdepasse"
End Sub

Invité · 12/09/2017, 15h48

Bonjour,
tu ne souhaite pas les réafficher?

Code :

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

Celd.EntireRow.Hidden = Celd.value <> ComboBox2.value

**Menhir** · 12/09/2017, 16h00

Es-tu sûr au moins que le nom OperationsList contient des cellules ?

En début de code, essaye de mettre un :

Code :

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

Debug.Print Range("OperationsList").Count

Histoire de voir la valeur affichée dans la fenêtre d'exécution...

**Noctis76** · 12/09/2017, 17h34

Envoyé par pijaku

Forcément...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox2_Change()
Dim Celd As Range
    ActiveSheet.Unprotect '"motdepasse"
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    If ComboBox2.value <> "Operations" Then
        For Each Celd In Range("OperationsList")
            If Celd.value <> ComboBox2.value Then Celd.EntireRow.Hidden = True
        Next Celd
    End If
    ActiveSheet.Protect '"motdepasse"
End Sub

Même chose...

**Noctis76** · 12/09/2017, 17h38

Envoyé par Menhir

Es-tu sûr au moins que le nom OperationsList contient des cellules ?

En début de code, essaye de mettre un :

Code :

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

Debug.Print Range("OperationsList").Count

Histoire de voir la valeur affichée dans la fenêtre d'exécution...

Oui cette liste contient une plage de cellules, les valeurs s'affiche bien dans la liste déroulante de la combobox.

J'ai tenté la ligne que tu m'as fourni, aucune différence.

Je suis perplexe car sur la même feuille, le programme pour les colonnes fonctionne sans probème.

**Noctis76** · 12/09/2017, 19h07

Envoyé par dysorthographie

Bonjour,
tu ne souhaite pas les réafficher?

Code :

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

Celd.EntireRow.Hidden = Celd.value <> ComboBox2.value

Si, elles se réaffiche lorsque la combobox affiche la valeur "Operations".

**Menhir** · 13/09/2017, 09h23

Envoyé par Noctis76

J'ai tenté la ligne que tu m'as fourni, aucune différence.

La ligne que j'ai indiqué n'a pas pour but de corriger le problème mais d'essayer d'en trouver la source.
Mais comme tu ne dis pas quel résultat tu obtiens, je décroche.

**Noctis76** · 13/09/2017, 13h19

Envoyé par Menhir

La ligne que j'ai indiqué n'a pas pour but de corriger le problème mais d'essayer d'en trouver la source.
Mais comme tu ne dis pas quel résultat tu obtiens, je décroche.

Eh bien le truc c'est que je n'ai obtenu aucun résultat !

**Menhir** · 13/09/2017, 14h09

Envoyé par Noctis76

Eh bien le truc c'est que je n'ai obtenu aucun résultat !

Est-ce que au moins ta fenêtre d'exécution est ouverte ?

Au pire, remplace le Debug.Print par un MsgBox.

**pijaku** · 13/09/2017, 14h31

Et ôte moi d'un doute, le Range("OperationsList") est bien sur la feuille active lorsque tu lances le code?

**Noctis76** · 13/09/2017, 14h43

Envoyé par Menhir

Est-ce que au moins ta fenêtre d'exécution est ouverte ?

Au pire, remplace le Debug.Print par un MsgBox.

Avec le Msgbox; aucune pop-up juste un message d'erreur, erreur de compilation: Argument non facultatif.

**Noctis76** · 13/09/2017, 14h43

Envoyé par pijaku

Et ôte moi d'un doute, le Range("OperationsList") est bien sur la feuille active lorsque tu lances le code?

Oui, il fait référence aux lignes d'un tableau.

**Menhir** · 13/09/2017, 15h14

Envoyé par Noctis76

Avec le Msgbox; aucune pop-up juste un message d'erreur, erreur de compilation: Argument non facultatif.

Rassure-moi : tu as quand même pris la peine de mettre la bonne syntaxe pour MsgBox ou tu attends que ça te tombe tout cuit dans le bec ?
https://msdn.microsoft.com/fr-fr/lib.../gg251821.aspx

**Noctis76** · 13/09/2017, 15h26

Envoyé par Menhir

Rassure-moi : tu as quand même pris la peine de mettre la bonne syntaxe pour MsgBox ou tu attends que ça te tombe tout cuit dans le bec ?
https://msdn.microsoft.com/fr-fr/lib.../gg251821.aspx

Je ne savais pas que cela fonctionnait ainsi, je débute en VBA. J'en ai un peu marre du ton condescendant que tu emploies, passe ton chemin je me débrouillerais sans toi. Merci comme même.