Ce tutoriel montrera comment formater des cellules en utilisant VBA.
Formatage des cellules
De nombreuses propriétés peuvent être définies pour une (plage de) cellules comme celle-ci :
| 1234567891011 | Sous-ensembleCellFormat()Avec des feuilles de calcul("Feuille1").Plage("B5:C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Italique".NumberFormat = "Général".Intérieur.Couleur = RVB (128, 100, 250)Terminer parFin du sous-marin |
Voyons-les par ordre alphabétique :
AjouterRetrait
En définissant la valeur de cette propriété sur True, le texte sera automatiquement mis en retrait lorsque l'alignement du texte dans la cellule est défini, horizontalement ou verticalement, sur une distribution égale (voir HorizontalAlignment et VerticalAlignment).
| 12345 | Avec des feuilles de calcul("Feuille1").Plage("A1").Orientation = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueTerminer par |
Limites
Vous pouvez définir le format de bordure d'une cellule. Voir ici pour plus d'informations sur les frontières.
À titre d'exemple, vous pouvez définir une ligne pointillée rouge autour de la cellule B2 sur la feuille 1 comme ceci :
| 1 | Worksheets("Sheet1").Range("B2").BorderAround LineStyle:=xlDash, ColorIndex:=3 |
Police de caractère
Vous pouvez ajuster le format de police de la cellule en définissant le nom de la police, le style, la taille, la couleur, en ajoutant des soulignements et/ou des effets (barré, indice ou exposant). Voir ici pour plus d'informations sur les polices de cellules.
Voici quelques exemples:
| 12345 | Avec plage ("A1:C5"). Police.Nom = "Siècle".FontStyle = "Gras".Barré = VraiTerminer par |
FormuleCachée
Cette propriété renvoie ou définit une valeur de variante qui indique si la formule sera masquée lorsque la feuille de calcul est protégée. Par exemple:
| 1 | Worksheets("Sheet1").Range("A1:B1").FormulaHidden = True |
Alignement Horizontal
Cette propriété de format de cellule renvoie ou définit une valeur de variante qui représente l'alignement horizontal de l'objet spécifié. Les constantes renvoyées ou définies peuvent être : xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Par exemple:
| 1 | Worksheets("Sheet1").Range("D3").HorizontalAlignment = xlRight |
IndentLevel
Elle renvoie ou définit une valeur entière comprise entre 0 et 15 qui représente le niveau de retrait de la cellule ou de la plage.
| 1 | Feuilles de calcul("Feuille1").Range("A1").IndentLevel = 7 |
Intérieur
Vous pouvez définir ou obtenir des informations renvoyées sur l'intérieur de la cellule : sa couleur, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, comme ceci :
| 123 | If Not Range ("A1").Interior.ThemeColor = ThemeColorLight2 ThenRange("A1").Intérieur.Pattern = xlPatternUpFin si |
Fermé à clé
Cette propriété renvoie True si la cellule ou la plage est verrouillée, False si l'objet peut être modifié lorsque la feuille est protégée ou Null si la plage spécifiée contient à la fois des cellules verrouillées et déverrouillées. Il peut également être utilisé pour verrouiller ou déverrouiller des cellules.
Cet exemple déverrouille les cellules A1:B2 sur Sheet1 afin qu'elles puissent être modifiées lorsque la feuille est protégée.
| 12 | Worksheets("Sheet1").Range("A1:B2").Verrouillé = FalseFeuilles de calcul ("Feuille1").Protéger |
Fusionner des cellules
Définissez cette propriété sur True si vous devez fusionner une plage. Sa valeur obtient True si une plage spécifiée contient des cellules fusionnées. Par exemple, si vous devez fusionner la plage de C5:D7, vous pouvez utiliser ce code :
| 1 | Worksheets("Sheet1").Range("C5:D7").MergeCells = True |
Format de nombre
Vous pouvez définir le format des nombres dans les cellules sur Général, Nombre, Devise, Comptabilité, Date, Heure, Pourcentage, Fraction, Scientifique, Texte, Spécial et Personnalisé.
Voici des exemples de formats de nombres scientifiques et de pourcentages :
| 12 | Plage ("A1").NumberFormat = "0.00E+00"Plage ("B1").NumberFormat = "0,00%" |
NuméroFormatLocal
Cette propriété renvoie ou définit une valeur de variante qui représente le code de format de l'objet sous forme de chaîne dans la langue de l'utilisateur.
Orientation
Vous pouvez définir (ou obtenir le retour) l'orientation du texte dans la ou les cellules par cette propriété. Sa valeur peut être l'une de ces constantes : xlDownward, xlHorizontal, xlUpward, xlVertical ou une valeur entière de -90 à 90 degrés.
| 1 | Feuilles de calcul("Feuille1").Plage("A1").Orientation = -60 |
Parent
Il s'agit d'une propriété en lecture seule qui renvoie l'objet parent d'un objet spécifié.
RétrécirPourAjuster
Cette propriété renvoie ou définit une valeur de variante qui indique si le texte se rétrécit automatiquement pour s'adapter à la largeur de colonne disponible.
| 1 | Worksheets("Sheet1").Range("A1").ShrinkToFit = True |
Alignement vertical
Cette propriété de format de cellule renvoie ou définit une valeur de variante qui représente l'alignement vertical de l'objet spécifié. Les constantes renvoyées ou définies peuvent être : xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Par exemple:
| 1 | Worksheets("Sheet1").Range("A1").VerticalAlignment = xlTop |
WrapText
Cette propriété renvoie True si le texte est encapsulé dans toutes les cellules de la plage spécifiée, False si le texte n'est pas encapsulé dans toutes les cellules de la plage spécifiée ou Null si la plage spécifiée contient des cellules qui encapsulent du texte et d'autres cellules qui ne le font pas.
Par exemple, si vous avez cette plage de cellules :
ce code ci-dessous renverra Null dans la fenêtre immédiate :
| 1 | ?Worksheets("Sheet1").Range("A1:B1").WrapText |
