Discussion :

[FrancisZheng]

J'ai utilisé le code ci-dessous pour fusionner des cellules. Comment je fais pour afficher le texte "Texte" au milieu de cet ensemble? Merci d'avance

Code :

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

1
2
3
Sub test()
Range("A1:B5").Merge
End Sub

[Theze]

Bonjour,

Code :

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

1
2
3
4
5
6
 
Sub test()
    Range("A1:B5").Merge
    Range("A1:B5").HorizontalAlignment = xlCenter
    Range("A1:B5").VerticalAlignment = xlCenter
End Sub

[FrancisZheng]

Merci de m'avoir répondu . Votre programme fonctionne très bien.
Mais si je veux fusionner Cells(a,b) à Cells(c,d) je fais comment?
Par exemple fusionner de ligne a à ligne c et de colonne b à colonne d puis afficher "texte" au milieu.

[Theze]

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
 
Sub Test()
 
    Dim R As Range
    Dim I As Integer
    Dim J As Integer
 
    J = 4 'colonne D
 
    For I = 1 To 20 Step 5
 
        Set R = Range(Cells(I, 1), Cells(I + 4, J))
        R.Merge
        R.HorizontalAlignment = xlCenter
        R.VerticalAlignment = xlCenter
        R.Value = "Texte " & I
 
    Next I
 
End Sub

[FrancisZheng]

C'est parfait comme réponse. Merci.