Classe Cell (Word VBA)

Cet objet représente une cellule de tableau.

Les procédures principales de la classe Cell sont Delete, Select, Cells.Add et Cells.Delete

Set

Pour utiliser une variable de classe Cell, elle doit d'abord être instanciée, par exemple

Dim cll as Cell
Set cll = Selection.Cells(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Cell : Next, Previous, Cells.Add, Cells.Item, Table.Cell, Column.Cells, Range.Cells, Revision.Cells, Row.Cells et Selection.Cells

For Each

Voici un exemple de traitement des éléments Cell dans une collection

Dim cll As Cell
For Each cll In Selection.Cells
 If cellLoop.ColumnIndex Mod 2 = 0 Then cellLoop.Column.Shading.Texture = wdTexture10Percent 
Next cll

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Column with its procedures Column et ColumnIndex
Row with its procedures Row et RowIndex

Méthodes

Les méthodes principales de la classe Cell sont

Delete - Supprime une ou plusieurs cellules d’un tableau et contrôle éventuellement le décalage des cellules restantes.

Selection.Cells(1).Delete

Select - Sélectionne l'objet spécifié.

Selection.Cells(1).Select

Cells.Add - Renvoie un objet Cell qui représente une cellule ajoutée à un tableau.

Dim cll As Cell
Set cll = Selection.Cells.Add()

Cells.Delete - Supprime une ou plusieurs cellules d’un tableau et contrôle éventuellement le décalage des cellules restantes.

Selection.Cells.Delete

Autre Méthodes

Formula - Insère dans une cellule de tableau un champ = (Formula) qui contient la formule spécifiée.

Selection.Cells(1).Formula

SetHeight - Dans un tableau, définit la hauteur des cellules.

Dim lngRowHeight As Long: lngRowHeight =  
Selection.Cells(1).SetHeight RowHeight:=lngRowHeight, HeightRule:=wdRowHeightAtLeast

SetWidth - Définit la largeur des colonnes ou des cellules d'un tableau.

Selection.Cells(1).SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Split - Scinde une cellule de tableau en plusieurs cellules distinctes.

Selection.Cells(1).Split

Cells.SetHeight - Dans un tableau, définit la hauteur des cellules.

Dim lngRowHeight As Long: lngRowHeight =  
Selection.Cells.SetHeight RowHeight:=lngRowHeight, HeightRule:=wdRowHeightAtLeast

Cells.SetWidth - Définit la largeur des colonnes ou des cellules d'un tableau.

Selection.Cells.SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Cells.Split - Scinde une plage de cellules de tableau.

Selection.Cells.Split

Propriétés

Borders Renvoie une collection Borders qui représente la totalité des bordures de l’objet spécifié.

Selection.Cells(1).Borders =

BottomPadding Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter sous le contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Selection.Cells(1).BottomPadding =

FitText La valeur true si Microsoft Word réduit visuellement la taille du texte tapé dans une cellule de sorte qu'elle corresponde à la largeur de la colonne.

Selection.Cells(1).FitText = True

Height Cette propriété renvoie ou définit la hauteur de la cellule de tableau spécifiée.

Selection.Cells(1).Height =

HeightRule Cette propriété renvoie ou définit une constante WdRowHeightRule qui représente la règle permettant de déterminer la hauteur des cellules ou des lignes spécifiées.

Selection.Cells(1).HeightRule = wdRowHeightAtLeast

ID Cette propriété renvoie ou définit l’étiquette d’identification de l’objet spécifié lorsque le document actif est enregistré en tant que page Web.

Selection.Cells(1).ID =

LeftPadding Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter à gauche du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Selection.Cells(1).LeftPadding =

NestingLevel Renvoie le niveau d'imbrication de la cellule spécifiée.

Dim lngNestingLevel As Long
lngNestingLevel = Selection.Cells(1).NestingLevel

Next Renvoie un objet Cell qui représente la cellule suivante du tableau dans la collection Cells.

Dim cllNext As Cell
Set cllNext = Selection.Cells(1).Next

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Cell spécifié.

Dim objParent As Object
Set objParent = Selection.Cells(1).Parent

PreferredWidth Cette propriété renvoie ou définit la largeur préférée (en points ou en pourcentage de la largeur de la fenêtre) pour la cellule spécifiée.

Selection.Cells(1).PreferredWidth =

PreferredWidthType Cette propriété renvoie ou définit l'unité de mesure préférée à utiliser pour la largeur de la cellule spécifiée.

Selection.Cells(1).PreferredWidthType = wdPreferredWidthAuto

Previous Renvoie un objet Cell qui représente la cellule précédente du tableau dans la collection Cells.

Dim cllPrevious As Cell
Set cllPrevious = Selection.Cells(1).Previous

Range Renvoie un objet Range qui représente la partie d'un document contenue dans l'objet spécifié.

Dim rngRange As Range
Set rngRange = Selection.Cells(1).Range

RightPadding Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter à droite du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Selection.Cells(1).RightPadding =

Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour l’objet spécifié.

Dim shdShading As Shading
Set shdShading = Selection.Cells(1).Shading

Tables Renvoie une collection tables qui représente tous les tableaux imbriqués à l’intérieur de la cellule de tableau spécifiée.

Dim tblsTables As Tables
Set tblsTables = Selection.Cells(1).Tables

TopPadding Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter au-dessus du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Selection.Cells(1).TopPadding =

VerticalAlignment Renvoie ou définit l’alignement vertical du texte dans une ou plusieurs cellules d’un tableau.

Selection.Cells(1).VerticalAlignment = wdCellAlignVerticalBottom

Width Cette propriété renvoie ou définit la largeur d'une cellule de tableau, exprimée en points.

Selection.Cells(1).Width =

WordWrap La valeur true si Microsoft Word ajuste le texte sur plusieurs lignes et agrandit la cellule afin que la largeur de la cellule reste identique.

Selection.Cells(1).WordWrap = True

Cells.Borders Renvoie une collection Borders qui représente la totalité des bordures de l’objet spécifié.

Selection.Cells.Borders =

Cells.Count Renvoie le nombre d'éléments dans la collection Cells.

Dim lngCount As Long
lngCount = Selection.Cells.Count

Cells.Height Cette propriété renvoie ou définit la hauteur des cellules du tableau spécifié.

Selection.Cells.Height =

Cells.HeightRule Cette propriété renvoie ou définit une constante WdRowHeightRule qui représente la règle pour déterminer la hauteur des cellules spécifiées.

Selection.Cells.HeightRule = wdRowHeightAtLeast

Cells.NestingLevel Renvoie le niveau d'imbrication des cellules spécifiées.

Dim lngNestingLevel As Long
lngNestingLevel = Selection.Cells.NestingLevel

Cells.Parent Renvoie un Object qui représente l'objet parent de l'objet Cells spécifié.

Dim objParent As Object
Set objParent = Selection.Cells.Parent

Cells.PreferredWidth Cette propriété renvoie ou définit la largeur préférée (en points ou en pourcentage de la largeur de la fenêtre) pour les cellules spécifiées.

Selection.Cells.PreferredWidth =

Cells.PreferredWidthType Cette propriété renvoie ou définit l'unité de mesure préférée à utiliser pour la largeur des cellules spécifiées.

Selection.Cells.PreferredWidthType = wdPreferredWidthAuto

Cells.Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour l’objet spécifié.

Dim shdShading As Shading
Set shdShading = Selection.Cells.Shading

Cells.VerticalAlignment Renvoie ou définit l'alignement vertical du texte dans une ou plusieurs cellules d'un tableau.

Selection.Cells.VerticalAlignment = wdCellAlignVerticalBottom

Cells.Width Renvoie ou définit la largeur des cellules du tableau, exprimée en points.

Selection.Cells.Width =