Discussion :

[zycomatic]

Bonjour à toutes et à tous,

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

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 :

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

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

[napo123]

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 :

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
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.

[fring]

Bonjour,

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

Code :

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

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 :

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

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

[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 ) é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

Zyco

[Philippe Tulliez]

Bonjour,

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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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