A voir également:
- En fonction de saisies, masquer ligne où c'est vide
- Partage de photos en ligne - Guide
- Fonction si et - Guide
- Mètre en ligne - Guide
- Supprimer page word vide - Guide
- Site de vente en ligne particulier - 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