Discussion :

[jeremy75018]

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

[Philippe Tulliez]

Bonjour,

J'aimerais en VBA importer le domaine technique dans le 2sd tableau en fonction de la première Colonne (A) du premier onglet

Et où se trouve ce domaine technique dans ce 2ème tableau ?
La seule explication que tu donnes, c'est

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

soit deux colonnes.

[jeremy75018]

Bonjour Philippe,


J'ai modifié le post, effectivement après relecture, ce n'était pas très claire.


Merci

[Philippe Tulliez]

Bonjour,

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

Ce n'est toujours pas très clair.
Doit on en conclure que tu souhaites copier les cellules de la première colonne du 2ème tableau dans la première colonne du 1er tableau à condition qu'elles ne s'y trouvent pas déjà ?

[Marc-L]

Bonjour,

je vois Jérémy que tu es parti de ma solution de ta précédente discussion
servant à utiliser une clef concaténée sur plusieurs colonnes mais cela n'a pas l'air d'être le cas ici d'où l'erreur !
Déjà juste consulter depuis une feuille de calculs l'aide de la fonction INDEX …
C'est du LEGO mais il faut savoir emboîter !

Si la feuille "ListeOT" n'a pas de doublon, une simple formule de calculs dans l'autre feuille suffit via RECHERCHEV.
Une fois qu'elle fonctionne, si vraiment un code est nécessaire, publie - la alors ici afin de t'indiquer une astuce
pour la convertir efficacement en VBA …

[jeremy75018]

Bonjour Marc-L,

Et encore Merci!

Effectivement j'ai bien essayé d'adapter ton code....

voici le nouveau code

si vous pouviez jeter un oeil....

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
19
20
21
22
23
24
25
Sub BaseOPE1()
Dim oRng As Excel.Range
Dim v As Variant, lng As Long, LigFin As Variant, LigFin2 As Variant
 
LigFin = Sheets("BaseOPE").Cells(Rows.Count, 1).End(xlUp).Row
LigFin2 = Sheets("listeOT").Cells(Rows.Count, 1).End(xlUp).Row
 
Set oRng = ThisWorkbook.Worksheets("BaseOPE").UsedRange
 
v = oRng.Value
For lng = 2 To UBound(v, 1)
 
Sheets("BaseOPE").Range("B2:B" & LigFin).ClearContents
 
Sheets("BaseOPE").Range("B2:B" & LigFin).Select
 
v(lng, 2) = Application.VLookup(Range("A2:A" & LigFin), Sheets("listeOT").Range("A2:A" & LigFin2), 2, faux)
Next lng
 
oRng.Value = v
Set oRng = Nothing
v = Empty
 
 
End Sub