Discussion :

[nant44]

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 :

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
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

[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

[nant44]

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

Code :

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

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

[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

[sl.info]

• Première option :
  

  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