Eviter répétition code

Version imprimable

Bonjour à toutes et à tous,

Peu initié en VBA, je suis tout de même parvenu à réaliser une macro qui satisfasse à mes besoins :ccool:

Sauf qu'à plusieurs reprises dans le code, je utiliser un ensemble de lignes de mise en forme et je souhaiterai savoir si il existe un moyen d'éviter cette répétition !?

Voici un exemple du code répété (au sein de boucles ou unitairement)
Code:

1 2 3 4 5 6 7 8 9 sh1.Cells(c, colonne).Interior.Color = RGB(225, 233, 243) sh1.Cells(c, colonne).Borders(xlEdgeLeft).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeTop).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeBottom).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeRight).Weight = xlThin sh1.Cells(c, colonne).Font.Name = "Calibri" sh1.Cells(c, colonne).Font.Size = 10 sh1.Cells(c, colonne).Font.Bold = True
j'ai bien essayé de créer une fonction mais j'obtiens dans ce cas une erreur à l'exécution..

pourriez-vous m'aider SVP ?

Merci d'avance

Dans ton bout de code : qu'est-ce qui sera amené à changer en fonction des boucles ?

Si par exemple tu veux faire varier selon c et colonne, un code de ce type (j'ai supposé que ce sont des integers) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub CodeRepet(c As Integer, colonne As Integer) sh1.Cells(c, colonne).Interior.Color = RGB(225, 233, 243) sh1.Cells(c, colonne).Borders(xlEdgeLeft).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeTop).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeBottom).Weight = xlThin sh1.Cells(c, colonne).Borders(xlEdgeRight).Weight = xlThin sh1.Cells(c, colonne).Font.Name = "Calibri" sh1.Cells(c, colonne).Font.Size = 10 sh1.Cells(c, colonne).Font.Bold = True End Sub Sub Main 'Code avant CodeRepet 8,16 'Code après End Sub
Si le main et ton CodeRepet ne sont pas dans le même module : ajouter un Public devant Sub en première ligne.

Bonjour,

tu pourrais créer une petite procédure de mise en forme avec les paramètres Feuille, Ligne et Colonne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MEF(Feuil As Worksheet, Lig As Integer, Col As Integer)
    With Feuil.Cells(Lig, Col)
        .Interior.Color = RGB(225, 233, 243)
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeTop).Weight = xlThin
        .Borders(xlEdgeBottom).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
        .Font.Name = "Calibri"
        .Font.Size = 10
        .Font.Bold = True
    End With
End Sub

et l'exécuter à chaque fois que tu en as besoin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MaMacro()
'...
'...
'mise en forme
MEF feuille, ligne, colonne
'...
'...
'...
'mise en forme
MEF feuille, ligne, colonne
'etc...
End Sub

31/07/2012, 09h52
zycomatic

Merci à vous !

J'ai en effet utilisé une procédure avec les paramètres Feuille, Ligne et Colonne tel qu'indiqué par fring, en réalité, mon erreur (de newbie :oops:) était tout simplement due à l'absence de passage de paramètres...

En tous cas merci de votre réactivité et de la précision des réponses :ccool:

Zyco

Bonjour,

Citation:

j'ai bien essayé de créer une fonction mais j'obtiens dans ce cas une erreur à l'exécution..

Ton code que j'ai mis dans un bloc WITH pour la facilité de lecture et où j'ai remplacé ta variable C par R qui me semblait une lettre plus proche de Row

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Proc1()
 Dim sh1 As Worksheet: Set sh1 = ThisWorkbook.Worksheets("Feuil1")
 Dim r As Long, colonne As Long
 r = 2: colonne = 5
 With sh1.Cells(r, colonne)
 .Interior.Color = RGB(225, 233, 243)
 .Borders(xlEdgeLeft).Weight = xlThin
 .Borders(xlEdgeTop).Weight = xlThin
 .Borders(xlEdgeBottom).Weight = xlThin
 .Borders(xlEdgeRight).Weight = xlThin
 .Font.Name = "Calibri"
 .Font.Size = 10
 .Font.Bold = True
 End With
End Sub

Tu tapes ton code de mise en forme dans une procédure SUB ou FUNCTION dans laquelle tu prévois comme argument le range sur lequel tu appliquera cette MEF

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function MiseEnForme(rng As Range)
 With rng
 .Interior.Color = RGB(225, 233, 243)
 .Borders(xlEdgeLeft).Weight = xlThin
 .Borders(xlEdgeTop).Weight = xlThin
 .Borders(xlEdgeBottom).Weight = xlThin
 .Borders(xlEdgeRight).Weight = xlThin
 .Font.Name = "Calibri"
 .Font.Size = 10
 .Font.Bold = True
 End With
End Function

Que tu appelles avec cette procédure

Code:

1
2
3
4
5
6
7
8
9
10
Sub proc2()
 Dim sh1 As Worksheet: Set sh1 = ThisWorkbook.Worksheets("Feuil1")
 Dim maPlage As Range
 Dim r As Long, colonne As Long
 r = 2: colonne = 5
 Set maPlage = sh1.Cells(r, colonne)
 MsgBox "Mise en forme de la plage " & maPlage.Address & MiseEnForme(maPlage)
 Set maPlage = sh1.Range("A5:C8")
 MsgBox "Mise en forme de la plage " & maPlage.Address & MiseEnForme(maPlage)
End Sub

Tu pourrais ensuite faire mieux en ajoutant un paramètre supplémentaire qui serait la couleur à appliquer.
Une procédure comme celle-ci, que j'ai chanhger en SUB comme cela tu as 2 exemples.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MiseEnForme(rng As Range, laCouleur As Long)
 With rng
 .Interior.color = laCouleur
 .Borders(xlEdgeLeft).Weight = xlThin
 .Borders(xlEdgeTop).Weight = xlThin
 .Borders(xlEdgeBottom).Weight = xlThin
 .Borders(xlEdgeRight).Weight = xlThin
 .Font.Name = "Calibri"
 .Font.Size = 10
 .Font.Bold = True
 End With
End Sub

Que tu appelles par une procédure comme ceci

Code:

1
2
3
4
5
6
7
8
Sub proc3()
 Dim sh1 As Worksheet: Set sh1 = ThisWorkbook.Worksheets("Feuil1")
 Dim maPlage As Range
 Dim mycolor As Long
 mycolor = RGB(255, 0, 200)
 Set maPlage = sh1.Range("A3:A20")
 MiseEnForme maPlage, mycolor
End Sub