Sujet Précédent Sujet Suivant

EXCEL trouver la formule

FERNANDEZ FREDERIC -  
Armojax Messages postés 1916 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
Armojax Messages postés 1916 Date d'inscription   Statut Membre Dernière intervention   1 529
 
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