(RESOLU)Afficher / Masquer selon une valeur

chaelie2015

XLDnaute Accro
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
 

DoubleZero

XLDnaute Barbatruc
Bonjour, chaelie2015, eddy1975, le Forum,

En attendant mieux...
VB:
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...

XLDnaute Barbatruc
Bonsoir

Si… 4-6 c’est 4, 5 et 6 (comme le pense aussi ÒÓ :D;))
VB:
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)
VB:
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

@+
 

chaelie2015

XLDnaute Accro
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+
 

Pièces jointes

  • CHARLIE AFFICHER MASQUER R JOB .xlsm
    14.4 KB · Affichages: 47

Si...

XLDnaute Barbatruc
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
VB:
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
 

Pièces jointes

  • Afficher si.xlsm
    17.8 KB · Affichages: 51

Discussions similaires

Statistiques des forums

Discussions
312 827
Messages
2 092 555
Membres
105 451
dernier inscrit
mariane_lp