Bonjour,
Dans une macro, je voudrais pouvoir récupérer les caractéristiques de la
police utilisée dans une cellule pour l'appliquer ensuite sur une autre
cellule dans une autre feuille.
Je pensais utiliser deux variables 'font' mais je n'arrive pas à trouver la
bonne syntaxe.
Dim FontCellule01 as font
Dim FontCellule02 as font
FontCellule01= sheets(?RDD?).range (?H2 :O2?).font
Même si je défini la propriété avec .name ou .size par exemple, j'ai
toujours des message d'erreur.
Si quelqu'un avec les quelques lignes de codes comme exemple
Merci d'avance.
Bonjour,
Dans une macro, je voudrais pouvoir récupérer les caractéristiques de la
police utilisée dans une cellule pour l'appliquer ensuite sur une autre
cellule dans une autre feuille.
Je pensais utiliser deux variables 'font' mais je n'arrive pas à trouver la
bonne syntaxe.
Dim FontCellule01 as font
Dim FontCellule02 as font
FontCellule01= sheets(?RDD?).range (?H2 :O2?).font
Même si je défini la propriété avec .name ou .size par exemple, j'ai
toujours des message d'erreur.
Si quelqu'un avec les quelques lignes de codes comme exemple
Merci d'avance.
Bonjour,
Dans une macro, je voudrais pouvoir récupérer les caractéristiques de la
police utilisée dans une cellule pour l'appliquer ensuite sur une autre
cellule dans une autre feuille.
Je pensais utiliser deux variables 'font' mais je n'arrive pas à trouver la
bonne syntaxe.
Dim FontCellule01 as font
Dim FontCellule02 as font
FontCellule01= sheets(?RDD?).range (?H2 :O2?).font
Même si je défini la propriété avec .name ou .size par exemple, j'ai
toujours des message d'erreur.
Si quelqu'un avec les quelques lignes de codes comme exemple
Merci d'avance.
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne vois
pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai l'impression
que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne vois
pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai l'impression
que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne vois
pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai l'impression
que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" a écrit dans le message de news:
O46E$bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" <i@v> a écrit dans le message de news:
O46E$RjzJHA.6004@TK2MSFTNGP02.phx.gbl...
bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" a écrit dans le message de news:
O46E$bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule la
valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
pourquoi ne pas faire un collageSpécial format ?
Set plg1 = Workbooks("Classeur1").Sheets("Feuil1")
Set plg2 = Workbooks("Classeur2").Sheets("Feuil1")
plg1.Range("A1").Copy
plg2.Range("A1").PasteSpecial Paste:=xlPasteFormats
isabelle
PAN GOT a écrit :Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" a écrit dans le message de news:
O46E$bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule
la valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
pourquoi ne pas faire un collageSpécial format ?
Set plg1 = Workbooks("Classeur1").Sheets("Feuil1")
Set plg2 = Workbooks("Classeur2").Sheets("Feuil1")
plg1.Range("A1").Copy
plg2.Range("A1").PasteSpecial Paste:=xlPasteFormats
isabelle
PAN GOT a écrit :
Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" <i@v> a écrit dans le message de news:
O46E$RjzJHA.6004@TK2MSFTNGP02.phx.gbl...
bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule
la valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :
Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With
bonjour Pan,
pourquoi ne pas faire un collageSpécial format ?
Set plg1 = Workbooks("Classeur1").Sheets("Feuil1")
Set plg2 = Workbooks("Classeur2").Sheets("Feuil1")
plg1.Range("A1").Copy
plg2.Range("A1").PasteSpecial Paste:=xlPasteFormats
isabelle
PAN GOT a écrit :Bonjour Isabelle
Je cherche à appliquer le format Font à d'autre cellule. Pour être plus
précis, j'ai dans ces cellules un texte qui correspond à l'intitulé d'une
affaire. Comme cet intitulé est défini par le client, qu'il est plus ou
moins long et du coup, quand celui-ci est trop long, l'utilisateur a
tendance à modifier la police pour que tout cela rentre sans changer le
reste de la mise en page.
Attention, çà marche ce que tu m'a envoyé, c'est plus pour essayer de
comprendre. Je pense que la logique devrait peut etre etre la même pour
certains objets comme la cellule?
@+
"isabelle" a écrit dans le message de news:
O46E$bonjour Pan,
que veut tu dire par "récupérer", est ce que tu écrit dans une cellule
la valeur de chaque Propriété de Font
ou bien est ce que tu applique le format Font à d'autre cellule ?
isabelle
PAN GOT a écrit :Bonjour,
Encore merci Isabelle, çà marche (j'ai dejà envoyé un message que je ne
vois pas???)
Je me demandais juste si on ne pouvais pas ameliorer ce code. Comme je
recupere la police dans 4 cellules
que je reporte dans une autre feuille d'un autre classeur. J'ai
l'impression que l'on devrait pouvoir reduire ces lignes.
D'avance, merci.
With Range("A2").Font
STYLE1(1) = .Name
STYLE1(2) = .FontStyle
STYLE1(3) = .Size
STYLE1(4) = .Strikethrough
STYLE1(5) = .Superscript
STYLE1(6) = .Subscript
STYLE1(7) = .OutlineFont
STYLE1(8) = .Shadow
STYLE1(9) = .Underline
STYLE1(10) = .ColorIndex
End With
With Range("A3").Font
STYLE2(1) = .Name
STYLE2(2) = .FontStyle
STYLE2(3) = .Size
STYLE2(4) = .Strikethrough
STYLE2(5) = .Superscript
STYLE2(6) = .Subscript
STYLE2(7) = .OutlineFont
STYLE2(8) = .Shadow
STYLE2(9) = .Underline
STYLE2(10) = .ColorIndex
End With
With Range("H2:O2").Font
STYLE3(1) = .Name
STYLE3(2) = .FontStyle
STYLE3(3) = .Size
STYLE3(4) = .Strikethrough
STYLE3(5) = .Superscript
STYLE3(6) = .Subscript
STYLE3(7) = .OutlineFont
STYLE3(8) = .Shadow
STYLE3(9) = .Underline
STYLE3(10) = .ColorIndex
End With
With Range("H3:O3").Font
STYLE4(1) = .Name
STYLE4(2) = .FontStyle
STYLE4(3) = .Size
STYLE4(4) = .Strikethrough
STYLE4(5) = .Superscript
STYLE4(6) = .Subscript
STYLE4(7) = .OutlineFont
STYLE4(8) = .Shadow
STYLE4(9) = .Underline
STYLE4(10) = .ColorIndex
End With