Discussion :

[master1551]

Bonjour,
je viens encore vers vous pour une autre galère

je dois faire une recherche de date dans une feuille , mais cette date n'est jamais fixe
pour mon exemple en "G5" j'ai une date et je lui demande de me la retrouver dans une plage

j'ai essayé plusieurs choses mais rien ne marche

Code :

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

1
2
3
4
5
 
i = Range("G5").Value
 
x = [A1:B500].Find(What:=i.Value, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
MsgBox x

[MarcelG]

Bonjour et bienvenu sur le Forum,

La recherche de date est toujour délicate avec la méthode Find.

En premier lieu,

Code :

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

1
2
3
i = Range("G5").Value
 
x = [A1:B500].Find(What:=i.Value,

Sachant que ta variable i est déjà une valeur, il est redondant de coder

Code :

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

i.value

D'autre part, tu ne précises pas le message d'erreur et l'emplacement d'arrêt du débogueur, soit l'endroit où le code tombe en erreur.

A plus donc.

[master1551]

D'autre part, tu ne précises pas le message d'erreur et l'emplacement d'arrêt du débogueur, soit l'endroit où le code tombe en erreur.

A plus donc.

alors j'ai l'erruer d'execution 424 , objet requis sur la ligne x = [A1:B500].Find(What...........

[jfontaine]

Bonjour,

A essayer

Code :

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

x = [A1:B500].Find(What:= Cdate(Range("G5").Value), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

[MarcelG]

Bonjour Jérôme,

Ou bien si les 2 éléments (cellule G5 et champ de recherche) sont au format date, alors la recherche peut s'effectuer sur les valeurs

Code :

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

1
2
3
4
5
Public Sub ESSAI()
i = Range("G5").Value
x = [A1:B500].Find(What:=i, LookIn:=xlValues).Address
MsgBox x
End Sub

[jfontaine]

alors j'ai l'erruer d'execution 424 , objet requis sur la ligne x = [A1:B500].Find(What...........

Cette erreur survient quand Find retourne "Nothing"

Code :

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

1
2
3
4
5
Dim rg as Range
Set rg = [A1:B500].Find(What:= Cdate(Range("G5").Value), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns)
If not Rg is nothing then
    x = Rg.Address
End if

[MarcelG]

Jérôme,

J'ai testé ton code.

Si les 2 champs sont constitués de date, alors ce code tombe en erreur.Par contre, il est bien efectif si la recherche s'effectue non pas sur les formules mais sur les valeurs.

Code :

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

LookAt:= xlValues

Merci pour ton retour.

[jfontaine]

Si les 2 champs sont constitués de date, alors ce code tombe en erreur.Par contre, il est bien efectif si la recherche s'effectue non pas sur les formules mais sur les valeurs.

Tu fais bien de remonter ce problème, car je n'ai pas testé avec un range.value dans la recherche, mais avec une variable String.

Code :

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

1
2
3
4
5
Dim rg as Range
Set rg = [A1:B500].Find(What:= Cdate(Range("G5").Value), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
If not Rg is nothing then
    x = Rg.Address
End if