Masquer une ligne si une case d'une autre feuille est NUL

Bonjour à tous,

Je me crée un nouveau fichier de travail et j'aimerais masquer chaque ligne (de la feuille 2) ou la case correspondante (feuille 1) est NUL.

Suis-je contraint d'utiliser les macros ? Chose dont j'ai énormément de mal à utiliser.

Je vous joint mon ficher afin d'illustrer mon problème : https://www.cjoint.com/c/ICzp1X6CuzQ

Merci de votre aide !

Bonjour,

Un exemple dans le fichier joint.

Les lignes sont visibles ou masquées suivant le choix.

La procédure s'exécute à l'activation de la feuille Fiche détaillée.

Cdlt.

5maneilift-eds.xlsm (74.47 Ko)

Merci beaucoup Jean-Éric !

Le fichier fonctionne parfaitement, je vais essayer de comprendre ton programme.

Si jamais je veux faire plusieurs feuilles tel que Ascenseur, le programme s'effectuera de la même manière ou faut il changer des choses dans les lignes de codes ?

Cordialement,

Re,

C'est une procédure événementielle qui s'exécute à l’activation de la feuille.

Tu peux recopier ce code dans une nouvelle feuille sur le même principe.

1maneilift-eds.xlsm (74.19 Ko)

Elle est placée dans son module dans l'éditeur VBE (ALT F11 pour le visualiser).

Quelques commentaires :

Option Explicit
'Module Feuil1 (Fiche détaillée)
Private Sub Worksheet_Activate()
'Déclaration des variables
Const lRow As Long = 15
Dim lastrow As Long
Dim Cell As Range, Rng As Range
    'Optimisation procédure
    Application.ScreenUpdating = False
    With Me
        'Dernière ligne non vide colonne B (2)
        lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row
        'Plage de données à vérifier
        Set Rng = .Cells(lRow, 2).Resize(lastrow - lRow + 1)
        For Each Cell In Rng
            'Si la formule retourne une chaîne de longueur nulle (vide)
            Cell.EntireRow.Hidden = IIf(Len(Cell) = 0, True, False)
        Next
    End With
End Sub

Re,

J'ai créer une nouvelle page ascenseur afin de répéter le même principe tout en gardant une seule Fiche Détaillée.

De ce que je comprend, le programme est sur la Fiche détaillée donc je ne devrais en rien changer le code.

Tout fonctionne sauf le re affichage d'une case décoché puis coché.

Dans cet exemple la ligne 260 et 261 de la Fiche détaillé ne s'affichent pas si on décoche puis coche la case B460 d'ascenseur 2.

Merci de tes réponses rapides et efficace !

Bonjour,

Une fiche détaillée pour 2 ascenseurs ?

Pourquoi une fiche détaillée par ascenseur ?

Cdlt.

Re,

A vrai dire je veux une seule fiche détaillé par ascenseur mais j'aimerais ajouté une nouvelle feuille pour le local des machines, l'amiante ect ..

Je ne sais pas si je m'explique correctement mais sa ressemble à sa.

Cordialement,

1maneil-eds.xlsx (209.63 Ko)

Bonjour,

J'ai réussi à adapter le code sur toutes les pages.

J'aimerais savoir si c'est possible que la macro, qui masque mes lignes vide, peut s'effectuer suite à un click sur un bouton et non automatiquement.

Car la saisie se fait sur tablette et j'aimerais qu'ensuite j'ai plus qu'a clicker avec mon ordinateur afin de masquer toutes les lignes.

Merci beaucoup !

Sujet Résolu merci !

Rechercher des sujets similaires à "masquer ligne case feuille nul"