Masquer des lignes et des colonnes dans un fichier
Fermé
roukili
Messages postés
17
Date d'inscription
vendredi 5 juin 2015
Statut
Membre
Dernière intervention
6 juillet 2015
-
Modifié par pijaku le 8/06/2015 à 10:04
roukili - 8 juin 2015 à 09:27
roukili - 8 juin 2015 à 09:27
A voir également:
- Masquer des lignes et des colonnes dans un fichier
- Fichier rar - Guide
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Fichier host - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier iso - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
5 juin 2015 à 16:13
5 juin 2015 à 16:13
Bonjour,
Essaies :
Essaies :
Sub test()
Dim src As Range
Dim dst As Range
Dim cel As Range
Cells.EntireRow.Hidden = False
Set src = Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each cel In src.Cells
If cel.Value Like "*DE*" Then
If dst Is Nothing Then Set dst = cel Else Set dst = Union(dst, cel)
End If
Next cel
If Not dst Is Nothing Then dst.EntireRow.Hidden = True
End Sub
5 juin 2015 à 16:24
Modifié par Patrice33740 le 5/06/2015 à 16:33
Désolé, j'ai été un peu trop vite, je n'avais pas vu « qui ne contiennent pas »
Remplaces :
par:
If Not dst Is Nothing Then Cells.EntireRow.Hidden = True dst.EntireRow.Hidden = False End IfEt si tu veux tester uniquement une plage remplaces Cells dans :
par la plage à tester, par exemple par :
Set src = Range("B18:F51").SpecialCells(xlCellTypeConstants, xlTextValues)Cordialement
Patrice
5 juin 2015 à 16:35
cordialement
Reda
Modifié par pijaku le 8/06/2015 à 10:04
If Not dst Is Nothing Then Cells.EntireRow.Hidden = True dst.EntireRow.Hidden = False End If5 juin 2015 à 16:38