Function - mise en forme

Version imprimable

Salut
je veux faire une fonction (en vba) pour formater les cellules sélectionnée
par exemple je préciser les cellules a1 et f8 (PLAGE) et appliquer le script suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With

je pense :
Public Function MF_BORURE(PLAGE AS RANGE)

MERCI

Bonjour,

Il suffit de mettre ton code dans la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub MF_Bordure ()
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
 
End Sub

Tu sélectionne ensuite la plage ou appliquer la Fonction du style :

Code:

Range(Cells(Lg1,Col1),Cells(Lg2,Col2)) . Select

Puis faire un appel :

Code:

Call MF_Bordure

Bonne journée

25/02/2014, 13h22
aedcc

merciiiii

Je me permets quelques remarques.

Tout d'abord, les fonctions sont déclarées par le mot clé Function et non Sub. Elles sont destinées à renvoyer une valeur. Il ne s'agit donc pas d'une fonction ici.

Ensuite pour une programmation plus "propre", comme dit et répété tous les 5 messages, il faut proscrire les "Select(ion)" qui ralentissent l'exécution et provoquent des clignotements désagréables de l'écran.

Enfin, le "Call" n'est pas nécessaire. Cela donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Test()
 MF_Bordure Range(Cells(1, 1), Cells(12, 6))
End Sub
Sub MF_Bordure(R As Range)
    R.Borders(xlDiagonalDown).LineStyle = xlNone
    R.Borders(xlDiagonalUp).LineStyle = xlNone
    With R.Borders(xlEdgeLeft)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With R.Borders(xlEdgeTop)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With R.Borders(xlEdgeBottom)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With R.Borders(xlEdgeRight)
        .LineStyle = xlSlantDashDot
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With R.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With R.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub