Filtrage spécial de données

[apt]

Bonsoir à tous,

En colonne A j'ai des données que j'aimerais filtrer pour ressortir un tableau dans la colonne E.

La forme dans A est Txxx-y

La forme dans E est Txxx

En PJ un exemple.

Merci.

 

[mth]

Re : Filtrage spécial de données

Bonsoir apt,

Un petit essai avec ce code:

Sub macro1()
Dim lig As Long, c As Range
With Sheets("Feuil1")
    .Columns("E:E").ClearContents
    lig = .Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In .Range("A2:A" & lig)
        On Error Resume Next
        c.Value = Left(c, WorksheetFunction.Search("-", c) - 1)
    Next c
    
    .Range("A1:A" & lig).Copy .Range("E1")
    .Range("E1:E" & lig).RemoveDuplicates Columns:=1, Header:=xlYes
    
End With
End Sub

Bonne soirée,

mth

 

[apt]

Re : Filtrage spécial de données

Bonsoir mth,

La macro copie bien les données voulues dans la colonne E, mais elle les recopie aussi dans la colonne A en effaçant les anciennes entrées.

Il y a la solution par formule (GAUCHE($A2;4)="T100") comme critère de filtre élaboré, mais je n'arrive pas à la réaliser !!

 

[mth]

Re : Filtrage spécial de données

re 🙂

Peut-être comme ça en restant dans la colonne E:

Sub macro1()
Dim lig As Long, c As Range
With Sheets("Feuil1")
    .Columns("A:A").Copy .Range("E1")
    lig = .Cells(Rows.Count, 5).End(xlUp).Row
    For Each c In .Range("E2:E" & lig)
        On Error Resume Next
        c.Value = Left(c, WorksheetFunction.Search("-", c) - 1)
    Next c
    .Range("E1:E" & lig).RemoveDuplicates Columns:=1, Header:=xlYes
    
End With
End Sub

Bonne soirée,

mth

 

[apt]

Re : Filtrage spécial de données

Salut mth,

Je vais l'essayé.

Bonne sourée.

Cordialement.