Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher et masquer

Afficher et masquer

2 réponses
Avatar
Érico
Bonjour,

J'aimerais avoir une macro suivante:

_____________________________________________________________

Ligne 12 à 117 sont masquées.

Bouton avec macro pour :

Afficher les lignes 12 à 117.

De D18 à D68 vérifier les entrées, si cellule vide masquer de nouveau.

De D85 à D115 vérifier les entrées, si cellule vide masquer de nouveau.

J'ai ceci et ça ne fonctionne pas bien:

Application.Goto Reference:="LignDemasqHono"

Selection.EntireRow.Hidden = False

Range("D18:D68").Select

Selection.SpecialCells(xlCellTypeConstants, 23).Select

'sélectionne les cellules pleines

Selection.EntireRow.Hidden = False

Application.Goto Reference:="LignMasqFactHono"

Selection.EntireRow.Hidden = True

Application.Goto Reference:="LignMasqDetHono"

Selection.EntireRow.Hidden = True

Range("C13").Select

End Sub
Signaler un problème avec ce contenu

2 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
Jacky
Bonsoir,

Ceci peut-être, si j'ai bien compris...

Lignes 12 à 117 nommées zone
D18 à D68 nommées zone1
D85 à D115 nommé zone2
'-------------
Sub jj()
Range("zone").EntireRow.Hidden = False
If Application.CountBlank([zone1]) > 0 Then
Range("zone1").EntireRow.Hidden = True
End If
If Application.CountBlank([zone2]) > 0 Then
Range("zone2").EntireRow.Hidden = True
End If
Range("C13").Select
End Sub
'---------------
Salutations
JJ

"Érico" a écrit dans le message de
news:u%
Bonjour,

J'aimerais avoir une macro suivante:

_____________________________________________________________

Ligne 12 à 117 sont masquées.

Bouton avec macro pour :

Afficher les lignes 12 à 117.

De D18 à D68 vérifier les entrées, si cellule vide masquer de nouveau.

De D85 à D115 vérifier les entrées, si cellule vide masquer de nouveau.

J'ai ceci et ça ne fonctionne pas bien:

Application.Goto Reference:="LignDemasqHono"

Selection.EntireRow.Hidden = False

Range("D18:D68").Select

Selection.SpecialCells(xlCellTypeConstants, 23).Select

'sélectionne les cellules pleines

Selection.EntireRow.Hidden = False

Application.Goto Reference:="LignMasqFactHono"

Selection.EntireRow.Hidden = True

Application.Goto Reference:="LignMasqDetHono"

Selection.EntireRow.Hidden = True

Range("C13").Select

End Sub





Avatar
Jacky
Re..
S'il ne fallait cacher que les lignes des cellules vides

Lignes 12 à 117 nommées zone
D18 à D68 nommées zone1
D85 à D115 nommé zone2
'--------
Sub jj()
Range("zone").EntireRow.Hidden = False
Range("zone1").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Range("zone2").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
'----------
JJ