En fonction de saisies, masquer ligne où c'est vide
Fermé
TomyCarp
Messages postés
4
Date d'inscription
jeudi 8 mai 2014
Statut
Membre
Dernière intervention
9 mai 2014
-
Modifié par TomyCarp le 8/05/2014 à 23:37
TomyCarp Messages postés 4 Date d'inscription jeudi 8 mai 2014 Statut Membre Dernière intervention 9 mai 2014 - 9 mai 2014 à 20:00
TomyCarp Messages postés 4 Date d'inscription jeudi 8 mai 2014 Statut Membre Dernière intervention 9 mai 2014 - 9 mai 2014 à 20:00
A voir également:
- En fonction de saisies, masquer ligne où c'est vide
- Fonction si et - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
5 réponses
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
574
9 mai 2014 à 09:21
9 mai 2014 à 09:21
Bonjour,
Le code ci-dessous pour les rangées de 2 à 50
Cliquer dans E1 pour masquer les rangées et dans Fi pour les afficher.
Code à adapter au besoin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$1" Then
For i = 2 To 50
If Range("A" & i) = "" Then
Range("A" & i).EntireRow.Hidden = True
End If
Next i
End If
If Target.Address = "$F$1" Then
For i = 2 To 50
If Range("A" & i) = "" Then
Range("A" & i).EntireRow.AutoFit
End If
Next i
End If
End Sub
Cordialement.
Le code ci-dessous pour les rangées de 2 à 50
Cliquer dans E1 pour masquer les rangées et dans Fi pour les afficher.
Code à adapter au besoin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$1" Then
For i = 2 To 50
If Range("A" & i) = "" Then
Range("A" & i).EntireRow.Hidden = True
End If
Next i
End If
If Target.Address = "$F$1" Then
For i = 2 To 50
If Range("A" & i) = "" Then
Range("A" & i).EntireRow.AutoFit
End If
Next i
End If
End Sub
Cordialement.
Mike-31
Messages postés
18345
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 novembre 2024
5 104
9 mai 2014 à 09:47
9 mai 2014 à 09:47
Bojour,
Tu peux également mettre ce code dans un module que tu associe à une forme ou un bouton
Sub Masque()
For i = 1 To 20 'Ici tu mets le nombre de lignes, de la 1er à la xx
If Range("A" & i) = "" Then ' je test si la cellule A est vide
Rows(i).EntireRow.Hidden = True 'masque la ligne
End If
Next i
End Sub
ce code dans les propriétés de la feuille pour afficher les lignes masquées sur un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells.EntireRow.Hidden = False
End Sub
tu peux également masquer toutes les lignes sauf les lignes concernant un élève par exemple
Tu peux également mettre ce code dans un module que tu associe à une forme ou un bouton
Sub Masque()
For i = 1 To 20 'Ici tu mets le nombre de lignes, de la 1er à la xx
If Range("A" & i) = "" Then ' je test si la cellule A est vide
Rows(i).EntireRow.Hidden = True 'masque la ligne
End If
Next i
End Sub
ce code dans les propriétés de la feuille pour afficher les lignes masquées sur un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells.EntireRow.Hidden = False
End Sub
tu peux également masquer toutes les lignes sauf les lignes concernant un élève par exemple
TomyCarp
Messages postés
4
Date d'inscription
jeudi 8 mai 2014
Statut
Membre
Dernière intervention
9 mai 2014
9 mai 2014 à 10:00
9 mai 2014 à 10:00
merci beaucoup Mike-31, je test ça tout de suite.
TomyCarp
Messages postés
4
Date d'inscription
jeudi 8 mai 2014
Statut
Membre
Dernière intervention
9 mai 2014
9 mai 2014 à 10:19
9 mai 2014 à 10:19
Mike-31, merci beaucoup ça fonctionne super bien pour mes données élèves (listing) mais comme j'ai fait un copier(listing), coller avec liaison dans la feuille points de période quand c'est vide, il marque zéro donc il ne me supprime pas mes lignes comme pourrait-on faire pour au lieu de vide mettre 0 ?
mille mercis !
mille mercis !
Mike-31
Messages postés
18345
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 novembre 2024
5 104
Modifié par Mike-31 le 9/05/2014 à 11:11
Modifié par Mike-31 le 9/05/2014 à 11:11
Re,
Ce qu'il faut faire, c'est travailler directement sur ton listing, mais pour des raisons de sécurité, que je comprends, tu peux dupliquer ton listing mais pas avec des liaisons, il faut faire un copier coller les valeurs pour les dupliquer, et sur cette feuille tu peux appliquer des filtres ou les codes pour masquer les lignes vides, les afficher, afficher simplement la ou les lignes concernant un élève et pourquoi pas sa photo si tu les as dans ton listing et cela à partir d'une simple liste de validation dans laquelle on aurait par exemple transfert pour dupliquer le listing
masquer pour masquer les lignes vides, afficher pour afficher les lignes masquées et la liste des élèves pour afficher simplement un profil élève
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Ce qu'il faut faire, c'est travailler directement sur ton listing, mais pour des raisons de sécurité, que je comprends, tu peux dupliquer ton listing mais pas avec des liaisons, il faut faire un copier coller les valeurs pour les dupliquer, et sur cette feuille tu peux appliquer des filtres ou les codes pour masquer les lignes vides, les afficher, afficher simplement la ou les lignes concernant un élève et pourquoi pas sa photo si tu les as dans ton listing et cela à partir d'une simple liste de validation dans laquelle on aurait par exemple transfert pour dupliquer le listing
masquer pour masquer les lignes vides, afficher pour afficher les lignes masquées et la liste des élèves pour afficher simplement un profil élève
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
TomyCarp
Messages postés
4
Date d'inscription
jeudi 8 mai 2014
Statut
Membre
Dernière intervention
9 mai 2014
9 mai 2014 à 20:00
9 mai 2014 à 20:00
merci, je vais changer tout ça et je reviendrai vers toi