Bonjours à tous et à toutes,

J'ai un message d'erreur:

Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

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
Sub BEV(m As Byte)
 
Dim i As Integer, j As Integer
Dim d As Date
Dim c As Integer, a As Integer
 
    d = "01/" & m & "/" & Year(Date)
 
    MsgBox d
 
    c = Sheets("Présence").Rows(18).Find(d, LookAt:=xlWhole).Column
 
 
    MsgBox c
 
End Sub
L'erreur provient au mon ou je souhaite définir c. Pourtant d est bien défini.

Pourtant avec la box je vois bien que d est bien définie exemple: 01/04/2017.
En ligne 18 j'ai bien une cellule qui est égale à ça. Je ne comprend pas mon erreur.

Merci d'avance.