Possible de diminuer grosseurDePolice de pleinCelules différentesMemeTemps?

Bonjour,

je cherche a diminuer l'écriture par exemple de 25% de plusieurs cellules dans Excel qui ont une police ( grosseur, format soulignement, lien hypertexte) différente. Je ne veux pas perdre l'image du format de présentation, les gros titres restent + gros, mais rapetissent, tout comme tout le reste, et sans macro (si possible)?

Ex. Si j'ai ceci:

cellule a2 = Titre bla bla = gras, grosseur de caractère=20 et souligné

cellule a3 = sous-titre en italique et grosseur=16

cellule a4 = lien hypertexte, normal, grosseur=12

cellule a5= information : grosseur=10

et donc je voudrais que toutes la grosseur des écritures des 4 cellules soient juste rapetissées du même % chacun (exemple : on part de 100% a 75%).

donc au final, l'exemple deviendrait :

a2 = encore titre bla bla en gras, et souligné, mais grosseur 15

a3 = pareil, mais grosseur devenue 12

a4= pareil, mais grosseur devenue 9

a5 = pareil, mais grosseur devenue (grosseur 7.5 ou 8 = ça serait bien correct, ca ne me dérange pas pour la petite différence a cause du nombre avec décimale, si c'est pas 25% parfaitement non plus!)

Est-ce faisable svp?

** SVP, voir la pièce jointe si vous voulez faire des tests. J'ai reproduit mon exemple! merci!

Merci a tous!

Chantal

Bonjour Chantal,

voici un exemple,

Sub Modifier_Size_moins()
sz1 = Range("A2").Font.Size
sz2 = Range("A3").Font.Size
sz3 = Range("A4").Font.Size
sz4 = Range("A5").Font.Size

Range("A2").Font.Size = sz1 * 0.75
Range("A3").Font.Size = sz2 * 0.75
Range("A4").Font.Size = sz3 * 0.75
Range("A5").Font.Size = sz4 * 0.75
End Sub

Sub Modifier_Size_plus()
sz1 = Range("A2").Font.Size
sz2 = Range("A3").Font.Size
sz3 = Range("A4").Font.Size
sz4 = Range("A5").Font.Size

Range("A2").Font.Size = sz1 * 1.25
Range("A3").Font.Size = sz2 * 1.25
Range("A4").Font.Size = sz3 * 1.25
Range("A5").Font.Size = sz4 * 1.25
End Sub

Bonjour Merci i20100!!!

1-cependant, j'ai omis de préciser que j'avais beaucoup de cellules... dois-je absolument faire chaque cellule une par une dans cette macro ?

et 2- il n'y a pas d'autres façons de le faire sans macro?

un gros merci, réponse rapide !

Chan a écrit :

Bonjour Merci i20100!!!

1-cependant, j'ai omis de préciser que j'avais beaucoup de cellules... dois-je absolument faire chaque cellule une par une dans cette macro ?

et 2- il n'y a pas d'autres façons de le faire sans macro?

un gros merci, réponse rapide !

1 - quel sont les adresse de plage de cellules à modifer ?

2 - ce n'est pas possible sans macro.

Bonjour à tous,

Agira sur toute la sélection :

Sub moins()
    Dim c As Range
    For Each c In Selection
        c.Font.Size = c.Font.Size * 0.75
    Next c
End Sub

Sub plus()
    Dim c As Range
    For Each c In Selection
        c.Font.Size = c.Font.Size / 0.75
    Next c
End Sub

Attention que *1.25 n'est pas l'inverse de * 0.75

eric

Bonjour, merci Je teste cela ce soir et je vous reviens !

Bonjour à tous

A noter qu'il existe dans Excel le style de cellule : on peut donc définir des styles, comme dans Word, et les appliquer aux cellules.

On travaille cependant en points pas en %

Pour automatiser l'application, il faudrait des règles que tu n'a pas fournies

Bonjour/Bonsoir a tous, Eriiic, c'est exactement cela, c'est parfait, j'aime beaucoup ça! Rien a redire, c'est merveilleux, énorme merci!!!

et pour 78chris, je te salue particulièrement, un gros merci d'avoir proposé une autre solution. Personnellement, je trouve que la solution d'eriiic semble plus simple, car je n'ai pas a travailler sur chaque grosseur de police a modifier. Mais j'apprécie bien ta généreuse contribution de l'avoir proposé. Belle délicatesse!

Bonne fin de semaine a vous,

merci encore!!!!!!