Excel VBA - For each c in range - cell address?

Bonjour,

Dans une feuille active, je sélectionne un range de cellules rURL. Ensuite, je
traite chacune de ces cellules dans une boucle FOR EACH. Mon problème est que
j'ai besoin de connaître l'ADRESSE de ces cellules (pour des logs) et pas
seulement leur contenu. Par défaut, la cellule C désigne la VALEUR. Comme
c'est un VARIANT, la syntaxe C.Address ne fonctionne pas. Comment dois-je
m'y prendre?
Merci d'avance.
Phil/

Code:

---

1 2 3 4 5 6 7

ActiveSheet.Cells(2, 1).Select ' --- First line is cell rURL = Range(Selection, Selection.End(xlDown)) For Each c In rURL h = CRC32(c) '-CRC32 'ad= c.Address <--- ... Next c

---

Bonjour,
Ce n'est pas parce-que la variable C est un VARIANT que cela ne fonctionne pas.
La variable rUrl est un objet Range or pour attribuer une référence à un objet on doit utiliser l'instruction Set
Si tu modifies cette ligne, cela fonctionnera

Code:

---

Set rurl = Range(Selection, Selection.End(xlDown))

---

Ceci dit, il est vivement conseillé de déclarer ses variables.
En t'obligeant à déclarer tes variables par Option Explicit, tu permets à l'éditeur de te signaler immédiatement des erreurs de ce type.

Citation:

---

Pour s'obliger à déclarer ses variables, il suffit d'écrire Option Explicit en haut de chaque module ou bien, plus simplement, dans les options de VBA de cocher la case "déclaration obligatoire des variables".

---

Merci beaucoup. Cela résoud en effet mon problème.