[AC-2007] Création d'une fonction

[Marcopololo]

Bonjour,

Je souhaiterais savoir s'il est possible de créer une fonction qui va enrichir les cellules d'un tableau excel avec le code ci dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
            .Font.Bold = True               'titres caractères gras
            .Font.Size = 14
            .Interior.ColorIndex = 15
            .Interior.Pattern = xlSolid
            .VerticalAlignment = xlCenter
            .Borders(xlEdgeTop).LineStyle = xlDouble
            .Borders(xlEdgeTop).Weight = xlThick
            .Borders(xlEdgeTop).ColorIndex = xlAutomatic
            .Borders(xlEdgeBottom).LineStyle = xlDouble
            .Borders(xlEdgeBottom).Weight = xlThick
            .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
            .Borders(xlEdgeLeft).LineStyle = xlDouble
            .Borders(xlEdgeLeft).Weight = xlThick
            .Borders(xlEdgeLeft).ColorIndex = xlAutomatic
            .Borders(xlEdgeRight).LineStyle = xlDouble
            .Borders(xlEdgeRight).Weight = xlThick
            .Borders(xlEdgeRight).ColorIndex = xlAutomatic
            .HorizontalAlignment = xlCenter

Sachant que j'intercalerais cete fonction (créé dans un module dans une fonction with :

Code :

1
2
3
4
5
6
7
8
9
For J = 0 To rec.Fields.Count - 1
        xlSheet1.Cells(1, J + 1) = rec.Fields(J).Name
 
        With xlSheet1.Cells(1, J + 1)
  '. 
  '.  fonction Enrichissement de format aux cellules
  '.
        End With
    Next J

Merci d'avance

Marcopololo

[loufab]

Bonjour,

J'ai du mal à cerner la question. Mettre ça dans une fonction : oui. Dans l'état du code actuel : non.

Faire une fonction pourquoi pas... Bien que je n'en vois pas réellement l’intérêt, à moins d'utiliser cette partie de code à partir d'une autre procédure.

En tout cas un simple With ne suffira pas, il faut transmettre l'objet à la nouvelle fonction.

Regarde l'étendu du With et son utilisation dans l'aide Access (F1) pour t'en convaincre.

Cordialement,

[Marcopololo]

Merci de ta réponse.

L'idée était de pouvoir réutiliser cette fonction à plusieurs reprises dans mon formulaire, pour éviter d'alourdir celui ci en lignes d'écriture.

Je vais regarder de plus près

Marcopololo