Boucle Vlook Up

Version imprimable

Boucle Vlook Up

Bonjour,

Etant peu expérimenté avec VBA je me permets de vous solliciter car je n'arrive pas à réaliser une boucle avec la formule Vlookup.

Pouvez-vous m'éclairer par rapport à mes erreurs.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
 
Dim i As Integer
Dim X1 As Double
 
Sheets("Tableau").Range("B2:B100000").Delete Shift:=xlUp
 
With Sheets("Jour X")
    For i = 2 To 30000 Step 1
 
        If Application.WorksheetFunction.VLookup(.Range("H" & i).Value, Sheets("Jour X+1").Range("H2:H100000"), 1, False) = i Then
        Sheets("Jour X").Range("H" & i).Copy Destination:=Worksheets("Tableau").Range("B1048576").End(xlUp).Offset(1, 0)
 
        End If
 
    Next i
End With
 
X1 = Application.WorksheetFunction.CountA(Worksheets("Tableau").Range("B2:B100000"))
Sheets("Récupération Données").Cells(19, 5).Value = X3
 
End Sub

Merci d'avance pour votre aide précieuse.

27/11/2017, 12h44
Menhir

VLookup ne renvoie pas un numéro de ligne mais la valeur trouvée.
Il est donc peut probable que ton "= i" soit probant.

Si tu veux savoir si une valeur existe dans une zone donnée, mieux vaut utiliser la méthode Find.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx
27/11/2017, 13h11
justin74

Merci pour la réponse.

Je ne peux donc pas utiliser la formule VLookUp dans ce cas ?

Bonjour,

Comment faire pour gérer les valeurs erreurs (non trouées) de la fonction VLookUp ?

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
27
Sub Test()
 
Dim i As Integer
Dim X1 As Double
 
Sheets("Tableau").Range("B2:B100000").Delete Shift:=xlUp
 
With Sheets("Jour X")
    For i = 2 To 30000 Step 1
 
        If Application.WorksheetFunction.VLookup(Sheets("Jour X").Range("H" & i), Sheets("Jour X+1").Range("H2:H100000"), 1, False) = Sheets("Jour X").Range("H" & i) Then
 
        Sheets("Jour X").Range("H" & i).Copy Destination:=Sheets("Tableau").Range("B1048576").End(xlUp).Offset(1, 0)
 
        Else
 
        '?
 
        End If
 
    Next i
End With
 
X1 = Application.WorksheetFunction.CountA(Sheets("Tableau").Range("B2:B100000"))
Sheets("Récupération Données").Cells(19, 5).Value = X3
 
End Sub

Merci d'avance pour votre aide.

27/11/2017, 16h14
Menhir

Citation:

Envoyé par justin74

Je ne peux donc pas utiliser la formule VLookUp dans ce cas ?

Dans la mesure où tu ne dis rien de la nature de ce "cas", il est impossible de répondre à ça.

Il faudrait que tu décrives ce que tu veux faire avec ce VLookUp et pourquoi tu tiens absolument à utiliser une fonction Excel plutôt qu'une fonction VBA, ce qui, en VBA, est quand même plus pratique et plus efficace.