pouvez vous me decrire ce programme
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 Sheets("Chiffrages").Select Worksheets("Chiffrages").Rows(sup).Select Selection.Insert Shift:=xlDown Selection.Interior.ColorIndex = xlNone ActiveWindow.SmallScroll ToRight:=14 Range("P" & sup + 1 & ":S" & sup + 1).Select Selection.AutoFill Destination:=Range("P" & sup & ":S" & sup + 1), Type:=xlFillDefault Range("P" & sup & ":S" & sup + 1).Select Range("P" & sup).Select Sheets("Tables de calcul").Select Rows(sup).Select Selection.Insert Shift:=xlDown Selection.Interior.ColorIndex = xlNone Rows(sup + 1).Select Selection.AutoFill Destination:=Rows(sup & ":" & sup + 1), Type:=xlFillDefault Sheets("Chiffrages").Select ActiveWindow.LargeScroll ToRight:=-2 Range("A" & sup).Select
Partager