(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]

Bonjour SI
MERCI pour la réponse c'est exactement ce que je cherchais
a+

 

[job75]

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) :

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+

 

[chaelie2015]

re
merci job
a+

 

[JohDan]

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

@+

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.

 

[soan]

Bonjour JohDan, le fil,

je t'ai écrit un post ICI.

(clique sur le lien bleu)

soan