fonction Find et variable

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:

---

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

---

Bonjour et bienvenu sur le Forum,

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

En premier lieu,

Code:

---

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:

---

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.

Bonjour,

A essayer

Code:

---

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

---

Citation:

---

Envoyé par MarcelG

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...........

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:

---

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

---

Citation:

---

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:

---

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

---

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:

---

LookAt:= xlValues

---

Merci pour ton retour.

Citation:

---

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, :ccool: car je n'ai pas testé avec un range.value dans la recherche, mais avec une variable String.

Code:

---

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

---