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