Partager via

Objet cell (Word)

  • Article

Cet objet représente une cellule de tableau. L’objet Cell est membre de la collection Cells . La collection Cells représente toutes les cellules de l’objet spécifié.

Remarques

Utilisez Cellule (ligne, colonne), où row est le numéro de ligne et column est le numéro de colonne, ou Cells (index), où index est le numéro d’index, pour renvoyer un objet Cell . L'exemple suivant montre comment appliquer une trame de fond à la deuxième cellule de la première ligne.

Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2) 
myCell.Shading.Texture = wdTexture20Percent

L'exemple suivant montre comment appliquer une trame de fond à la première cellule de la première ligne.

ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _ 
 .Texture = wdTexture20Percent

Utilisez la méthode Add pour ajouter un objet Cell à la collection Cells . Vous pouvez également utiliser la méthode InsertCells de l'objet Selection pour insérer de nouvelles cellules. L'exemple suivant montre comment ajouter une cellule avant la première cellule de myTable.

Set myTable = ActiveDocument.Tables(1) 
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)

L’exemple suivant définit une plage ( myRange ) qui référence les deux premières cellules du premier tableau. Une fois la plage définie, les cellules sont combinées par la méthode Merge.

Set myTable = ActiveDocument.Tables(1) 
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _ 
 .Range.Start, myTable.Cell(1, 2).Range.End) 
myRange.Cells.Merge

Remarques

Utilisez la méthode Add avec la collection Rows ou Columns pour ajouter une ligne ou une colonne de cellules.

Utilisez la propriété Information avec un objet Selection pour renvoyer la ligne et le numéro de colonne actuels. L'exemple suivant montre comment modifier la largeur de la première cellule de la sélection et afficher le numéro de la ligne et de la colonne de la cellule.

If Selection.Information(wdWithInTable) = True Then 
 With Selection 
 .Cells(1).Width = 22 
 MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _ 
 & "," & .Information(wdStartOfRangeColumnNumber) 
 End With 
End If

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.