Discussion :

[ropineau]

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 :

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

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

[ropineau]

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

Voici la solution :

Code :

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

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

Il fallait juste mettre "SET"



Romain

[DeaD78]

Salut,

Essaie avec le Set.

A+

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

[Krovax]

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 :

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

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

[ropineau]

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

Merci

Romain