Discussion :

[Swiper]

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 :

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

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é ?

[jfontaine]

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

[tirex28]

Bonjour,

Essaye avec la méthode Union

Code :

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

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/

[jfontaine]

c'est parfait ca.

[Swiper]

Exact, c'est parfait, merci beaucoup !!

[AlainTech]

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