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 Rester masquer quand vide

Rester masquer quand vide

2 réponses
Avatar
Érico
Bonjour,

J'ai cette macro, mais elle n'es pas parfaite, puisqu'elle démasque des
cellules qui sont vide

on pourrais lui demander si les cellules sont vides, de rester masquer de
D19 à D49.

Voici ma macro actuelle:
________________________________________
Application.Goto Reference:="LignDemasqHono"
Selection.EntireRow.Hidden = False
Application.Goto Reference:="LignMasqFactHono"
Selection.EntireRow.Hidden = True
Application.Goto Reference:="LignMasqDetHono"
Selection.EntireRow.Hidden = True
Range("C13").Select
________________________________________

Merci
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
JB
Bonjour,

Rows("19:49").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select '
sélectionne les cellules pleines
Selection.EntireRow.Hidden = False


Cordialement JB
Avatar
Érico
Nous avons fais ceci et ça bogue à la 4e ligne....

Application.Goto Reference:="LignDemasqHono"
Selection.EntireRow.Hidden = False
Rows("18:67").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




"JB" a écrit dans le message de news:

Bonjour,

Rows("19:49").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select '
sélectionne les cellules pleines
Selection.EntireRow.Hidden = False


Cordialement JB