Case a cocher et executer une macro suivant le résultat

Bonjour à tous,

je souhaite sur un tableau de plus de 300 lignes mettre en haut du tableau une case à cocher permettant soit de cacher les lignes vides (si la case est cochée) ou bien de les rendre toutes visibles (si la case est décochée).

Je trouve cela beaucoup plus élégant que deux boutons de macros.

Le problème est que je ne sais pas comment écrire cela, soit par une macrioqui teste le résultat soit par un code ...

Bref j'ai besoin d'aide et évidemment c'est urgent !!!

Merci d'avance

Bonsoir,

Un essai

Sub MasqueLigne()
Dim Lg&
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    If Range("x1") = True Then
        On Error Resume Next
        Range("b5:b" & Lg).SpecialCells(xlCellTypeBlanks).Rows.Hidden = True
        On Error GoTo 0
    Else
        Cells.Rows.Hidden = False
    End If
End Sub

Amicalement

Claude

Bonjour cher DUBOIS,

Je te remercie grandement pour ton aide car pour moi le problème est résolu;

J'ai encore appris aujourd'hui et c'est grâce à toi.

Cela marche du tonnerre.

Très bonnes fêtes de fin d'année

Merci Merci Merci

Bonjour,

Tu n'as pas encore l'habitude du forum,

ce n’est pas le smiley qu'il faut cocher pour mettre le poste en résolu,

c’est ici. dans le dernier message

Claude

Merci beaucoup, je t'assure que j'ai cherché.

au fait je vais poster une autre question sujet mise en page et entête, vu ton efficacité, je t'avoue que j'ai de l'espoir .

Encore merci