Discussion :

[aedcc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[electrons]

Bonjour,

Il suffit de mettre ton code dans la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Puis faire un appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call MF_Bordure

Bonne journée

[aedcc]

merciiiii

[defluc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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