Discussion :

[Silerys]

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

[Philippe Tulliez]

Bonjour,
J'ai testé ton code et il colle bien dans la cellule cible, la taille de la police copiée de la cellule d'origine.
Je n'ai pas regardé tout ton code mais n'est -ce pas ce que fait nativement le Copier/CollageSpecial - Format ?

[Silerys]

J'aime pas le Copier/CollageSpecial - Format ?

il nécessite un ".select" et en plus utilise le presse-papier
Ce qui n'est pas très propre (à mon gout)

Je vais essayer avec une autre feuille excel juste ne l'appelant dans une macro =/

la procédure est dans ThisWorkBook j’espère que ce n'est pas sa qui pose probleme?

Edit : je viens de copié le code dans un autre classeur. appel par bouton sur une procédure qui appel ma procédure de style. (la taille de police est bien renseigné) =/


j'ai donc changé de fichier XLSx c'est rentrée dans l'ordre ...

Sinon quelqu'un connait-il la propriété qui permet d'incliné le texte sur dans une cellule de classeur excel?

[Philippe Tulliez]

Bonsoir,

J'aime pas le Copier/CollageSpecial - Format ?
il nécessite un ".select" et en plus utilise le presse-papier
Ce qui n'est pas très propre (à mon gout)

Je ne sais pas où tu vas chercher ce genre d'affirmation, parce-que je ne connais aucun code VBA pour Excel qui nécessite la méthode Select pour modifier la propriété d'une cellule ou d'une plage de cellules.

Voici un code VBA qui fait un Copier/Collage Special - Format sans l'once d'un Select

Code :

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

1
2
Range("A2").Copy
Range("D2").PasteSpecial Paste:=xlPasteFormats

Que l'on peut bien entendu intégrer dans ta procédure CopieStyle
Ta procédure

Code :

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

1
2
3
4
Sub CopieStyle(ByVal Cible As Range, ByVal Origine As Range)
 Origine.Copy
 Cible.PasteSpecial Paste:=xlPasteFormats
End Sub

Un exemple d'appel de ta procédure

Code :

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

1
2
3
Sub t()
 CopieStyle Range("D2"), Range("A2")
End Sub

[Silerys]

Merci
j'ai a peu prêt ma réponse.

Ceci dit. le copier coller n'est pas propre car utilise le presse-papier a l'insu de l'utilisateur qui avait peut être sauvegarder des données dedans. Mais je ne voudrais pas te vexer.

[Philippe Tulliez]

Bonjour,

Tu ne me vexes pas du tout, je n'ai pas de problème d'égo particulier.
J'essaie tout simplement de faire partager très modestement l'expérience que j'ai d'un développement VBA et d'Excel.
Pour aller en vacances, il y a des gens qui prennent les nationales, d'autres les autoroutes et d'autres encore qui font la route en prenant trois fois plus de temps mais qui le font en rêvant. Finalement chacun arrive à destination.
C'est vrai que je privilégie les outils d'excel.
Alors dans ton cas, si l'utilisateur utilise le pinceau, entre le moment où il fait un Copier et un Coller, il aura le même problème que s'il utilise un code VBA tel que je te l'ai proposé. Ceci-dit, il y a moyen de récupérer le contenu du presse-papier par programmation et le restituer.