Recherche V (VBA) incorrect) ou incomplet

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
je viens vers vous pour solliciter votre aide sur une recherche V sur VBA dont j'ai trouvé une partie de la solution ici sur le forum.
Mais malheureusement mon manager s'est rendu compte que ça repond pas à la demande.

Moi je voudrais coller les données de ma feuille New dans la feuille Resultat par recherche V.
Sauf que ma macro ellle, colle les données de la meme feuille Resultat dans la feuille Resultat elle meme.
Est ce quelqu'un aurait une idée de comment copier les données de la feuille New dans Resultat .
En vous remerciant de votre aide.
je suis complétement stressé car je n'arrive pas à trouver la solution.
ci-joint mon exemple de fichier.
voici le code qui doit etre corrigé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub test() Dim Plage As Range, C As Range, Teste Dim Offset As Long With Sheets("New") For i = 0 To Sheets("Resultat").UsedRange.Columns.Count - 1 Step 3 With Sheets("Resultat") Set Plage = .Range(.[A1].Offset(, i), .Cells(.Rows.Count, 1 + i).End(xlUp)) End With For Each C In Plage Teste = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0) If IsError(Teste) Then C.Offset(, 1) = "Non présent" Else C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0) End If Next C Offset = Offset + 1 Next End With MsgBox "recherche terminée" End Sub

10/12/2014, 11h06
Daniel.C

Bonjour,

Ca fonctionne correctement.
10/12/2014, 11h43
sakhob

1 pièce(s) jointe(s)

Bonjour Daniel,
Merci pour la réponse.
Justement c'est ça qui ma trompé aussi mais le resultat est faux.
Il fait pas de recherche V en réalité.
Normalement quand j'ai des clés communes (c'est a dire si Ai=Bi) il doit me ramener les valeurs de New dans Resultat pour lesquelles la clé est commune.
j'ai ajouté un onglet final dans lequel j'ai mis ce que je veux obtenir exactement.
Merci pour vos reponse.
je suis perdu.

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
Dim Plage As Range, C As Range, Teste
Dim Offset As Long
With Sheets("New")
Offset = 1
With Sheets("Resultat")
    Set Plage = .Range(.[A1].Offset(, i), .Cells(.Rows.Count, 1 + i).End(xlUp))
End With
For i = 0 To Sheets("Resultat").UsedRange.Columns.Count - 1 Step 3
    For Each C In Plage
             Teste = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 6).End(xlUp)), Offset, 0)
        If IsError(Teste) Then
            C.Offset(, i + 1) = "Non présent"
        Else
 
        C.Offset(, i + 1) = Teste
        End If
    Next C
    Offset = Offset + 1
    Next
End With
 
MsgBox "recherche terminée"
End Sub

12/12/2014, 16h38
sakhob

Bonjour Daniel,
J'ai testé la macro sur l'ensemble de mon tableau mais il s'arrete en cours de route.
C'est à dire elle recherche pas toutes les colonnes,elle arrete le colllage à la 19eme colonne.je ne sais pas pourquoi.
Ce que je ne comprend pas c'est que lorsque je change le 6 dans Teste = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 6).End(xlUp)), Offset, 0) par un nombre >7 il fait plus rien bizarrement.
Est ce que vous pourrez m'expliquer pourquoi 6? et pourquoi il ne peux pas comparer toutes les colonnes.
NB: j'ai plus plus 200 colonnes.
Merci d'avance de votre aide.
cdt

Bonjour,

Essaie peut-être comme cecci :

Code:

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
26
Sub test()
Dim Plage As Range, C As Range, Teste
Dim Offset As Long
Dim Col As Integer
With Sheets("New")
Offset = 1
Col = .Cells(, .Columns.Count).End(xlToLeft).Column
With Sheets("Resultat")
    Set Plage = .Range(.[A1].Offset(, i), .Cells(.Rows.Count, 1 + i).End(xlUp))
End With
For i = 0 To Sheets("Resultat").UsedRange.Columns.Count - 1 Step 3
    For Each C In Plage
             Teste = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, Col).End(xlUp)), Offset, 0)
        If IsError(Teste) Then
            C.Offset(, i + 1) = "Non présent"
        Else
 
        C.Offset(, i + 1) = Teste
        End If
    Next C
    Offset = Offset + 1
    Next
End With
 
MsgBox "recherche terminée"
End Sub

15/12/2014, 11h58
sakhob

Bonjour Daniel,
J'espere que vous avez passé un bon week end.
je viens de tester la macro ça me donne exactement ce que je veux.
je vous remercie mille fois.
cordialement
Sakhob