Probleme avec la fonction VLookup

Version imprimable

Bonjour,
Quelqu'un peut m'aider à comprendre l'origine de l'erreur dans la ligne contenant la fonction VLookup ?
Il me donne l'erreur suivante : Erreur d'exécution '6' dépassement de capacité !
Merci

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
28
Private Sub cmdvalid_Click()
 
With ThisWorkbook.Sheets("Hiver")
Dim iRow As Integer
 
For iRow = 1 To 92
Dim currentcell As Long
Dim idxferie As Integer
 
currentcell = .Cells(iRow, 1).Value
'idxferie = WorksheetFunction.VLookup(currentcell, Sheets("main").Range("B14:B24"), 1, False)
If currentcell >= CDate(Datebegin) And currentcell <= CDate(DateEnd) _
And Weekday(currentcell) <> 1 And Weekday(currentcell) <> 7 Then
.Cells(iRow, 2).Value = Me.NameList.Value
Else
.Cells(iRow, 2).Value = ""
End If
Next
End With
 
'clear the data
Me.NameList.Value = ""
Me.Datebegin.Value = ""
Me.DateEnd.Value = ""
Me.NameList.Value = ""
Me.ButtonOUI.Value = False
Me.ButtonNON.Value = True
End Sub

05/11/2010, 12h22
pgz

Bonjour.

Pour éclaircir les choses, peux-tu
ajouter à ton code une indentation,
sortir les instructions Dim de la boucle For ... Next
Préciser alors quelle ligne provoque l'arrêt en erreur?

Cordialement,

PGZ

Merci d'avoir répondu.
voici une version simplifiée du problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdvalid_Click()
 
With ThisWorkbook.Sheets("Hiver")
Dim currentcell As Long
Dim idxferie As Integer
' definir le paramettre "currentcell" en tant que contenu de la cellule B14
currentcell = Sheets("main").Range("B14").Value
'calcul du numero de ligne associé a B14 dans la plage B14:B24
idxferie = WorksheetFunction.VLookup(currentcell, Sheets("main").Range("B14:B24"), 1, False)
' coller ce num dans la celulle B1 de la feuil "Hiver"
.Cells(1, 2).Value = idxferie
End With
End Sub

05/11/2010, 15h12
pgz

Re,

Je suppose que c'est la ligne avec le VLookup qui pose pb. Le résultat est rangé dans idxferie qui est de type Integer. Peux-tu vérifier la valeur renvoyée quand l'erreur se produit?
Ce qui est surprenant c'est que l'index colonne du VLookUp = 1. Ce qui devrait renvoyer la valeur cherchée, soit currentcell, qui est de type long.

D'habitude, on utilise vLookUp pour trouver une ligne suivant la valeur en colonne 1 et lire dans une colonne plus à droite. La table doit donc avoir au moins 2 colonnes, ce qui n'est pas le cas.

Peux-tu expliquer exactement ce qu tu veux faire avec le VLookUp?

COrdialement,

PGZ
05/11/2010, 15h34
sl.info
- Première option :
  
  Citation:
  
  Aide Excel :
  WorksheetFunction.VLookup, méthode
  ...
  Valeur renvoyée
  Variante
  
  En placant la déclaration des variables currentcell et idxferie en Variant, ca fonctionne bien ;)
- Deuxième option :
  Par contre si tu as besoin de récupérer le n° de la ligne, dans la plage B14:B24, contenant la même valeur que la cellule B14 (en rapport avec les commentaires)
  il faut remplacer la formule VLOOKUP par EQUIV