XL 2019 conserver les lignes contenant du texte rouge
- Initiateur de la discussion snipe49
- Date de début
Solution
Bah son fichier fonctionne parfaitement sur toutes les colonnes
Le tien j'ai une erreur
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
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
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
Ah mais je te remerci
Juste je comprends pas j'ai une erreur mais je sais pas comment la corriger
Merci par contre c'est l'inverse que je veux
Je veux conserver toutes les lignes qui ont du texte rouge
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
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
XLDnaute Barbatruc
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 SubRe-,
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
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
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
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) :
Dans l'éditeur PQ, tu cliques à droite sur l'étape nommé "Filtr", et tu mets cette formule dans la barre des formules
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
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
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
Re-,
Tes fichiers CSV sont bien dans le répertoire "D:\tef\test"?
Quand, dans l'éditeur PQ, tu cliques sur la 1ère étape, est-ce que tu as quelque chose comme ça?
Tes fichiers CSV sont bien dans le répertoire "D:\tef\test"?
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?
Discussions similaires
- Question
- Résolu(e)
