XL 2019 recherche occurrence dans une base, et mettre les résultats correspondant sur 1 ligne

desmonts · 3 Février 2023

Bonjour à toutes et tous,

Je cherche une solution macro ou autre qui me donnerai le résultat suivant :
j'ai un onglet occurrence dans colonne A des caractères et je cherche dans mon onglet base, a chaque fois que je trouve ces caractères, je les mets en colonne B, C , D etc...
petit exemple dans mon onglet occurrence en A1 j'ai 555
dans mon onglet base j'ai en colonne A
555
555/10
220
555/15/200
920
400/10/555
ce que je souhaite obtenir occurrence
en colonne A1 555, en B1 555, en C1 555/10, en D1 555/15/200 et en E1 400/10/555

Merci à celles et ceux qui vont passer un peu de tps sur la question. J'ai mis le fichier Excel cela sera peut être plus parlant

vgendron · 3 Février 2023

Hello

un essai par macro

VB:

Sub Occurence()
Dim Tab_Base() As Variant

With Sheets("base")

    Tab_Base = .UsedRange.Value
End With

With Sheets("occurence")
    For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
        Origine = .Range("A" & i)
        Res = ""
        For j = LBound(Tab_Base, 1) To UBound(Tab_Base, 1)
            If Tab_Base(j, 1) Like "*" & Origine & "*" Then
                Res = Tab_Base(j, 1) & "*" & Res
            End If
        Next j

        Tab_Res = Split(Res, "*")

        If UBound(Tab_Res, 1) <> -1 Then

            .Range("B" & i).Resize(1, UBound(Tab_Res, 1)) = Tab_Res
        End If
    Next i
End With

End Sub

desmonts · 3 Février 2023

Super merci beaucoup.

sylvanu · 3 Février 2023

Bonjour Desmonts,
Un essai en PJ avec ce que j'ai compris.

XL 2019 recherche occurrence dans une base, et mettre les résultats correspondant sur 1 ligne

desmonts

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

desmonts

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires