(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
 

job75

XLDnaute Barbatruc
Bonjour chaelie2015 et les autres,

Au post #1 vous dites que I3 varie de 1 à 27...

Alors si on y entre d'autres valeurs I3 prendra par défaut la valeur 27 (pour afficher tout) :
Code:
Private Sub Worksheet_Change(ByVal target As Range)
If IsError([MATCH(I3,ROW(1:27),0)]) Then [I3] = 27
Rows(4).Resize([I3]).Hidden = False
If [I3] < 27 Then Rows(4).Offset([I3]).Resize(27 - [I3]).Hidden = True
End Sub
A+
 

JohDan

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

@+
Bonjour,

Je vois toutes vos réponses et tout semble merveilleux, mais moi, cela ne fonctionne pas. Dans quoi vous mettez les formules ? VB module, worksheet et on les associe comment ?

Je pense que je suis meilleures en Acrobat zut.
 

Discussions similaires

Statistiques des forums

Discussions
315 123
Messages
2 116 458
Membres
112 748
dernier inscrit
Pboiusquet