(RESOLU)Afficher / Masquer selon une valeur

chaelie2015

XLDnaute Accro

• 21 Mars 2017

• #2

Re
dessolé ci joint le fichier
a+

 

Pièces jointes

• CHARLIE AFFICHER MASQUER.xlsx

  8.6 KB · Affichages: 82

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 21 Mars 2017

• #3

Bonsoir Chaelie,

Une solution par MFC. A voir.

@+

 

Pièces jointes

• CHARLIE AFFICHER MASQUER.xlsx

  9.6 KB · Affichages: 44

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 21 Mars 2017

• #4

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

 

Pièces jointes

• CHARLIE AFFICHER MASQUERv1.xlsm

  10.2 KB · Affichages: 44

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 21 Mars 2017

• #5

Re,
Une autre proposition. Selon ta demande initiale.

Si I4 =2 alors afficher 4 et 5

Si I4= 3 alors afficher 4-6

@+

 

Pièces jointes

• CHARLIE AFFICHER MASQUERv1.xlsm

  12.4 KB · Affichages: 50

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 22 Mars 2017

• #6

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

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 22 Mars 2017

• #7

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

Un an après nous sommes toujours BRUXELLES

@+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Mars 2017

• #8

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Mars 2017

• #9

Bonsoir

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

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

@+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Mars 2017

• #10

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Mars 2017

• #11

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

Code:

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+

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 22 Mars 2017

• #12

Bonsoir à tous,

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

@+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Mars 2017

• #13

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Mars 2017

• #14

job75 à dit:

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

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Mars 2017

• #15

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

Vote positif 0 Vote négatif