Discussion :

[saaied.mouadh]

Bonjour,

Je suis assez novice en VBA et je rencontre un problème avec la syntaxe de la fonction Range. J'ai écrit le code après avoir consulter pas mal de forum mais ca fonctionne pas.

l'objectif du code est de faire une RechercheV entre 2 feuille sauf que la plage de recherche est variable (en nombre de lignes).

Voici le code:

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
'declaration des variables
Dim Resultat, DerLig As Variant
Dim Champ As Range
 
 
DerLig = ThisWorkbook.Sheets("Import").[B65000].End(xlUp).Row
 
        With ThisWorkbook.Sheets("Import")
         Set Champ = Sheets("Import").Range("B2:B" & DerLig)
        End With
 
For i = 2 To ThisWorkbook.Sheets("BD").[B65000].End(xlUp).Row
 
Resultat = Application.VLookup(ThisWorkbook.Sheets("Import").Cells(i, 2), Sheets("BD").Range(Champ), 1, False)
 
If Not IsError(Resultat) Then
MsgBox "Ligne a copier: " & i
End If
 
Next i

Si je remplace "DerLig" par un chiffre ça marche, autrement non!!

Merci d'avance pour votre aide.

[Thautheme]

Salam Saaied.mouadh, bonjour le forum,

Il y a une incohérence est une erreur dans ton code.
L'incohérence :
tu définis la variable Champ dans l'onglet Import

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Champ = Sheets("Import").Range("B2:B" & DerLig)

et ensuite, tu l'appelles via l'onglet BD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Resultat = Application.VLookup(ThisWorkbook.Sheets("Import").Cells(I, 2), Sheets("BD").Range(Champ), 1, False)

L'erreur :
Puisque ta variable est de type Range tu ne dois pas Écrire Range(Champ) mais simplement Champ...
Ton code (modifié mais non testé) deviendrait :

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
Public Sub Macro2()
Dim CL As Workbook
Dim IM As Worksheet
Dim BD As Worksheet
Dim Resultat
DerLig As Integer 'voire Long si grand tableau
Dim Champ As Range
 
Set CL = ThisWorkbook
Set IM = CL.Worksheets("Import")
Set BB = CL.Worksheets("BD")
DerLig = IM.Range("B" & Application.Rows.Count).End(xlUp).Row
Set Champ = IM.Range("B2:B" & DerLig)
For I = 2 To BD.Range("B" & Application.Rows.Count).End(xlUp).Row
    Resultat = Application.VLookup(IM.Cells(I, 2), Champ, 1, False)
    If Not IsError(Resultat) Then MsgBox "Ligne à copier: " & I
Next I
End Sub

[Slooby]

Bonjour,

Je tiens déjà à signaler que pour un premier message sur le forum tu as prit soin de bien l'écrire. Bien joué !

Par contre, quand tu dis que ça ne marche pas, tu peux nous dire plus précisément quelle ligne ne fonctionne pas ? Car à première vue il y a plus d'une erreur dans ton code. (Pour la lancer Pas à Pas, tu fais F8 dans la Sub)

Mais sinon, je vais déjà te donner quelques pistes de modification

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
'declaration des variables
Dim Resultat as Variant
Dim DerLig As Long
Dim Champ As Range
Dim i as Long
 
 
With ThisWorkbook.Sheets("Import")
    DerLig = .Cells(.Rows.Count, 2).End(xlUp).Row
    Set Champ = .Range("B2:B" & DerLig)
End With
 
With ThisWorkbook.Sheets("BD")
 
     For i = 2 To .Cells(.Rows.Count,2).End(xlUp).Row
 
     Resultat = Application.VLookup(ThisWorkbook.Sheets("Import").Cells(i, 2), champs, 1, False)
 
If Not IsError(Resultat) Then
MsgBox "Ligne a copier: " & i
End If
 
Next i
 
End With

Slooby

[saaied.mouadh]

Merci Slooby!

c'est que j'avais la tête ailleurs :p.

Ça marche en fin.

[saaied.mouadh]

Merci bien Thautheme.