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.
Merci par avance
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
Partager