[vba] fonction "police"

  • Auteur de la discussion badboy9312
  • Date de début
Statut
N'est pas ouverte pour d'autres réponses.

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?
 

rafkinen

Nouveau membre
Salut Badboy,
Pour appeler ta fonction "police" il est nécessaire que tu place "call" devant

par exemple,
Sub affectepolice()
Call police(range("NAMEbis"), True, 13, "noir")
end sub

où "NAMEbis" fait référence à une cellule au même titre qu'un "A1"

J'espère avoir répondue à ta question.

Bon courage
 

zeb

Modérateur
Personne ne veut faire d'effort sur ce sujet : ON FERME
 
Statut
N'est pas ouverte pour d'autres réponses.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 055
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut