Bonjour,
Je souhaite pouvoir cacher des lignes en fonction de la valeur d'une ComboBox. J'ai déja réussi avec les colonnes :
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 :
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
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.
Partager