Problème avec la méthode find

Version imprimable

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:

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.

27/04/2017, 16h34
Invité

Code:

d=DateSerial( Year(Date),m,1)
27/04/2017, 16h52
Mrfreeze117

Merci mais cela ne change rien du tout.
27/04/2017, 17h50
unparia

Bonjour
Un passage de ceci :
https://www.rondebruin.nl/win/s9/win006.htm
mérite ton attention
27/04/2017, 18h00
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é

Bonjour,

A tester :

Code:

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

28/04/2017, 10h23
Mrfreeze117

Citation:

Envoyé par 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é

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.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub BEV(m As Byte) Dim i As Integer, j As Integer Dim d As Date Dim c As Integer, a As Integer Dim Rng As Range ' d = "01/" & m & "/" & Year(Date) d = DateSerial(Year(Date), m, 1) MsgBox d Set Rng = Sheets("Présence").Rows(18).Find(d, LookAt:=xlWhole) If Not Rng Is Nothing Then c = Rng.Column MsgBox c Else MsgBox "Nothing" End If End Sub
Mon problème c'est que je ne trouve pas la cellule alors que je sais quelle existe (CO18).

dans ma cellule j'ai la formule: =DATE(Synthèse!$C$3;CO19;1) qui vaut 01/04/2017

la valeur dans ma macro de m=4 et le message donné par la msgbox est bien 01/04/2017.

Du coup je ne comprend pas pourquoi je ne trouve pas ma cellule

28/04/2017, 10h28
unparia

Citation:

Mais là je sais que la valeur que je cherche existe et il ne la trouve pas.

Questions :
1) as-tu lu ce que je t'ai invité plus haut à lire ?
2) quel est le format de cette cellule ?
3) lorsque tu es sur celle cellule : qu'affichent : a) la cellule elle-même et b) la barre de formules (qu'il y ait ou non une formule) qui est la véritable zone de saisie (la cellule n'étant qu'une espèce de "miroir")
3) la valeur qu'elle contient est-elle une constante ou est-elle le résultat d'une formule ?
28/04/2017, 10h30
Mrfreeze117

Citation:

Envoyé par unparia

Questions :
1) as-tu lu ce que je t'ai invité plus haut à lire ?
2) quel est le format de cette cellule ?
3) lorsque tu es sur celle cellule : qu'affichent : a) la cellule elle-même et b) la barre de formules
3) la valeur qu'elle contient est-elle une constante ou est-elle le résultat d'une formule ?

1) oui je l'ai lu
2) format date
3) c'est a) 01/04/2017 b) =DATE(Synthèse!$C$3;CO19;1)
4)le résultat d'une formule

Citation:

Envoyé par Theze

Bonjour,

A tester :

Code:

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

Merci mais je ne trouve toujours pas ma cellule

28/04/2017, 10h52
joe.levrai

Bonjour,

s'agissant du résultat d'une formule qu'on cherche, et non le contenu d'une formule, il faut utiliser le paramètre xlValues en lieu et place de xlFormulas

J'ai essayé cela ne fonctionne pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub BEV(m As Byte)
 
Dim i As Integer, j As Integer
Dim d As Date
Dim c As Integer, a As Integer
Dim Rng As Range
 
    d = DateSerial(Year(Date), m, 1)
 
    MsgBox d
 
    Set Rng = Sheets("Présence").Rows(18).Find(d, , xlValues, LookAt:=xlWhole)
 
    If Not Rng Is Nothing Then
        c = Rng.Column
        MsgBox c
    Else
        MsgBox "Nothing"
    End If
 
 
End Sub

1 pièce(s) jointe(s)

Je n'ai aucun souci dans la configuration que tu as expliqué

Pièce jointe 269215

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub BEV(m As Byte)
Dim i As Integer, j As Integer
Dim d As Date
Dim c As Integer, a As Integer
Dim Rng As Range
 
    d = DateSerial(Year(Date), m, 1)
    MsgBox d
    Set Rng = Rows(18).Find(d, , xlValues, LookAt:=xlWhole)
 
    If Not Rng Is Nothing Then
        c = Rng.Column
        MsgBox "La Valeur cherchée est en colonne " & c
    Else
        MsgBox "Nothing"
    End If
End Sub
 
Sub ioio()
BEV (4)
End Sub

28/04/2017, 11h15
Mrfreeze117

je corrige ce que j'ai écrit plus haut l valeur afficher de la cellule est "avril 2017", si je change le format pour que ça apparaisse 01/04/2017 alors ça fonctionne. Comment faire pour que cela fonctionne sans changer le format?

merci d'avance