Re-cadre tableau

[eliot raymond]

Bonsoir a tous et le forum

J'ai essayer de faire avec l'enregistreur de macros voir le fichier joint, j'ai réussi a planter mon PC alors si quelqu'un peut me donner un tchi coup de main en attendant que je me documente et me forme sur ce bazar d'enregistreur, merci d'avance.

Merci beaucoup d'avance et bonne soirée

RAYMOND

 

[PMO2]

Re : Re-cadre tableau

Bonjour,

1) Ouvrez un nouveau classeur et dans Excel faites Alt + F11 pour ouvrir l'éditeur VBA (VBE)
2) Dans le VBE faites menu Insertion/Module
3) Copiez le code suivant dans le module

Sub Macro_test()

Range("A1:I1").Interior.ColorIndex = 39
Range("A29:I29").Interior.ColorIndex = 40

With Range("A2:I28")
  With .Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 3
  End With
  With .Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlHairline
    .ColorIndex = 3
  End With
  With .Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlHairline
    .ColorIndex = 3
  End With
  With .Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 3
  End With
  With .Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 3
  End With
  With .Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlHairline
    .ColorIndex = 3
  End With
End With

With Range("A1:I1,A29:I29")
  With .Borders(xlEdgeLeft)
    .LineStyle = xlDouble
    .Weight = xlThick
    .ColorIndex = 44
  End With
  With .Borders(xlEdgeTop)
    .LineStyle = xlDouble
    .Weight = xlThick
    .ColorIndex = 44
  End With
  With .Borders(xlEdgeBottom)
    .LineStyle = xlDouble
    .Weight = xlThick
    .ColorIndex = 44
  End With
  With .Borders(xlEdgeRight)
    .LineStyle = xlDouble
    .Weight = xlThick
    .ColorIndex = 44
  End With
  With .Borders(xlInsideVertical)
    .LineStyle = xlDouble
    .Weight = xlThick
    .ColorIndex = 44
  End With
End With

Columns("H:H").ColumnWidth = 25

With Range("H20")
  .Value = "Bon Dimanche"
  .Interior.ColorIndex = 35
  .HorizontalAlignment = xlCenter
  .Font.ColorIndex = 5
  .Font.Bold = True
  .Characters(Start:=1, Length:=1).Font.ColorIndex = 3
  .Characters(Start:=5, Length:=1).Font.ColorIndex = 3
End With

End Sub

4) Rétrécissez le VBE de manière à voir la fenêtre d'Excel
5) Dans le VBE, cliquez à l'intérieur de la macro et appuyez sur F8
Cela permet d'exécuter le code pas à pas et on peut voir l'impact
dans Excel d'une ligne d'instruction

Bon courage.

Cordialement.

PMO
Patrick Morange

 

[eliot raymond]

Re : Re-cadre tableau

Bonsoir PMO2 bonsoir le forum,

Que puis-je dire super sympa excatement ce que je voulais, je vais etudier ca de pres de tres pret car je vais avoir encore besoin mais la c'est top cool

Question si ca ne derange pas je voudrais savoir ou placer le code et mettre comme instruction PRIVATE d'apres ce que j'ai essayer le probleme est que lorsque l'on fait une modification il faut enregistrer avant pis relancer excel 2007 pour moi. Pas pratique pour les modifications, je n'utiliserai pas en SUB mais direct dans une Feuil ou ??? je ne sais pas le mieux a faire.

En tout cas merci beaucoup vais apprendre bien plus vite

Avec grand plaisir de te relire

RAYMOND