Extraction numéro

[eutrophisation]

Bonjour tout le monde

Je souhaiterais dans la mesure du possible trouver la solution à mon probleme d'extraction par vba ou tout autre moyen.
Ci joint fichier.
Merci d'avance

 

[homepyrof53]

Re : Extraction numéro

Bonjour,

Voici une macro, Regarde si cela te convient

Sub toto()
Dim tab1
Set tab1 = CreateObject("Scripting.dictionary")
feuille1 = "données"
l = 6
c = 1
While Sheets(feuille1).Cells(l, c) <> ""
    cle = Sheets(feuille1).Cells(l, c + 1)
    If tab1.exists(cle) Then
        tab1(cle) = tab1(cle) & ", " & Sheets(feuille1).Cells(l, c)
    
    Else
        tab1(cle) = Sheets(feuille1).Cells(l, c)
    End If

    l = l + 1
Wend

'-----------------------------------------
' ecriture resultat
'-----------------------------------------
feuille1 = "siqueau"
l = 2
For Each cle In tab1
    Sheets(feuille1).Cells(l, 1) = cle
    Sheets(feuille1).Cells(l, 2) = tab1(cle)
    l = l + 1
Next

End Sub

 

[david84]

Re : Extraction numéro

Bonjour,
a tester : =SI(LIGNES($1:1)<=NB.SI(données!B$6:B$35;siqueau!$E$3);INDEX(données!A$6:A$35;PETITE.VALEUR(SI(données!B$6:B$35=siqueau!$E$3;LIGNE(INDIRECT("1:"&LIGNES(données!B$6:B$35))));LIGNES($1:1)));"")
Formule matricielle à valider par Ctrl, maj et entrée.
Cordialement

 

[Guest]

Re : Extraction numéro

Bonjour,

Dans le classeur joint tu trouveras la macro suivante:

Sub ExtraireLabo()
    If IsEmpty(Sheets("siqueau").Range("E3")) Then Exit Sub
    With Sheets("données")
        .Range("A5:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).AdvancedFilter _
            Action:=xlFilterCopy, CriteriaRange:=Sheets("siqueau").Range("E2:E3"), _
            CopyToRange:=Sheets("siqueau").Range("M85"), Unique:=False
    End With
End Sub

A+

 

[phlaurent55]

Re : Extraction numéro

Bonjour à tous,

battu au sprint par homepyrof et david ..................

je joint quand même mon travail

à+
Philippe



Edit: Bonjour Hasco



.

 

[hoerwind]

Re : Extraction numéro

Bonjour, salut david84, Hasco et phlaurent55,

Autre solution par formule, non matricielle et plus courte, mais il faut avoir téléchargé les fonctions complémentaires Morefunc (free) → MCONCAT.