A voir également:
- Afficher/Masquer des lignes en fonction liste deroulante
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Fonction si et - Guide
- Masquer conversation whatsapp - Guide
- Comment masquer sa liste d'amis sur facebook mobile - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
10 mars 2015 à 15:40
10 mars 2015 à 15:40
Bonjour Dav, bonjour le forum,
Peut-être comme ça :
Efface A9 pour affiche toutes les lignes...
Peut-être comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$9" Then Exit Sub 'si le changement a lieu ailleurs qu'en A9, sort de la procédure
ActiveSheet.Rows.Hidden = False 'affiche toutes les lignes de l'onglet
If Target.Value = "" Then Exit Sub 'si A9 est effacée, sort de la procédure
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For I = 10 To Cells(Application.Rows.Count, 1).End(xlUp).Row 'boucle de 10 à la derniere ligne éditée de la colonne 1 (=A)
If Cells(I, 1).Value <> Target.Value Then Rows(I).Hidden = True 'si la cellule en colonne A de la ligne I n'est pas égale à A9, masque la ligne
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub
Efface A9 pour affiche toutes les lignes...
10 mars 2015 à 17:07
C'est pas vraiment ce que je souhaite, j'ai détaillé dans le fichier suivant :http://cjoint.com/?3CkrtfTwveW