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