Bonjour à tous, je viens de tester deux macros pour créer des lignes sur Excel et sur Word.
Les résultats ne sont pas les mêmes au niveau des couleurs.
Quelqu'un aurai une explication.
D'avance merci
Sur Word
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
Sub SurWord()
Dim i As Integer
On Error Resume Next
For i = 1 To 54
    With ActiveDocument.Shapes.AddLine( _
        10, _
        100 + i * 10, _
        250, _
        100 + i * 10)
        .Name = "maLigne" & i
        With .Line
            .Weight = 6
            .ForeColor.RGB = RGB(200, 175, 80)
            .BackColor.RGB = RGB(230, 215, 135)
            .Pattern = i
        End With
    End With
Next i
End Sub
Sur Excel
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
Sub SurExcel()
Dim i As Integer
On Error Resume Next
For i = 1 To 54
    With ActiveSheet.Shapes.AddLine( _
        10, _
        100 + i * 10, _
        250, _
        100 + i * 10)
        .Name = "maLigne" & i
        With .Line
            .Weight = 6
            .ForeColor.RGB = RGB(200, 175, 80)
            .BackColor.RGB = RGB(230, 215, 135)
            .Pattern = i
        End With
    End With
Next i
End Sub
Cordialement
Fred