enregistrer en diminuant le format

[grisan29]

Bonjour a vous tous
j'ai mon code de sauvegarde qui prends ses données en feuille facture en "D17" qui est écrit en majuscule et la font size est a 18, et bold a true

nom = Sheets("facturation").Range("D17").Value & "-" & Sheets("facturation").Range("J5").Value & ".xls"

j'ai déplacer

D17 et J5  par  U1 =  D17 & " " & D17

et mis en taille 10 la cellule,pour essai mais cela écrit aussi grand
comment puis je faire une réduction de taille et de format a l'enregistrement
actuellement "D17 " est écrit en Arial gras size 18 , peut'on mettre "D17" a Arial size 10
ou tout simplement en écrivant en minuscule car "D17" est écrit en majuscule
le tout ne pas avoir une ligne trop importante a la sauvegarde

Pascal

 

[Softmama]

Re : enregistrer en diminuant le format

Bonjour,

Ta demande n'est pas très claire en l'état.
Pour copier la cellule D17 et la passer en minuscule, taille de police 10, non gras, tu peux ajouter ces lignes :

With range("D17")
  .value = Lcase(.value) 'ou .value = application.proper(.value) pour l'avoir en nom propre
  .font.bold = false
  .font.size = 10
end with

 

[grisan29]

RESOLU : enregistrer en diminuant le format

Bonjour,

Ta demande n'est pas très claire en l'état.
Pour copier la cellule D17 et la passer en minuscule, taille de police 10, non gras, tu peux ajouter ces lignes :

With range("D17")
  .value = Lcase(.value) 'ou .value = application.proper(.value) pour l'avoir en nom propre
  .font.bold = false
  .font.size = 10
end with

bonjour softmama😎

merci beaucoup de ta solution qui colle parfaitement a mon besoin😎

Pascal