XL 2019 conserver les lignes contenant du texte rouge

[snipe49]

Bonjour a tous

je cherche a conserver uniquement les lignes qui contiennent du texte rouge

ci joint mon fichier

merci d'avance pour votre aide

 

[snipe49]

Bonjour,
C'est moi ou????
Tu valides une réponse qui fait exactement l'inverse de la demande, et qui ne traite qu'une colonne (la V), alors que tes MEFC concernent 11 colonnes...
Bah, passe de bonnes fêtes, et meilleurs vœux

Bah son fichier fonctionne parfaitement sur toutes les colonnes

Le tien j'ai une erreur

 

[fanch55]

Je ne comprend pas non plus :

je cherche a conserver uniquement les lignes qui contiennent du texte rouge

La demande initiale est de supprimer toutes les lignes où un texte coloré "rouge" existe,
pas d'analyser ce que font déjà les Mfc ?
ce que fait bien le code au Post #8 .
L'avez-vous testé ?

 

[Cousinhub]

Re-,
Tant mieux pour toi, si ça te convient....
Je vois également que je ne suis pas le seul à ne pas comprendre
Excuse-moi juste d'avoir essayé de t'aider...
Hop, dans les ignorés

 

[snipe49]

Je ne comprend pas non plus :


La demande initiale est de supprimer toutes les lignes où un texte coloré "rouge" existe,
pas d'analyser ce que font déjà les Mfc ?
ce que fait bien le code au Post #8 .
L'avez-vous testé ?

Non de conserver les lignes où il y a du texte rouge
Je suis vraiment novice et comprends rien au macro
Je peux essayer de tester mais faut m'expliquer comment

 

[snipe49]

Re-,
Tant mieux pour toi, si ça te convient....
Je vois également que je ne suis pas le seul à ne pas comprendre
Excuse-moi juste d'avoir essayé de t'aider...
Hop, dans les ignorés

Ah mais je te remerci
Juste je comprends pas j'ai une erreur mais je sais pas comment la corriger

 

[fanch55]

Je suis vraiment novice et comprends rien au macro
Je peux essayer de tester mais faut m'expliquer comment

Avec le classeur joint :

 

[snipe49]

Avec le classeur joint :
Regarde la pièce jointe 1187336

Merci par contre c'est l'inverse que je veux
Je veux conserver toutes les lignes qui ont du texte rouge

 

[Cousinhub]

Ah mais je te remerci
Juste je comprends pas j'ai une erreur mais je sais pas comment la corriger

Re-,
N'hésite pas à demander lorsque tu as des problèmes d'intégration des diverses réponses faites.
Quel message d'erreur?
Est-ce que Power Query est bien configuré?
Dans le ruban "Données", tu cliques sur "Obtenir des données/Options de requête"

Puis, dans les paramètres de confidentialité, tu coches "Toujours ignorer les paramètres......"

Si tu as toujours l'erreur à l'issue, fais une copie d'écran, pour voir le message
Bon courage

 

[snipe49]

Re-,
N'hésite pas à demander lorsque tu as des problèmes d'intégration des diverses réponses faites.
Quel message d'erreur?
Est-ce que Power Query est bien configuré?
Dans le ruban "Données", tu cliques sur "Obtenir des données/Options de requête"

Regarde la pièce jointe 1187340

Puis, dans les paramètres de confidentialité, tu coches "Toujours ignorer les paramètres......"

Regarde la pièce jointe 1187341


Si tu as toujours l'erreur à l'issue, fais une copie d'écran, pour voir le message
Bon courage

Super ça a corrigé le problème mais comme pour l'autre personne c'est l'inverse que je veux
La ça me supprime toutes les lignes où il y a du rouge

 

[fanch55]

Merci par contre c'est l'inverse que je veux
Je veux conserver toutes les lignes qui ont du texte rouge

Je suis confus d'avoir mal interprété la demande
Le code ci-dessous devrait le faire :

