Bonjour,

Je suis débutante en VBA et je souhaite sélectionner tous les tableaux d'un document Word, pour leur appliquer une mise en forme similaire
Il y en a plus de 200 donc je voudrais éviter de les faire un à un.
Voici le code que j'ai tapé mais ce code ne sélectionne que le dernier tableau; Y a t'il une fonction qui permettrait de stocker la sélection ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
NomTableau = Array("", "Références1", "Références2", "Synthèse")
NbreTableau = ActiveDocument.Tables.Count
For i = 1 To NbreTableau
    With ActiveDocument.Tables(i)
    .Select
    End With
    Next
End Sub
Merci beaucoup pour votre aide!http://www.developpez.net/forums/ima...lies/ccool.gif