Masquer ds lignes en fonction d'un nombre entré dans une cellule
Résolu/Fermé
lilou963
Messages postés
12
Date d'inscription
lundi 22 mai 2017
Statut
Membre
Dernière intervention
13 juillet 2017
-
2 juin 2017 à 10:45
lilou963 Messages postés 12 Date d'inscription lundi 22 mai 2017 Statut Membre Dernière intervention 13 juillet 2017 - 6 juin 2017 à 12:30
lilou963 Messages postés 12 Date d'inscription lundi 22 mai 2017 Statut Membre Dernière intervention 13 juillet 2017 - 6 juin 2017 à 12:30
A voir également:
- Masquer ds lignes en fonction d'un nombre entré dans une cellule
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Excel remplir une cellule en fonction d'une autre ✓ - Forum Excel
- Appeler en masqué - Guide
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
2 juin 2017 à 16:58
2 juin 2017 à 16:58
Bonjour,
votre fichier modifie avec controle entree numerique, vide et un max de lignes a afficher
https://mon-partage.fr/f/9LY2xo36/
Code VBA dans la feuille
votre fichier modifie avec controle entree numerique, vide et un max de lignes a afficher
https://mon-partage.fr/f/9LY2xo36/
Code VBA dans la feuille
6 juin 2017 à 09:12
Merci pour cette réponse mais je n'arrive pas à ouvrir votre fichier.
C'est possible de me l'envoyer avec cjoint ou envoyer le code ???
D'avance merci
6 juin 2017 à 10:25
https://www.cjoint.com/c/GFgiyJlJDof
Je ne vois pas trop ce que ca va changer!
A defaut le code a mettre dans feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("E4,E6,E8")) Is Nothing Then lig = Target.Row: Of7 = Target.Value If lig = 4 Then 'ligne de depart:19 max:74 Rows("19:74").EntireRow.Hidden = False If Of7 <> "" And IsNumeric(Of7) And Of7 < 57 Then Rows(19 + Of7 & ":74").EntireRow.Hidden = True End If ElseIf lig = 6 Then 'ligne de depart:77 max:132 Rows("77:132").EntireRow.Hidden = False If Of7 <> "" And IsNumeric(Of7) And Of7 < 57 Then Rows(77 + Of7 & ":132").EntireRow.Hidden = True End If ElseIf lig = 8 Then 'ligne de depart:134 max:190 Rows("135:190").EntireRow.Hidden = False If Of7 <> "" And IsNumeric(Of7) And Of7 < 57 Then Rows(135 + Of7 & ":190").EntireRow.Hidden = True End If End If End If End Sub6 juin 2017 à 12:30
En tout cas un grand MERCI à toi.
Ca fonctionne très bien !! :)