Erreur lors de l'accès à une ligne ou à une colonne de tableau

Lorsque vous tentez d'accéder à une ligne ou à une colonne d'un tableau, une erreur d'exécution risque de se produire si le tableau n'est pas uniforme. Par exemple, l'instruction ci-après génère une erreur si le nombre de lignes contenues dans le premier tableau du document actif varie selon les colonnes.

Sub RemoveTableBorders() 
 ActiveDocument.Tables(1).Rows(1).Borders.Enable = False 
End Sub

Vous pouvez éviter cette erreur en sélectionnant d'abord les cellules d'une colonne ou d'une ligne à l'aide de la méthode SelectColumn ou SelectRow. Une fois la sélection effectuée, utilisez la propriété Cells avec l'objet Selection. Cet exemple montre comment sélectionner la première ligne du premier tableau dans le document. La propriété Cells est utilisée pour accéder aux cellules sélectionnées (toutes les cellules de la première ligne) de sorte que les bordures puissent être supprimées.

Sub RemoveTableBorders() 
 ActiveDocument.Tables(1).Cell(1, 1).Select 
 With Selection 
 .SelectRow 
 .Cells.Borders.Enable = False 
 End With 
End Sub

Cet exemple montre comment sélectionner la première colonne du premier tableau dans le document. La boucle For Each...Next est utilisée pour ajouter du texte dans chacune des cellules de la sélection (toutes les cellules de la première colonne).

Sub AddTextToTableCells() 
 Dim intCell As Integer 
 Dim oCell As Cell 
 
 ActiveDocument.Tables(1).Cell(1, 1).Select 
 Selection.SelectColumn 
 intCell = 1 
 
 For Each oCell In Selection.Cells 
 oCell.Range.Text = "Cell " & intCell 
 intCell = intCell + 1 
 Next oCell 
End Sub

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.