Formatage de classeur

J

Jacou

XLDnaute Impliqué

• 10 Décembre 2015

• #2

Re : Formatage de classeur

Bonsoir Calvus,
après modification des macros "Format" et "Format_Efface".

bonne nuit

 

Pièces jointes

• Classeur Format Dépenses Calvus.xlsm

  52.6 KB · Affichages: 51

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 10 Décembre 2015

• #3

Re : Formatage de classeur

Bonsoir Jacou,

Il faut que je regarde à nouveau cette histoire de Screenuùpdating, je ne me souviens plus.

Merci et bonne nuit.

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 10 Décembre 2015

• #4

Re : Formatage de classeur

Re
le screenupdating n'est là que pour ne pas faire les affichages pendant l'exécution de la macro.
ce n'est pas la modification essentielle que j'ai faite dans ta macro "FORMAT"

re bonne nuit

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 10 Décembre 2015

• #5

Re : Formatage de classeur

bonjour Jacou, calvus et le forum

dans ton classeur la macro 4 peux etre réduite comme ceci

Code:

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("B2:F4").Borders.LineStyle = 1
   
End Sub

Pascal

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 10 Décembre 2015

• #6

Re : Formatage de classeur

Bonjour JAcou, Grisan, le forum,

dans ton classeur la macro 4 peux être réduite comme ceci

Cliquez pour agrandir...

C'est l'enregistreur qui a généré ce code, mais merci du tuyau, je comprends que je peux directement mettre la valeur, et qui va donc remplacer le xlContinuous.

Bonne journée

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 10 Décembre 2015

• #7

Re : Formatage de classeur

Salut

si tu as vraiment besoin d'une macro,en copiant le premier

Code:

Sub Copies()
  Sheets(Array("Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8", _
        "Feuil9", "Feuil10", "Feuil11", "Feuil12")).Select
  Selection.Activate
  Range("B2").Select
  [P].Copy
  ActiveSheet.Paste
  Selection.PasteSpecial Paste:=xlPasteColumnWidths
  Selection.Rows(2).RowHeight = Feuil1.Rows(2).RowHeight
  Selection.Rows("3:" & [P].Rows.Count).RowHeight = Feuil1.Rows(3).RowHeight
  Sheets("Feuil1").Activate: [A1].Select
End Sub

 

Pièces jointes

• Copies de Plage.xlsm

  30.6 KB · Affichages: 34

Vote positif 0 Vote négatif