Discussion :

[had4789]

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 :

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

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

[Menhir]

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

Quelle formule ?

[keygen08]

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 :

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

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

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

[keygen08]

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

Code :

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

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