Masquer plusieurs lignes en une seule fois

Bonjour,

je viens solliciter votre expérience au sujet d'un problème.

Je voudrai masquer toutes les lignes en italique de ma feuille en une seule opération/fois.

Je vous joins un fichier explicatif avec l'exemple.

Merci, d'avance à tous et bonne journée.

6classeur1.xlsx (14.83 Ko)

Bonjour JSTO1,

Macro à tester:

 Sub Masqueligne()

        'Dernière ligne remplie de la colonne A
       Lg = Range("A65536").End(xlUp).Row

        'De la ligne 1 à la dernière ligne remplie     ' à adapter à ton cas
       For i = 1 To Lg

        'on teste si la cellule Ai a la police en italique = la ligne est masquée
       If Cells(i, 1).Font.Italic = True Then Rows(i).Hidden = True

        'Ligne suivante
       Next

    End Sub

Cordialement,

Merci. La macro fonctionne bien. Ce qui m'a permis de faire la même chose pour afficher les lignes.

Encore merci.

Rechercher des sujets similaires à "masquer lignes seule fois"