masquer toutes les lignes et colonnes à l'exception de quelques unes

Le
Greg
Bonjour,

Est-il possible de masquer toutes les lignes et colonnes vides ou désignées
par l'utilisateur?

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #21286301
On masque les lignes si cellules vides dans colonne B:

On Error Resume Next
Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True


On masque les lignes si cellules vides dans toutes les colonnes:

Application.ScreenUpdatingúlse
For i = 1 To [A65000].End(xlUp).Row
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
Next i

Pour faire apparaître toutes les lignes de la feuille:

Cells.EntireRow.Hidden = False

JB





On 28 fév, 16:02, "Greg"
Bonjour,

Est-il possible de masquer toutes les lignes et colonnes vides ou d sign es
par l'utilisateur?

Greg


JB
Le #21286471
-Pour masquer des groupes de lignes:

Range("5:10,15:20,25:30").EntireRow.Hidden = True

-Pour masquer des groupes de colonnes:

Range("B:D,G:J").EntireColumn.Hidden = True

JB

On 28 fév, 16:18, JB
On masque les lignes si cellules vides dans colonne B:

On Error Resume Next
Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

On masque les lignes si cellules vides dans toutes les colonnes:

Application.ScreenUpdatingúlse
For i = 1 To [A65000].End(xlUp).Row
   If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
Next i

Pour faire apparaître toutes les lignes de la feuille:

Cells.EntireRow.Hidden = False

JB

On 28 fév, 16:02, "Greg"


> Bonjour,

> Est-il possible de masquer toutes les lignes et colonnes vides ou d sig n es
> par l'utilisateur?

> Greg- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Greg
Le #21286771
Merci JB, une fois de plus!

"JB" news:
-Pour masquer des groupes de lignes:

Range("5:10,15:20,25:30").EntireRow.Hidden = True

-Pour masquer des groupes de colonnes:

Range("B:D,G:J").EntireColumn.Hidden = True

JB

On 28 fév, 16:18, JB
On masque les lignes si cellules vides dans colonne B:

On Error Resume Next
Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

On masque les lignes si cellules vides dans toutes les colonnes:

Application.ScreenUpdatingúlse
For i = 1 To [A65000].End(xlUp).Row
If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True
Next i

Pour faire apparaître toutes les lignes de la feuille:

Cells.EntireRow.Hidden = False

JB

On 28 fév, 16:02, "Greg"


> Bonjour,

> Est-il possible de masquer toutes les lignes et colonnes vides ou d sign
> es
> par l'utilisateur?

> Greg- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme