Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

fd.30

XLDnaute Junior
Bonjour,

Je souhaiterais une Macro qui puisse faire en une seule fois : Action1+Action2+Action3.

Action 1 : Chercher et trouver dans le tableau toutes les lignes qui contiennent au minimum
/DIRECTION/SOUS DIRECTION TECHNIQUE/TD OU /DIRECTION/SOUS DIRECTION TECHNIQUE/TG

Action2 : mise en forme du résultat
Les lignes trouvées passent en Jaune (remplissage de la ligne = jaune)


Action3 : Copier le résultat et coller dans la Feuil2


En PJ, mon tableau avec une copie d'écran de l'action1 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.
 

Pièces jointes

  • Classeur1.xlsx
    84.8 KB · Affichages: 83
  • Classeur1.xlsx
    84.8 KB · Affichages: 82
  • Classeur1.xlsx
    84.8 KB · Affichages: 82
Dernière édition:

DoubleZero

XLDnaute Barbatruc
Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

Bonjour, fd.30, le Forum,

Un essai en pièce jointe.

A bientôt :)
 

Pièces jointes

  • 00 - fd.30 - Filtrer, MFC, extraire.xls
    148 KB · Affichages: 58
  • 00 - fd.30 - Filtrer, MFC, extraire.xls
    148 KB · Affichages: 62
  • 00 - fd.30 - Filtrer, MFC, extraire.xls
    148 KB · Affichages: 61

fd.30

XLDnaute Junior
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:D65000").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:D1").Interior.Color = 12186367
With Sheets("Feuil2")
.Activate
.Cells.WrapText = False
.Cells.EntireColumn.AutoFit
.Cells.Interior.ColorIndex = xlNone
End With
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • Classeur1.xlsx
    103.8 KB · Affichages: 62
  • Classeur1.xlsx
    103.8 KB · Affichages: 57
  • Classeur1.xlsx
    103.8 KB · Affichages: 61

DoubleZero

XLDnaute Barbatruc
Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

Bonjour, fd.30, le Forum,

Une suggestion ci-après.

A bientôt :)
 

Pièces jointes

  • 00 - fd.30 - Filtrer, MFC, extraire V2.xls
    173 KB · Affichages: 80
  • 00 - fd.30 - Filtrer, MFC, extraire V2.xls
    173 KB · Affichages: 84
  • 00 - fd.30 - Filtrer, MFC, extraire V2.xls
    173 KB · Affichages: 85

Staple1600

XLDnaute Barbatruc
Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

Bonjour à tous

Une autre possibilité ( à utiliser quand on s'ennuie et que rien ne presse ;))
1) Dans la cellule E2 de la feuille1, mettre cette formule
=OU(ESTNUM(CHERCHE("*QUE/TD*";C2));ESTNUM(CHERCHE("*QUE/TG*";C2));ESTNUM(CHERCHE("*QUE/TK*";C2));ESTNUM(CHERCHE("*QUE/TV*";C2)))
2) Se positionner sur la cellule A1 de la feuille Résultat et lancer un filtre élaboré comme ci-dessous
FiltreElaB.png

Le petit souci c'est que manuellement cela fonctionne, mais si on essaye d'enregistrer cette manip en macro, Excel bronche

PS: pour le reste des actions*, on peut également le faire manuellement pour l'une sur le filtre élaboré, pour l'autre en faisant un filtre automatique sur la feuille résultat.
*: je rappelle que rien ne presse, qu'on s'ennuie donc on se force à pas VBAtiser ;)
Néanmoins, je vais voir si on peut transcrire ces manips en vba (sans passer par l'enregistreur de macros)
 
Dernière édition:

Monique

Nous a quitté
Repose en paix
Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

Bonjour,

Par formules

Code:
=SOMMEPROD((ESTNUM(CHERCHE(Debut&Ref;$C3))*(Ref<>"")))*LIGNE()
renvoie le n° de ligne selon critère(s)
puis extraction selon n° de ligne
 

Pièces jointes

  • Extraire-Fd30.xlsx
    42.4 KB · Affichages: 57

fd.30

XLDnaute Junior
Re : Automatiser un filtrage de texte + couleur jaune sur le resultat + copier/coller

Merci beaucoup DoubleZero; c'est parfait !! Très sympa de ta part.
Merci aussi à Monique et Stample pour votre collaboration.
Bonne année.
fd.30
 

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG