Police de cellule VBA
Dans VBA, vous pouvez modifier les propriétés de police à l'aide de la propriété de police VBA de l'objet Range. Tapez le code suivant dans l'éditeur VBA et vous verrez une liste de toutes les options disponibles :
| 1 | Plage("A1).Font. |
Nous allons discuter de quelques-unes des propriétés les plus courantes ci-dessous.
Changer la couleur de la police
Il existe plusieurs façons de définir les couleurs de police.
vbCouleur
Le moyen le plus simple de définir les couleurs est d'utiliser vbColors :
| 1 | Range ("a1").Font.Color = vbRed |
Cependant, vous êtes très limité en termes de couleurs disponibles. Voici les seules options disponibles :
Couleur - RVB
Vous pouvez également définir des couleurs basées sur RVB (Rouge Vert Bleu). Ici, vous entrez des valeurs de couleur comprises entre 0 et 255 pour le rouge, le vert et le bleu. En utilisant ces trois couleurs, vous pouvez créer n'importe quelle couleur :
| 1 | Plage("a1").Font.Couleur = RVB(255,255,0) |
IndexCouleur
VBA/Excel possède également une propriété ColorIndex. Cela met à votre disposition des couleurs prédéfinies. Cependant, ils sont stockés sous forme de numéros d'index, ce qui rend difficile de savoir de quelle couleur est quoi :
| 1 | Range("a1").Font.ColorIndex =… |
Nous avons écrit un article sur les codes de couleur VBA, y compris une liste des codes VBA ColorIndex. Là, vous pouvez en apprendre davantage sur les couleurs.
Taille de police
Cela définira la taille de la police sur 12 :
| 1 | Range ("a1").Font.Size = 12 |
ou jusqu'à 16 :
| 1 | Range("a1").Font.Size = 16 |
Caractère gras
Il est facile de définir une police de cellule en gras :
| 1 | Range ("A1").Font.Bold = True |
ou pour effacer la mise en forme en gras :
| 1 | Range ("A1").Font.Bold = False |
Nom de la police
Pour changer un nom de police, utilisez le Nom biens:
| 1 | Range ("A1").Font.Name = "Calibri" |
| 1 | Range ("A1").Font.Name = "Arial" |
| 1 | Range ("A1").Font.Name = "Times New Roman" |
Style de cellule
Excel offre la possibilité de créer des « Styles » de cellules. Les styles peuvent être trouvés dans le Ruban Accueil > Styles:
Les styles vous permettent d'enregistrer la mise en forme de cellule souhaitée. Attribuez ensuite ce style à une nouvelle cellule et toute la mise en forme de la cellule est instantanément appliquée. Y compris la taille de la police, la couleur de la cellule, l'état de la protection des cellules et tout ce qui est disponible dans le menu de mise en forme des cellules :
Personnellement, pour la plupart des modèles sur lesquels je travaille, je crée généralement un style de cellule « Input » :
| 1 | Plage("a1").Style = "Entrée" |
En utilisant des styles, vous pouvez également identifier facilement les types de cellules sur votre feuille de calcul. L'exemple ci-dessous va parcourir toutes les cellules de la feuille de calcul et changer n'importe quelle cellule avec Style = "Input" en "InputLocked":
| 1234567 | Dim Cell comme plagePour chaque cellule dans ActiveSheet.CellsSi Cell.Style = "Entrée" alorsCell.Style = "Entrée verrouillée"Fin siCellule suivante |
