Boucle et Range

Bonjour messieurs,
Je viens pour vous parler d'un petit problème que j'ai à utiliser des ranges avec une boucle.

Dans une boucle, est-ce possible de faire :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim selec as Range Dim No as Integer   For i = 1 to 5   Sheet(1).columns.find(What := No).offset(0,-2).select   selec = selec + Selection   Next

---

No étant un chiffre au hasard, l'offset 0,-2 étant un format date.

Es ce qu'a la fin de la boucle on aurait toutes les cellules que la boucle aura selectionné ?

Si j'ai bien compris tu voudrais que ta variable selec contienne la liste des cellules trouvées.

Une variable range renvoi un tableau et non une liste de cellule précise

ex : range("A1:A3:A6") renvoie A1:A6
de meme A1:A4:B1 renvoi A1:B4

Bonjour,

Essaye avec la méthode Union

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim selec as Range Dim No as Integer Set selec = Selection For i = 1 to 5   Sheet(1).columns.find(What := No).offset(0,-2).select   set selec = Union(selec, Selection)   Next

---

Cordialement,

Tirex28/

:D c'est parfait ca.

Exact, c'est parfait, merci beaucoup !!

Citation:

---

Envoyé par Swiper

N'oubliez pas de cliquer sur Résolu, une fois la réponse donnée.

---

Faites ce que je dis mais ne faites pas ce que je fais???