Bonjour voila j'ai fait une petite procédure me permettant de copier le style d'écriture d'une cellule a une autre. j'ai juste un petit probleme.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Public Sub CopieStyle(ByVal Cible As Range, ByVal Origine As Range)
Dim DefBorder(0 To 5) As Integer
    DefBorder(0) = xlEdgeBottom
    DefBorder(1) = xlEdgeLeft
    DefBorder(2) = xlEdgeTop
    DefBorder(3) = xlEdgeRight
    DefBorder(4) = xlDiagonalDown
    DefBorder(5) = xlDiagonalUp
    With Cible
        .HorizontalAlignment = Origine.HorizontalAlignment
        .VerticalAlignment = Origine.VerticalAlignment
 
        If Origine.Interior.Color <> rgbWhite Then
            .Interior.Color = Origine.Interior.Color
        End If
 
        With .Font ' Définition de la police
            .Name = Origine.Font.Name
            .Size = Origine.Font.Size
            .Color = Origine.Font.Color
            .Bold = Origine.Font.Bold
            .Background = Origine.Font.Background
            .FontStyle = Origine.Font.FontStyle
            .Italic = Origine.Font.Italic
            .Underline = Origine.Font.Underline
        End With
 
        For i = 0 To 5 ' Définition des bordures
            With .Borders(DefBorder(i))
                .Weight = Origine.Borders(DefBorder(i)).Weight
                .Color = Origine.Borders(DefBorder(i)).Color
                .LineStyle = Origine.Borders(DefBorder(i)).LineStyle
            End With
        Next i
    End With
End Sub
Premier probleme le .Font.size renvoie toujours 11.
je ne peu pas récupérer la taille de ma police sur la cellule. celle-ci est toujours de 11...

Deuxieme Probleme. j'aimerai savoir si la police a été tourner verticalement ou pas.je ne sais pas avec quel fonction par contre =/

Merci d'avance a tous pour vos réponses