Discussion :

[Mrfreeze117]

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.

[Invité]

Code :

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

d=DateSerial( Year(Date),m,1)

[Mrfreeze117]

Merci mais cela ne change rien du tout.

[unparia]

Bonjour
Un passage de ceci :
https://www.rondebruin.nl/win/s9/win006.htm
mérite ton attention

[joe.levrai]

Bonjour,

Find renvoie un Range localisant la position de la cellule contenant la valeur cherchée
si la valeur n'existe pas, alors ton résultat est un objet Nothing

on utilise toujours une variable Range quand on fait un Find
ensuite on teste si le Range n'est pas Nothing
S'il n'est pas nothing, là on va récupérer sa propriété .Column

Mais on ne doit jamais directement utiliser la propriété d'un Range basé sur un Find, sans tester s'il y a bien eu un résultat trouvé

[Theze]

Bonjour,

A tester :

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
 
Sub BEV(m As Byte)
 
    Dim Cel As Range
    Dim i As Integer, j As Integer
    Dim d As Date
    Dim c As Integer, a As Integer
 
    d = DateSerial(Year(Date), m, 1)
 
    MsgBox d
 
    Set Cel = Sheets("Présence").Rows(18).Find(d, , xlFormulas, xlWhole)
 
    If Not Cel Is Nothing Then c = Cel.Column
 
    MsgBox c
 
End Sub

[Mrfreeze117]

Bonjour,

Find renvoie un Range localisant la position de la cellule contenant la valeur cherchée
si la valeur n'existe pas, alors ton résultat est un objet Nothing

on utilise toujours une variable Range quand on fait un Find
ensuite on teste si le Range n'est pas Nothing
S'il n'est pas nothing, là on va récupérer sa propriété .Column

Mais on ne doit jamais directement utiliser la propriété d'un Range basé sur un Find, sans tester s'il y a bien eu un résultat trouvé

Merci c'est vrai que habituellement je fait ce test. Mais là je sais que la valeur que je cherche existe et il ne la trouve pas.