badboy9312
Nouveau membre
Salut, j'aimerai faire une procédure ou fonction qui prend comme paramètre d'entrée " nom" qui es une cellule ou partie de cellule, "gras" un boolean, "taille" un integer, "couleur" un string qui est censée changer la police de "nom".
Voilà ce que j'ai codé:
Sub police(nom As Range, gras As Boolean, taille As Integer, couleur As String)
With nom.Font
If gras Then
.Bold = True
Else
.Bold = False
End If
.Size = taille
Select Case couleur
Case "rouge"
.Color = RGB(250, 0, 0)
Case "vert"
.Color = RGB(0, 100, 0)
Case "orange"
.Color = RGB(255, 191, 0)
Case "bleu"
.ColorIndex = 55
Case "marron"
.ColorIndex = 9
Case "noir"
.Color = RGB(0, 0, 0)
End Select
End With
mais quand cette "sub" elle ne marque un message d'erreur : "erreur de syntaxe"
par exemple,
Sub affectepolice()
police(range("NAMEbis"), True, 13, "noir")
end sub
où NAMEbis est une partie d'une colonne
Pouvez vous m'aider?
Voilà ce que j'ai codé:
Sub police(nom As Range, gras As Boolean, taille As Integer, couleur As String)
With nom.Font
If gras Then
.Bold = True
Else
.Bold = False
End If
.Size = taille
Select Case couleur
Case "rouge"
.Color = RGB(250, 0, 0)
Case "vert"
.Color = RGB(0, 100, 0)
Case "orange"
.Color = RGB(255, 191, 0)
Case "bleu"
.ColorIndex = 55
Case "marron"
.ColorIndex = 9
Case "noir"
.Color = RGB(0, 0, 0)
End Select
End With
mais quand cette "sub" elle ne marque un message d'erreur : "erreur de syntaxe"
par exemple,
Sub affectepolice()
police(range("NAMEbis"), True, 13, "noir")
end sub
où NAMEbis est une partie d'une colonne
Pouvez vous m'aider?