En fonction de saisies, masquer ligne où c'est vide
TomyCarp
Messages postés
7
Statut
Membre
-
TomyCarp Messages postés 7 Statut Membre -
TomyCarp Messages postés 7 Statut Membre -
Bonjour tout le monde,
Je suis professeur et j'ai réalisé un cahier de côtes sous excel . Jusque là, je n'ai aucun problème (formules, etc.) sauf que j'aimerais en fonction d'un listing élèves qu'il MASQUE les lignes qui ne sont pas remplies tout ça automatiquement sans manipuler avec les filtres.J'ai lié(coller avec lien) le listing (noms,prénoms) à toutes les autres feuilles (feuilles points de périodes) pour éviter de les réécrire(nt).
Et donc j'aimerais une fois réalisé mon listing élèves, je clique sur une forme avec une macro (ça je sais faire) et qu'elle me masque les lignes là où il n'y a pas de noms&prénoms des élèves.
J'espère avoir été clair
Merci beaucoup pour vos réponses prochaines
TomyCarp
Je suis professeur et j'ai réalisé un cahier de côtes sous excel . Jusque là, je n'ai aucun problème (formules, etc.) sauf que j'aimerais en fonction d'un listing élèves qu'il MASQUE les lignes qui ne sont pas remplies tout ça automatiquement sans manipuler avec les filtres.J'ai lié(coller avec lien) le listing (noms,prénoms) à toutes les autres feuilles (feuilles points de périodes) pour éviter de les réécrire(nt).
Et donc j'aimerais une fois réalisé mon listing élèves, je clique sur une forme avec une macro (ça je sais faire) et qu'elle me masque les lignes là où il n'y a pas de noms&prénoms des élèves.
J'espère avoir été clair
Merci beaucoup pour vos réponses prochaines
TomyCarp
A voir également:
- En fonction de saisies, masquer ligne où c'est vide
- Fonction si ou - Guide
- Partage de photos en ligne - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Comment supprimer une page vide sur word - Guide
5 réponses
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.
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
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 !
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