Généralisation de ma formule

Version imprimable

Bonjour,

J'aimerai savoir si il existe un moyen de généraliser le code ci dessous afin que je puisse appliquer la formule pour un nombre variable de ligne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub tableauC1OK()
'Test 1
Dim i As Integer
 
For i = 3 To Sheets(3).Range("D2").Value
 
 
If Sheets(i).Tab.Color = RGB(255, 0, 0) Then
 
Sheets(i).Select
 
Range("K2").Value = "=RC[-3]"
 
Range("K3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-5]-R2C6<366,RC[-3]+R[-1]C,0)"
Range("K3").Select
Selection.AutoFill Destination:=Range("K3:K20"), Type:=xlFillDefault
 
 
 
Range("L3").Value = "=RC[-4]"
 
Range("L4").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]-R3C6<366,RC[-4]+R[-1]C,0)"
Range("L4").Select
Selection.AutoFill Destination:=Range("L4:L20"), Type:=xlFillDefault
 
 
 
Range("M4").Value = "=RC[-5]"
 
Range("M5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-7]-R4C6<366,RC[-5]+R[-1]C,0)"
Range("M5").Select
Selection.AutoFill Destination:=Range("M5:M20"), Type:=xlFillDefault

Merci par avance

25/09/2014, 11h52
Menhir

Citation:

Envoyé par had4789

afin que je puisse appliquer la formule pour un nombre variable de ligne.

Quelle formule ?

Bonjour, effectivement quelle formule donc un peu au pif.
si le but est de recopier sur plusieurs feuilles ce que vous coller dans la premiere alors:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub tableauC1OK()
Dim ws As Worksheet
Dim i As Integer
 
For i = 3 To Sheets(3).Range("D2").Value
Set ws = Sheets(i)
    If ws.Tab.Color = RGB(255, 0, 0) Then
 
    ws.Range("K2").Value = "=RC[-3]"
    ws.Range("K3:k20").FormulaR1C1 = "=IF(RC[-5]-R2C6<366,RC[-3]+R[-1]C,0)"
 
    ws.Range("L3").Value = "=RC[-4]"
    ws.Range("L4:l20").FormulaR1C1 = "=IF(RC[-6]-R3C6<366,RC[-4]+R[-1]C,0)"
 
    ws.Range("M4").Value = "=RC[-5]"
    ws.Range("M5:m20").FormulaR1C1 = "=IF(RC[-7]-R4C6<366,RC[-5]+R[-1]C,0)"
    End If
Next i
 
End Sub

Fait la meme chose que votre code, en plus simple, et sur plusieurs feuilles

25/09/2014, 15h15
had4789

Bonjour, pardon de ce manque de précision.

keygen08 a parfaitement compris ce que je voulais faire.

Je veux juste poussez la simplification encore plus loin pour n'avoir que deux ligne et des variables après.

Je suis vraiment pas sur que ce soit un cadeau a celui qui passera derriere

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub tableauC1OK()
Dim ws As Worksheet
Dim i As Integer
 
For i = 3 To Sheets(3).Range("D2").Value
Set ws = Sheets(i)
    If ws.Tab.Color = RGB(255, 0, 0) Then
        For j = 1 To 3
        ws.Cells(j + 1, 10 + j).Formula = "=RC[-" & 2 + j & "]"
        ws.Range(ws.Cells(2 + j, 10 + j), ws.Cells(20, 10 + j)).Formula = "=IF(RC[-" & 4 + j & "]-R" & 1 + j & "C6<366,RC[-" & 2 + j & "]+R[-1]C,0)"
        Next j
    End If
Next i
 
End Sub