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]

oui ils se trouvent bien la
sur ta feuille que j'ai renommé valeur incorrect après usinage c'est bon
par contre sur ma feuille valeur tef ils s'actualisent pas car il va pas chercher la source sur ta 1ere feuille

 

[Cousinhub]

Re-,
Ben oui, tu utilises ton ancien code, et pas le mien...
On ne peut pas mélanger les 2, le principe n'étant pas du tout le même.
Soit tu conserves le mien, soit il faut tout modifier dans le tien, et je ne pense pas que le jeu en vaille la chandelle...
Pourquoi veux-tu conserver le tien?

 

[Cousinhub]

Re-,
J'ai remarqué que dans certains CSV, tu avais un point à la place d'une virgule dans le titre "Diam. gauche" (à la place de "Diam, gauche"
Tu pourrais donc avoir un problème si un tel CSV était en début de répertoire...
Dans la V3, je passe outre le nom des colonnes pour remplacer les points des valeurs numériques par des virgules, et pour les typer en "type number"
Au cazou.....

 

[job75]

Bonsoir à tous,

Pourquoi vouloir supprimer des lignes ?

Il est bien plus simple d'ajouter au tableau la colonne "MFC" pour le filtrer.

Elle est alimentée automatiquement par cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ncol%, tablo, i&, j%
With [test]
    ncol = .Columns.Count
    ReDim tablo(1 To .Rows.Count, 1 To 1)
    For i = 1 To .Rows.Count
        For j = 1 To ncol - 1
            If .Cells(i, j).DisplayFormat.Font.Color = 393372 Then tablo(i, 1) = "Oui": Exit For
    Next j, i
    .Columns(ncol) = tablo
End With
End Sub

A+

 

[job75]

Bonjour le forum,

Pour tester j'ai agrandi le tableau A2:Y116 sur 115 000 lignes : la macro s'exécute en 36 secondes.

En ne traitant que les colonnes V et J à S la durée est réduite à 11,4 secondes chez moi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tablo, i&, j%
With [test]
    ReDim tablo(1 To .Rows.Count, 1 To 1)
    For i = 1 To .Rows.Count
        If .Cells(i, 22).DisplayFormat.Font.Color = 393372 Then tablo(i, 1) = "Oui": GoTo 1
        For j = 10 To 19
            If .Cells(i, j).DisplayFormat.Font.Color = 393372 Then tablo(i, 1) = "Oui": Exit For
1   Next j, i
    .Columns(25) = tablo
End With
End Sub

A+

 

[Cousinhub]

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

Bonjour,
La nuit portant conseil....
J'ai compris ta demande.
Dans tes requêtes (jaunes, ci-dessous)

Tu utilises la même syntaxe que moi pour la "Source" :

= Folder.Files(CheminDossier)[[Folder Path],[Name],[Extension]]

Et comme mon traitement ultérieur est différent, il te faut modifier la "Source" ainsi :

= Folder.Files(CheminDossier)

(Dans les 4 étapes des "Source" des requêtes surlignées)
Et tu n'as plus d'erreur
Bonne journée

 

[snipe49]

Re-,
J'ai remarqué que dans certains CSV, tu avais un point à la place d'une virgule dans le titre "Diam. gauche" (à la place de "Diam, gauche"
Tu pourrais donc avoir un problème si un tel CSV était en début de répertoire...
Dans la V3, je passe outre le nom des colonnes pour remplacer les points des valeurs numériques par des virgules, et pour les typer en "type number"
Au cazou.....

D'accord mais ça résoud pas mon problème de source
Je voudrais que ma feuille valeur tef fasse référence à ta feuille paramètres

Bonjour,
La nuit portant conseil....
J'ai compris ta demande.
Dans tes requêtes (jaunes, ci-dessous)
Regarde la pièce jointe 1187442
Tu utilises la même syntaxe que moi pour la "Source" :

= Folder.Files(CheminDossier)[[Folder Path],[Name],[Extension]]

Et comme mon traitement ultérieur est différent, il te faut modifier la "Source" ainsi :

= Folder.Files(CheminDossier)

(Dans les 4 étapes des "Source" des requêtes surlignées)
Et tu n'as plus d'erreur
Bonne journée

J'ai fais autrement en faisant une copie de ton fichier et en enlevant le filtre sur la colonne opération

 

[Cousinhub]

D'accord mais ça résoud pas mon problème de source
Je voudrais que ma feuille valeur tef fasse référence à ta feuille paramètres

J'ai fais autrement en faisant une copie de ton fichier et en enlevant le filtre sur la colonne opération

Re-,
Si tu ne modifies pas ton comportement, je n'interviens plus...
On ne s'est pas encore vu ce jour, donc j'avais commencé par un "Bonjour"
Et "j'ai fait autrement...." sans même un merci...
Sans même un msg pour Job pour ses propositions...
Bref, on a beau être sur un forum, il existe quand même quelques simples règles de politesse...
Tchao

 

[snipe49]

Bonjour,

Désolé j'ai voulu répondre rapidement étant bien pris avec le réveillon.

Pour répondre a job comme déjà évoqué je ne connais rien du tout au macro donc compliqué si je dois changer quelque chose.

Pour ça que je suis parti sur ta solution cousinhub tout en sachant qu je maîtrise très peu PQ.

Merci encore pour votre aide.

bon réveillon et meilleurs vœux à tous.