XL 2019 conserver les lignes contenant du texte rouge

snipe49 · 28 Décembre 2023

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

sylvanu · 28 Décembre 2023

Bonjour Snipe, Njhub,
Un essai en PJ avec :

VB:

Sub SupLignes()
    Dim ValMin, ValMax, DL, L
    Application.ScreenUpdating = False
    ValMin = Val(Split([V2].FormatConditions(2).Formula1, "=")(1))  ' Recup val min filtrage
    ValMax = Val(Split([V2].FormatConditions(3).Formula1, "=")(1))  ' Recup val max filtrage
    DL = [V100000].End(xlUp).Row                                    ' Dernière ligne
    For L = DL To 2 Step -1                                         ' Si <Valmin et >ValMax on supprime la ligne
        If Cells(L, "V") < ValMin Or Cells(L, "V") > ValMax Then Rows(L).Delete Shift:=xlUp
    Next L
End Sub

NB : Le bouton gris sert à ré initialiser le tableau pour les tests.

snipe49 · 29 Décembre 2023

Cousinhub à dit:
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 · 29 Décembre 2023

Je ne comprend pas non plus :

snipe49 à dit:
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 · 29 Décembre 2023

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 · 29 Décembre 2023

fanch55 à dit:
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 · 29 Décembre 2023

Cousinhub à dit:
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 · 29 Décembre 2023

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

Avec le classeur joint :

snipe49 · 29 Décembre 2023

fanch55 à dit:
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 · 29 Décembre 2023

snipe49 à dit:
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 · 29 Décembre 2023

Cousinhub à dit:
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 · 29 Décembre 2023

snipe49 à dit:
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 :

VB:

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 · 29 Décembre 2023

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 · 30 Décembre 2023

Cousinhub à dit:
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 · 30 Décembre 2023

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) :

PowerQuery:

= 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 · 30 Décembre 2023

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 · 30 Décembre 2023

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

snipe49 à dit:
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?

XL 2019 conserver les lignes contenant du texte rouge

snipe49

XLDnaute Nouveau

Pièces jointes

sylvanu

snipe49

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

snipe49

XLDnaute Nouveau

snipe49

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

snipe49

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

snipe49

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

snipe49

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

snipe49

XLDnaute Nouveau

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires