Bonjour à tous,

Je reviens vers vous car mon code ne fonctionne pas....

Voici mon problème :

contexte :

J'ai deux onglets avec un tableau dans chaque qui sont dans le même classeur,

Dans la premiere feuille "BaseOPE"
en colonne A: Ordre
en colonne B: Type (colonne à remplir)


Dans la deuxième feuille "ListeOT"
en colonne A: Ordre
en colonne B: Type


J'aimerais en VBA importer le type d'Ordre dans le 1er tableau en fonction de la première Colonne (A) du second onglet

Je souhaiterai que le code se répète pour toute la colonne du second onglet

Les deux tableaux n'ont pas le même nombre de lignes

Pourriez vous y jeter un oeil

En vous remerciant d'avance

Voici mon code qui est en échec à la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
TK(R) = Join$(Application.Index(Sheets("listeOT").Columns("A:A").Value, R), "¤")


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 With Sheets("listeOT").Cells(1).CurrentRegion.Rows
        ReDim TK$(2 To .Count)
              TD = Application.Index(.Offset(1).Resize(.Count - 1), , 2)
        For R& = 2 To .Count
            TK(R) = Join$(Application.Index(Sheets("listeOT").Columns("A:A").Value, R), "¤")
        Next
    End With
 
    With Sheets("BaseOPE").Cells(1).CurrentRegion.Rows
        ReDim TP$(2 To .Count, 0)
              TS = .Columns("A:A").Value
        For R = 2 To .Count
            v = Application.Match(Join$(Array(TS(R, 1)), "¤"), TK, 0)
            If Not IsError(v) Then TP(R, 0) = TD(v, 1)
        Next
              .Cells(2, 2).Resize(.Count - 1).Value = TP
    End With
End Sub