Discussion :

[Excel'air]

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 ?

[Invité]

Bonjour,

A tester :

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
 
Sub Module_merge2(ByVal Target As Range, ByVal Contenu As Variant)
 
    With Target
            If .MergeCells = True Then .UnMerge
            .Clear
            .Interior.ColorIndex = 37
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Value = Contenu & Chr(10) & "2/2"
            Application.DisplayAlerts = False
            .MergeCells = True
            Application.DisplayAlerts = True
    End With
 
End Sub

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        .WrapText = False

Mon souci est sur la ligne Selection.Value = module & vbCrLf & "2/2" le saut de ligne ne fonctionne pas

C'est normal puisque tu lui demandes de ne pas faire de renvoi à la ligne.
Passe WrapText à True.

Pour le reste, suit les conseil d'Eric : vire les Select/Selection et mets un With Target global.

Dernier détail (juste histoire de pinailler) : perso, je mettrais le paramètre module de type String (Variant est à réserver uniquement aux cas d'absolue nécessité).

[Excel'air]

Merci pour votre aide, ça fonctionne

Dernier détail (juste histoire de pinailler) : perso, je mettrais le paramètre module de type String (Variant est à réserver uniquement aux cas d'absolue nécessité).

Je vais suivre ton conseil