Sub Keep_Rouge()
Dim Rw As Integer, Cl As Range, Msg As String
Const Target_Color = 393372 ' le rouge de la MFC
    Msg = [test].Rows.Count & " lignes initiales dans la table Test" & vbLf
    [test].Rows.Hidden = False
    For Rw = [test].Rows.Count To 1 Step -1
        For Each Cl In [test].Rows(Rw).Columns
            If Cl.DisplayFormat.Font.Color = Target_Color Then
                Cl.EntireRow.Hidden = True
                Exit For
            End If
        Next
        If Not [test].Rows(Rw).Hidden Then [test].Rows(Rw).Delete
    Next
    [test].Rows.Hidden = False
    MsgBox Msg & [test].Rows.Count & " lignes en ""rouge"" dans la table Test"
End Sub

 

[Cousinhub]

Re-,
Dans la requête, je ne supprime aucune ligne, j'avais précisé que je te laissais le choix.
Toutes les lignes sont présentes, et à droite, dernière colonne, tu as les résultats "OK" ou "KO" selon les valeurs limite
Dans ce nouveau fichier, j'ai remis les MEFC.
Donc, colonne AA, si tu filtres sur "KO", toutes les lignes comportant du texte rouge dans une des colonnes concernées par les MEFC sont affichées.
Si tu sélectionnes "OK", aucun texte rouge n'apparaît.
On peut faire ce filtre dans la requête, en dernière étape.
Tu ouvres l'éditeur Power Query (Ruban "Requête", "Modifier")

Puis tu vas tout à droite, tu vois la colonne "Résultat", et à droite, les étapes :

Ici, tu fais un filtre sur la colonne Résultat, et tu sélectionnes "KO" (et "Manque mesure" s'il y en a)
Ruban "Accueil", tu cliques sur "Fermer et charger"
Et tu n'as plus que les lignes contenant du texte en rouge
Reviens si tu n'y arrives pas

 

[snipe49]

Re-,
Dans la requête, je ne supprime aucune ligne, j'avais précisé que je te laissais le choix.
Toutes les lignes sont présentes, et à droite, dernière colonne, tu as les résultats "OK" ou "KO" selon les valeurs limite
Dans ce nouveau fichier, j'ai remis les MEFC.
Donc, colonne AA, si tu filtres sur "KO", toutes les lignes comportant du texte rouge dans une des colonnes concernées par les MEFC sont affichées.
Si tu sélectionnes "OK", aucun texte rouge n'apparaît.
On peut faire ce filtre dans la requête, en dernière étape.
Tu ouvres l'éditeur Power Query (Ruban "Requête", "Modifier")

Regarde la pièce jointe 1187347

Puis tu vas tout à droite, tu vois la colonne "Résultat", et à droite, les étapes :

Regarde la pièce jointe 1187346

Ici, tu fais un filtre sur la colonne Résultat, et tu sélectionnes "KO" (et "Manque mesure" s'il y en a)
Ruban "Accueil", tu cliques sur "Fermer et charger"
Et tu n'as plus que les lignes contenant du texte en rouge
Reviens si tu n'y arrives pas

super merci

comment je peux faire pour changer sur mon fichier d'origine la source ?
j'allais chercher le dossier mais pas mal ton system

 

[Cousinhub]

Bonjour,
Dans l'onglet "Paramètres", tu entres le répertoire contenant tes fichiers CSV (attention, dans ma requête, je ne prends en compte que les fichiers se terminant par .CSV en majuscule - Si tu as également des fichiers en .csv en minuscule, ou .Csv, ou... il faut juste modifier la requête à l'étape 2 en mettant cette formule) :

= Table.SelectRows(Source, each (Text.Upper([Extension]) = ".CSV"))

Dans l'éditeur PQ, tu cliques à droite sur l'étape nommé "Filtr", et tu mets cette formule dans la barre des formules

 

[snipe49]

Quand je parle de mon fichier d'origine c'est mon fichier regroupant toutes mes sources
De base j'allais chercher mes sources dans un dossier
je voudrais modifier ca pour aller les récupérer a partir de ta page paramètre
je sais pas si j'explique bien

je te joins le fichier final comme je le voudrais, juste la source de mon fichier rajouter qui va pas

 

[Cousinhub]

Re-,
Tes fichiers CSV sont bien dans le répertoire "D:\tef\test"?

je sais pas si j'explique bien

Ben, non, pas trop....
Quand, dans l'éditeur PQ, tu cliques sur la 1ère étape, est-ce que tu as quelque chose comme ça?