Probleme d'utilisation de la Fonction Address

Bonjour,

J'ai un peu de mal avec la fonction "Adress".
Je fais chercher avec la fonction "Find" une plage, je recupere l'adresse de cette plage. Mais la, ca bloque.

Code:

---

1 2 3 4 5 6

For a = 2 To Data.Cells(1, 13).CurrentRegion.Rows.Count EKG = Data.Cells(a, 13).Value PurchaseName = Purchasing.Range("A1:A1000").Find(EKG, LookIn:=xlValues) PurchaseName = PurchaseName.Address Data.Cells(a, 14).Value = Purchasing.Range(PurchaseName).Offset(0, 1).Value Next a

---

J'ai eu beau chercher dans l'aide et dans les differents topics sur le sujet, je ne trouve pas.

Quelqu'un a une idee ?

Merci

Romain

Comme la derniere fois, j'ai trouve la reponse juste apres avoir poste...

Voici la solution : :lol:

Code:

---

Set PurchaseName = Purchasing.Range("A1:A1000").Find(EKG, LookIn:=xlValues)

---

Il fallait juste mettre "SET"

:aie:

Romain

Salut,

Essaie avec le Set.

A+

EDIT : ben dis donc, tu m'as pas attendu pour essayer :ccool:

Sauf que dans ton cas une fois la variable est un range une fois une chaine de caractère. Je plains d'avance celui qui va devoir relire ton code.
Essaye de déclarer tes variables

exemple

Code:

---

1 2 3 4 5

dim PurchaseName as range din PurchaseNameAdresse as string   set PurchaseName = Purchasing.Range("A1:A1000").Find(EKG, LookIn:=xlValues) PurchaseNameAdresse = PurchaseName.Address

---

Oui, t'as raison Krovax, je me suis apercu de ca.
J'ai deja fait le changement :ccool:

Merci

Romain