(RESOLU)Afficher / Masquer selon une valeur

[chaelie2015]

Bonjour forum

Je souhaite afficher les lignes de 4 à 30 selon le nombre dans la cellule I4 (varie de 1 a 27)

Si I4 =2 alors afficher 4 et 5

Si I4= 3 alors afficher 4-6

Et ainsi de suite
Salutations

 

[chaelie2015]

Re
dessolé ci joint le fichier
a+

 

[eddy1975]

Bonsoir Chaelie,

Une solution par MFC. A voir.

@+

 

[chaelie2015]

Re eddy1975
merci pour la proposition
mais je souhaite que les lignes soient masquées ou affichées
Salutations

 

[eddy1975]

Re,
Une autre proposition. Selon ta demande initiale.

Si I4 =2 alors afficher 4 et 5

Si I4= 3 alors afficher 4-6

@+

 

[chaelie2015]

RE
Merci encore une fois mais je souhaite que les lignes non concernées soient masquées
a+

 

[eddy1975]

Re,
Sois je suis bête (c'est possible) ou tu t'exprimes mal ????

Un an après nous sommes toujours BRUXELLES

@+

 

[DoubleZero]

Bonjour, chaelie2015, eddy1975, le Forum,

En attendant mieux...

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$I$3" Then
        Select Case c
        Case "": Rows.Hidden = False
        Case 2: Rows("4:5").Hidden = False
        Case 3: Rows("4:6").Hidden = False
        Case 4: Rows("4:7").Hidden = False
        Case 5: Rows("4:8").Hidden = False
            ' à compléter...
        End Select
        c.Select
    End If
End Sub

A bientôt

 

[Si...]

Bonsoir

Si… 4-6 c’est 4, 5 et 6 (comme le pense aussi ÒÓ )

Private Sub Worksheet_Change(ByVal c As Range)
    Rows("4:30").Hidden = 1
    Rows("4:" & c + 3).Hidden = 0
End Sub

Sinon … (4-6 c’est 4 et 6)

Private Sub Worksheet_Change(ByVal c As Range)
  Rows("4:30").Hidden = 1
  Rows("4:4").Hidden = 0: Rows(c + 3).Hidden = 0
End Sub

@+

 

[DoubleZero]

Re-bonjour,

Bravo et merci, Si : que "d'encre" économisée... Je savais bien qu'il y aurait "bien plus mieux bien" !

A bientôt

 

[job75]

Bonsoir chaelie2015, eddy1975, DoubleZero, Si...,

Private Sub Worksheet_Change(ByVal target As Range)
Rows(4).Resize([I4]).Hidden = False
If [I4] < 27 Then Rows(4).Offset([I4]).Resize(27 - [I4]).Hidden = True
End Sub

A+

 

[eddy1975]

Bonsoir à tous,

Je suis Vraiment Bête Alors, je sais ce qu'il me reste à faire apprendre le code. Merci les Profs !!

@+

 

[chaelie2015]

Bonjour tous le monde
merci double zéro
merci SI
Merci JOB
Merci EDDY
Mon souci est résolut
encore une fois merci job
a+

 

[chaelie2015]

Private Sub Worksheet_Change(ByVal target As Range)
Rows(4).Resize([I4]).Hidden = False
If [I4] < 27 Then Rows(4).Offset([I4]).Resize(27 - [I4]).Hidden = True
End Sub

Bonjour JOb
encore une fois merci pour la réponse
si tu permets , si je vide la cellule I3(j'ai remonté la cellule I4 par I3) , j'aurais un message d'erreur:
Erreur d’exécution 1004????
A+

 

[Si...]

Re

Un On Error Resume Next en première ligne permet de continuer sans avoir besoin de connaitre le type d’erreur.

J’avais, moi aussi oublié, un test

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address <> [I3].Address Then Exit Sub
  Rows("4:30").Hidden = 1
  Rows("4:" & R + 3).Hidden = 0
End Sub