EXCEL trouver la formule

Fermé
FERNANDEZ FREDERIC - 23 mars 2006 à 15:15
Armojax Messages postés 1855 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 novembre 2022 - 23 mars 2006 à 18:47
Bonjour,

Je dois ecrire une macro comprenant une mise en page final comprenant l'encadrement d'une multitude de lignes et colonnes pouvant vairés de manière significative.

Je n'arrive pas à trouver la formule me permettant d'encadrer automatiquement le document quelquesoit le nombre de lignes et colonnes.

Quelqu'un peut il m'aider

MERCI

1 réponse

Armojax Messages postés 1855 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 novembre 2022 1 517
23 mars 2006 à 18:47
Hello,

La macro ci-dessous suppose que les données qui composent ton document ne sont traversées par aucune ligne ni aucune colonne entièrement vide.
Il suffit de préciser l'angle supérieur gauche du document. Là, j'ai supposé que c'est la cellule A1, vraisemblablement.
Sub Bordure()
  ActiveSheet.Range("A1").CurrentRegion.Select
  With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
  With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
End Sub
A toi d'adapter la valeur des variables :
- xlContinuous : trait continu, voir les autres options
- xlMedium : épaisseur moyenne
- xlAutomatic : couleur

Est-ce que c'est quelque chose comme ça que tu cherches ?
1