Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel masquer toutes les lignes et colonnes à l'exception de quelques unes

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

3 réponses
Avatar
Greg
Bonjour,

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

Greg
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" wrote:
Bonjour,

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

Greg


Avatar
JB
-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 wrote:
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" wrote:



> 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 -


Avatar
Greg
Merci JB, une fois de plus!

"JB" a écrit dans le message de
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 wrote:
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" wrote:



> 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 -