Titre du sujet : Re: créer macro pour masquer une ligne suivant un critère par myDearFriend! le 28/10/2010 00:58:50
Bonsoir Odalor, bienvenue sur XLpages.com
Ci-dessous, une approche possible :
DANS UN MODULE DE CODE STANDARD (ex : Module1)
Option Explicit
' myDearFriend! - www.mdf-xlpages.com
Sub MasquerLignes()
Dim PlageSource As Range, PlageCible As Range, R As Range
Dim L As Long
'On cible toutes les cellules contenant une expression (constante) en colonne "AA"
Set PlageSource = Sheets("Feuil1").Columns(27).SpecialCells(xlCellTypeConstants, 2)
'Pour chaque cellule visée
For Each R In PlageSource
'Contient-elle l'expression recherchée ?
If R.Value Like "*remplacement effectué*" Then
'Si oui, on stocke sa référence dans un objet range "PlageCible"
If PlageCible Is Nothing Then
Set PlageCible = R
Else
Set PlageCible = Union(PlageCible, R)
End If
End If
Next R
'Si la PlageCible existe (n'est pas vide), on masque les lignes correspondantes
If Not PlageCible Is Nothing Then
PlageCible.EntireRow.Hidden = True
End If
End Sub
Sub AfficherToutesLignes()
'on réaffiche toutes les lignes masquées
Sheets("Feuil1").Rows.EntireRow.Hidden = False
End Sub
Cela dit, dans ce type de demande et notamment si tu es débutante, un classeur exemple en pièce jointe avec la question, est toujours une bonne idée...
Cordialement,
|