Discussion :

[TheRealMike]

Bonjour,

je me permets de soliciter votre aide sur un point.

Voici mon code

Code :

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

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

[Qwazerty]

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 :

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

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

[LeForestier]

Bonjour,

Code :

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

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 :

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

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

[TheRealMike]

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 :

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

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

[Qwazerty]

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

Code :

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

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