Détermination d'une range

Bonjour,

je me permets de soliciter votre aide sur un point.

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub calcul()   For j = 0 To 240   'in   Set Plage = Worksheets("Projection").Range("F6:F1006").Offset(0, j - 1)   For Each Cell In Plage   Set maPlage = Range(Cell, Cell.Offset(0, 4)) etc..

---

mais il n'accepte pas le range.

Pourriez-vous m'aider à débugger cette partie?

je vous remercie par avance.

TRM

Salut
Tout d'abord je dois dire que ta boucle va mettre du temps a s'exécuter, je ne sais pas ce que tu veux faire donc ne peux pas plus te guider...
240 x 1000 x 4 = 960 000, ca fait presque 1million d'itérations
Pour ton problème essai

Code:

---

Set maPlage = Cell.resize(1,4)

---

Pour plus d'info F1 sur Resize, je n'ai pas testé le code donc peut être y'aura t-il une adaptation a faire.

A++
Qwaz

Bonjour,

Code:

---

Set maPlage = Range(Cells(cell.Row, Cells.Column), Cells(cell.Row, cell.Column + 4))

---

Mais pourquoi passer son temps à faire une plage pour 4 cellules en ligne ?
A+
PS: J'ai pas tester, faudra peut-être un S à ColumnS et RowS
Equivalent :

Code:

---

1 2 3

For C = cell.Column To cell.Column + 4 Cells(cell.Row, C) = KK 'traitement à appliquer Next C

---

Merci pour vos réponses,

mais j'ai toujours du mal avec mon problème.

Je me suis vraiment mal exprimé.

en fait, ce que je veux faire ressemble plus à ca :

Code:

---

1 2 3 4 5 6 7 8 9

Sub calcul()   For j = 0 To 240   Set Plage = Worksheets("Projection").Range("F6:F1006").Offset(0, j - 1)   For Each Cell In Plage   Set maPlage = Range(Cell.offset(0,-j), Cell) etc..

---

en gros, il faudrait que j'arrive à attraper la plage allant de la cellule d'origine à la cellule en cours (de la même ligne). Le Resize n'est pas trop approprié, et du coup la solution que tu propose sera trop longue.

J'aurais vraiement besoin de capter une range....

Salut
Tu adapteras a tes feuilles, j'ai mis feuil1 pour faire des essais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub calcul() Dim Plage As Range, MaPlage As Range   For j = 0 To 240   Set Plage = Sheets("Feuil1").Range("F6:F1006").Offset(0, j - 1)   For Each Cell In Plage   Set MaPlage = Range(Plage(1), Cell) Next Next   End Sub

---

Plage(1) représente la 1er cellule contenu dans la plage Plage

++
Qwaz