Problème sur la syntaxe Range

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:

---

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.

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:

---

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

---

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

Code:

---

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:

---

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

---

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:

---

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

Merci Slooby!

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

Ça marche en fin.

Merci bien Thautheme.