Faire apparaitre lignes en fonction valeur cellule
Résolu
NcMo13
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
NcMo13 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
NcMo13 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Faire apparaitre lignes en fonction valeur cellule
- Fonction si et - Guide
- Apparaitre hors ligne instagram - Guide
- Apparaitre hors ligne whatsapp - Guide
- Comment ne pas apparaître en ligne sur facebook - Guide
- Partager photos en ligne - Guide
4 réponses
Bonjour Ncmo, bonjour le forum,
Essaie comme ça :
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
Re,
Je me demande parfois pourquoi je commente le code...
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