Probleme de police

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:

---

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 :D

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 ?

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?

Bonsoir,

Citation:

---

Envoyé par 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 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:

---

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:

---

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:

---

1 2 3

Sub t() CopieStyle Range("D2"), Range("A2") End Sub

---

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.

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.

Si jamais quelqu'un cherche la propriété.

Code:

---

Range.Orientation

---