Faire apparaitre lignes en fonction valeur cellule Résolu

Question

Bonjour, 

Dans un tableau excel, en fonction de la valeur  mentionnée dans la cellule B14, je voudrais qu'il y ai autant de ligne qui apparaissent.

Exemple ; Si B14 = 10, 10 lignes en dessous de la ligne 17 (ligne de l'intitulé du tableau) apparaissent. Si ensuite je mets B14 = 5, seulement 5 lignes apparaissent en dessous de la ligne 17, les autres étant de nouveau cachées.

Merci d'avance de votre aide.

ThauTheme · Answer

Bonjour Ncmo, bonjour le forum,

Essaie comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$14" Then Exit Sub 'si le changement a lieu ailleurs qu'en B14, sort de la procédure
Rows("17:" & Application.Rows.Count).Hidden = False 'affiche toutes les lignes à partir de la ligne 17
Rows(18 + CInt(Target.Value) & ":" & Application.Rows.Count).Hidden = True 'masque les lignes en dessous de 17 + la valeur en B14
End Sub

NcMo13 · Answer

Bonjour, ThauTheme 

Merci pour la rapidité de ta réponse. 

Cependant, persiste un problème, est-il possible que les lignes au delà de la 34 (par exemple) ne disparaissent pas ?

Merci de ta précieuse aide.

ThauTheme · Answer

Re,

Je me demande parfois pourquoi je commente le code...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$14" Then Exit Sub 'si le changement a lieu ailleurs qu'en B14, sort de la procédure
Rows("17:34" ).Hidden = False 'affiche toutes les lignes à partir de la ligne 17 à la ligne 34
Rows(18 + CInt(Target.Value) & ":34").Hidden = True 'masque les lignes en dessous de 17 + la valeur en B14 jusqu'a la ligne 34
End Sub

NcMo13 · Answer

Re,

Oui d'accord, je n'avais pas songé à faire comme cela. 

Merci de ton aide.

Faire apparaitre lignes en fonction valeur cellule

4 réponses

Discussions similaires

Newsletters