Re : cacher ligne dans 12 pages[résolu]

[surplus]

bonjour
je voudrais cacher les lignes dans 12 pages si dans une ligne j'ai une valeur "N"
jai une liste dans une feuille et une condition en colonne H "O" ou "N" et quand j'ai la valeur"N" je voudrais cacher la ligne correspondante dans les 12 feuilles correspondant aux mois.
est ce possible?
merci de votre aide
à bientôt

 

[Staple1600]

Re : cacher ligne dans 12 pages

Bonsoir

Oui c'est possible

Mais c'est réalisable plus facilement avec un fichier exemple joint dans ta question...YAPLUKA

 

[surplus]

Re : cacher ligne dans 12 pages

Bonsoir

Oui c'est possible

Mais c'est réalisable plus facilement avec un fichier exemple joint dans ta question...YAPLUKA

bonsoir
je vous mets le fichier il est en zip il depassait juste la limite
merci
a bientôt

 

[Staple1600]

Re : cacher ligne dans 12 pages

Bonjour à tous

Ce code semble faire l'affaire (avec un fichier Excel structuré comme ton fichier exemple)
Le test semble concluant sur le pc ici.

Sub a()
Dim c As Range, i As Integer, j As Long
For i = 1 To ActiveWorkbook.Worksheets.Count
    If Not Worksheets(i).Name = "Vehic" Then
        With Worksheets(i)
            For j = 2 To Worksheets("Vehic").Range("A65536").End(xlUp).Row
            If Worksheets("Vehic").Cells(j, "H") = "N" Then
            .Cells(j + 5, "A").EntireRow.Hidden = True
            End If
            Next j
        End With
    End If
Next i
End Sub

 

[surplus]

bonjour
c'est parfait j'ai trouvé ou la placer et réapparaitre si =O
impeccable
merci