Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller
Bonjour,
Je souhaiterais maintenant adapter la macro proposée ci-dessus pour faire en une seule fois : Action1+Action2+Action3+Action4+Action5. (filtre avec 4 critères).
Action1 : Rechercher "néantbar" et le remplacer par "néant"
Action2 : Chercher et trouver dans le tableau toutes les lignes qui contiennent au minimum
/DIRECTION/SOUS DIRECTION TECHNIQUE/TD OU
/DIRECTION/SOUS DIRECTION TECHNIQUE/TG OU
/DIRECTION/SOUS DIRECTION TECHNIQUE/TK OU
/DIRECTION/SOUS DIRECTION TECHNIQUE/TV
Action3 : mise en forme du résultat
Les lignes trouvées passent en Jaune (remplissage de la ligne = jaune)
Action4 : Copier le résultat et coller dans la Feuil2
Action5 : Dans la Feuil2 : rechercher si "néantpass" est présent. Si Oui, remplissage ligne = rouge.
En PJ, mon tableau version 2 avec une copie d'écran de l'action2 pour mieux comprendre.
A défaut de pouvoir tout faire, je suis quand même intéressé par une automatisation partielle.
Merci d'avance à la communauté et bonnes fêtes à tous.
--------------------
voici le code de ma 1ère demande qu'il faudrait adapter :
-------------------------------------
Sub Filtrer_MFC_extraire()
Application.ScreenUpdating = False
Sheets("Feuil2").Cells.Clear
ActiveSheet.Range("A1
65000").AutoFilter Field:=3, Criteria1:= _
"=*/DIRECTION/SOUS DIRECTION TECHNIQUE/TD*", Operator:=xlOr, Criteria2:= _
"=*/DIRECTION/SOUS DIRECTION TECHNIQUE/TG*"
With Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
.Interior.ColorIndex = 36
.Copy Destination:=Sheets("Feuil2").Range("A1")
.AutoFilter
End With
Range("A1
1").Interior.Color = 12186367
With Sheets("Feuil2")
.Activate
.Cells.WrapText = False
.Cells.EntireColumn.AutoFit
.Cells.Interior.ColorIndex = xlNone
End With
Application.ScreenUpdating = True
End Sub