Masquer les lignes commençant par une valeur x
Résolu
HUGO BASS
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Masquer les lignes commençant par une valeur x
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Comment masquer les amis sur facebook - Guide
- Masquer une conversation whatsapp - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
2 réponses
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
A+
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+
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
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