Bonjour à tous,

J'ai un code qui me permet de créer une plage avec les propriétés voulus.

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 module_merge2(ByVal Target As Range, ByVal module As Variant)
Target.Select
Selection.Merge
Selection.Value = module & vbCrLf & "2/2"
With Selection
 
        .Interior.ColorIndex = 37
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
End With
Selection.Merge
End Sub
Mon souci est sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.Value = module & vbCrLf & "2/2"
Le saut de ligne ne fonctionne pas, j'ai aussi essayé avec chr(10) et chr(13) aucune ne fonctionne.

Est ce que vous auriez une idée ?