Extraire des données

Bonjour,

Dans le fichier excel ci-joint, j'aimerais trouver une façon d'extraire des données, vers une catégorie de sous-données.

C'est comme faire un tri sur la colonne A, puis filtrer et garder 1 seul A2 et A4 et puis A2 = LN005 et A4= LN001 / A4 = LN002

Voici comment le fichier se présente à la base (voir Feuil2)

FIXATIONS LINDAPTER A2 LN005

FIXATIONS LINDAPTER A4 LN001

FIXATIONS LINDAPTER A4 LN001

FIXATIONS LINDAPTER A4 LN001

FIXATIONS LINDAPTER A4 LN001

FIXATIONS LINDAPTER A4 LN002

FIXATIONS LINDAPTER A4 LN002

FIXATIONS LINDAPTER A4 LN002

De façon automatisée, je souhaite obtenir ce résultat :

FIXATIONS LINDAPTER A2 LN005

A4 LN001

LN002

Je ne sais pas quelle formule utiliser, pouvez-vous m'aider svp ?

Un tout grand merci.

Bonjour,

Et si tu supprimais simplement les doublons (données==>supprimer les doublons)

Cdlmnt

Salut Sims, Djidji,

sur le fond, Djidji a tout à fait raison! C'est juste une question de présentation!

Pour le plaisir, une façon de faire en VBA qui se rapproche de ce que tu souhaites.

Private Sub cmdExtraire_Click()
'
Dim tData(), tTri()
Dim rCel As Range
Dim iIdx As Integer
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
tData = Range("A1:C" & iRow)
iIdx = 1
ReDim Preserve tTri(3, iIdx)
'
For x = 1 To 3
    tTri(x - 1, iIdx - 1) = Cells(1, x)
Next
'
For x = 2 To iRow
    iFlag = 0
    For y = 1 To 3
        If tData(x, y) <> tData(x - 1, y) Then
            If iFlag = 0 Then
                iFlag = 1
                iIdx = iIdx + 1
                ReDim Preserve tTri(3, iIdx)
            End If
            tTri(y - 1, iIdx - 1) = tData(x, y)
        Else
            If y > 1 Then
                If tTri(y - 2, iIdx - 1) <> "" Then tTri(y - 1, iIdx - 1) = tData(x, y)
            End If
        End If
    Next
Next
'
Application.ScreenUpdating = False
Range("J1:L" & iIdx).Value = Application.WorksheetFunction.Transpose(tTri)
Columns("J:L").AutoFit
'
For Each rCel In Range("J1:L" & iIdx)
    If rCel <> "" Then
        rCel.Borders.LineStyle = xlContinuous
        rCel.Borders.Weight = xlThin
    End If
Next
Application.ScreenUpdating = True
'
End Sub

8)

A+

bonsoir

un essai

les vals sont extraites et sans double selon critère ; la formule est matricielle

cordialement

Salut tout le monde,

Tout d'abord, merci pour l'aide que vous m'avez apporté.

J'avais bien pensé à retirer les doublons mais ça me posait problème pour la suite.

Je crois que la formule de tulipe_4 est bonne, je vais prendre le temps d'y regarder.

Encore merci pour votre aide !

Que ce soit en VBA ou via une formule, les 2 procédés sont correctes, merci à vous et excellente journée

bonjour merci

les formules de tulipe 4 sont toujours bonnes ; c'est le résultat de 2 sciecles de recherches

cordialement