C
Cyrabougie
Guest
Bonjour !
J'ai un petit soucis, j'arrive à cacher des lignes ou des colonnes, ça c'est tout bon, mais je n'arrive pas à faire les 2 en même temps sur une sélection précise de cellules.
Comment par exemple cacher les cellules A20 à A27; B20 à B27 et C20 à 27 sans que cela cache les cellules qui sont après, c'est à dire les D20 à 27 etc ?
Voici ce que j'ai, je cache les lignes au complet pour le moment
Sub Macro1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C15").Address Then
Run ("Macro2")
End If
End Sub
Sub Macro2()
If Range("C15") = "3" Then
Rows("21:27").Select
Selection.EntireRow.Hidden = True
Rows("18:20").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "5" Then
Rows("23:27").Select
Selection.EntireRow.Hidden = True
Rows("18:22").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "7" Then
Rows("26:28").Select
Selection.EntireRow.Hidden = True
Rows("19:25").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "10" Then
Rows("19:28").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Merci d'avance !!! 🙂
J'ai un petit soucis, j'arrive à cacher des lignes ou des colonnes, ça c'est tout bon, mais je n'arrive pas à faire les 2 en même temps sur une sélection précise de cellules.
Comment par exemple cacher les cellules A20 à A27; B20 à B27 et C20 à 27 sans que cela cache les cellules qui sont après, c'est à dire les D20 à 27 etc ?
Voici ce que j'ai, je cache les lignes au complet pour le moment
Sub Macro1()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C15").Address Then
Run ("Macro2")
End If
End Sub
Sub Macro2()
If Range("C15") = "3" Then
Rows("21:27").Select
Selection.EntireRow.Hidden = True
Rows("18:20").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "5" Then
Rows("23:27").Select
Selection.EntireRow.Hidden = True
Rows("18:22").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "7" Then
Rows("26:28").Select
Selection.EntireRow.Hidden = True
Rows("19:25").Select
Selection.EntireRow.Hidden = False
End If
If Range("C15") = "10" Then
Rows("19:28").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Merci d'avance !!! 🙂