Recherche V dans Userform pour compléter un tableau

paritec a écrit :

Re bonjour Lolo33 le forum

Quand je dis susceptible, c'est pour te faire toucher du doigt comme c'est agréable de voir ses propos détourner.

Après coup tu ne peux pas dire que ce que j'ai dit est déplacé, c'était juste l'exclamation de "tu n'as pas testée alors tu dis n'importe quoi"

Tu vois comme c'est drôle quand les rédacteurs font tout pour ne pas comprendre ???

Bref la version avec la date de l'ost

a+

Papou

PS: dans ta feuille liste LSF il y a juste plus de 200 doublons !!!!

TU ES DEFINITIVEMENT UN GENIE !! MERCI BEAUCOUP

La feuille liste LSF a en effet énormément de doublon. Lorsque je l'extrait d'un autre fichier c'est paramétré de la sorte (un même code ISIN pour deux produits, donc ça créé deux lignes). Je vais créer un onglet dans le fichier initial et supprimer ces doublons afin de travailler proprement.

L'option créer/modifier est tout juste ce qu'il fallait pour ce projet.

MERCI INFINIMENT

Re Bonjour Lolo33 le forum

voilà la macro a changer pour ta feuille List LSF elle te fera une liste sans doublons et classé alpha sur la colonne B

à plus

Papou

Sub Importer()
    Dim Cell As Range, aa, i&, a&, d As Object, n&
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Fichiers supports Ok AWS.xlsx"
    Columns("D:D").Copy ThisWorkbook.Sheets(2).Range("A1")
    Columns("I:I").Copy ThisWorkbook.Sheets(2).Range("B1")
    ActiveWorkbook.Close
    With Feuil5
        .Range("A2:C" & .Range("A" & Rows.Count).End(xlUp).Row).Sort key1:=.Range("B2"), order1:=xlAscending, Header:=xlNo
        aa = .Range("A2:C" & .Range("A" & Rows.Count).End(xlUp).Row)
        .Range("A2:C" & .Range("A" & Rows.Count).End(xlUp).Row).Clear
        Set d = CreateObject("Scripting.Dictionary")
        ReDim bb(1 To UBound(aa), 1 To UBound(aa, 2)): n = 1
        For i = 1 To UBound(aa)
            If aa(i, 1) <> "" And Not d.exists(aa(i, 1) & "#" & aa(i, 2)) Then
                d.Add aa(i, 1) & "#" & aa(i, 2), aa(i, 1) & "#" & aa(i, 2)
                bb(n, 1) = aa(i, 1): bb(n, 2) = aa(i, 2): bb(n, 3) = aa(i, 1) & " " & aa(i, 2): n = n + 1
            End If
        Next i
        .Range("A2").Resize(UBound(bb), UBound(bb, 2)) = bb
        .Range("A2").CurrentRegion.Borders.LineStyle = 1
    End With
End Sub