masquer les lignes commençant par une valeur x Résolu

Question

Bonjour à toutes et tous,

J'ai récupéré le code ci après qui répond à mes attentes pour masquer les lignes commençant par une valeur x.
Par contre je m'essaye aux macros et je n'arrive pas à adapter le code pour qu'il prenne effet non pas sur les valeurs contenus dans la colonne C mais dans la colonne F.

Auriez vous une solution à me proposer et à m'expliquer ?

Sub masquernew()
For Each ligne In ActiveSheet.UsedRange.Rows
r = ligne.Row
chercheNew = Left(Cells(r, 3), 3)
If chercheNew = "new" Then Cells(r, 3).EntireRow.Hidden = True
Next
End Sub 

Merci

Cordialement
Hugues 





Configuration: Mac OS X (10.10.2) / Chrome 41.0.2272.101

f894009 · Answer

Bonjour,

une facon de faire, peut etre optimiser si vraiment beaucoup de lignes et pourra etre repris pour d'autre(s) feuille(s) en passant des parametres

Sub masquernew()
    Dim plage As Range, derlig As Long, cel As Range
    'code applique a cette feuille meme si autre feuille active
    With Worksheets("feuil1")
        'derniere cellule non vide colonne F
        derlig = .Range("F" & Rows.Count).End(xlUp).Row
        'mise en memoire plage de cellules
        Set plage = .Range("F1:F" & derlig)
        'boucle de recherche
        For Each cel In plage
            If Left(cel, 3) = "new" Then
                'masque ligne
                .Rows(cel.Row).Hidden = True
            End If
        Next cel
    End With
End Sub

A+

Boisgontierjacques · Answer

Bonjour,

Sub masquernew()
For Each ligne In ActiveSheet.UsedRange.Rows
r = ligne.Row
chercheX = Left(Cells(r, 6), 1)
If Ucase(chercheX) = "X" Then Cells(r, 6).EntireRow.Hidden = True
Next
End Sub 

JB
http://boisgontierjacques.free.fr

Masquer les lignes commençant par une valeur x

2 réponses

Discussions similaires

Newsletters