Faire apparaitre lignes en fonction valeur cellule

Résolu/Fermé

NcMo13 Messages postés 3 Date d'inscription mardi 31 juillet 2018 Statut Membre Dernière intervention 1 août 2018 - 31 juil. 2018 à 12:31
NcMo13 Messages postés 3 Date d'inscription mardi 31 juillet 2018 Statut Membre Dernière intervention 1 août 2018 - 1 août 2018 à 08:54

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.

A voir également:

Faire apparaitre lignes en fonction valeur cellule
Apparaitre hors ligne instagram - Guide
Apparaitre hors ligne whatsapp - Guide
Fonction si et - Guide
Aller à la ligne dans une cellule excel - Guide
Ne pas apparaître en ligne sur messenger pour une personne - Guide

4 réponses

Réponse 1 / 4

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
31 juil. 2018 à 13:54

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

Réponse 2 / 4

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
31 juil. 2018 à 17:17

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

Réponse 3 / 4

NcMo13 Messages postés 3 Date d'inscription mardi 31 juillet 2018 Statut Membre Dernière intervention 1 août 2018
31 juil. 2018 à 14:34

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.

Réponse 4 / 4

NcMo13 Messages postés 3 Date d'inscription mardi 31 juillet 2018 Statut Membre Dernière intervention 1 août 2018
1 août 2018 à 08:54

Re,

Oui d'accord, je n'avais pas songé à faire comme cela.

Merci de ton aide.

Discussions similaires

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Renseigner cellule en fonction de la valeur d'une autre cellule

Excel VBA : Récupérer la valeur d'une cellule

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters