[WD-2010] VBA - Erreur lors de la modification du style d'un tableau [Résolu]

[sunlover]

Bonjour,

J'ai, dans word, les OLEControls suivants:

Code :

1
2
StyleCb As Combobox '("Forms.Combobox.1")
LeftBorderCb As Combobox, RightBorderCb As Combobox, TopBorderCb As Combobox, BottomBorderCb As Combobox

Les combobox dont le nom contient border contiennent des styles de bordures, StyleCb contient des styles de tableaux uniquement.

J'ai aussi (extrait) :

Code :

1
2
3
4
Private Sub CommandButton1_Click()
    ActiveDocument.Tables(1).Cell(1,1).Borders(wdBorderTop).LineStyle = 
    TopBorderCb.Text
End Sub

Le bouton preview me permet donc, pour chaque BorderCb de prévisualiser en changeant le style de bordure de la cellule 1,1.

Là où les soucis commencent, c'est que je voudrais faire ceci :

Code :

1
2
3
4
5
Private Sub StyleCb_Change()
    If StyleCb.ListIndex <> - 1 Then 'Si le style est dans la liste
        ActiveDocument.Tables(1).Style = StyleCb.Text
    End If
End sub

J'ai une erreur qui dit : Style Method of table failed et je ne sais pas pourquoi.

J'ai essayé le même événement Change sur une StyleCb dans un autre document et pas de souci pour modifier les styles de tableaux, même avec une boucle for each sur une liste à partir de laquelle j'initialise la StyleCb.

Quelqu'un peut-il m'aider ? C'est un peu la galère...

[sunlover]

En mettant le code

Code :

ActiveDocument.Tables(1).Style = StyleCb.Text

dans un événement CommandButton_Click ça fonctionne sans problème.

Je ne sais pas pourquoi ça ne marche pas dans l'événement Change.

J'ai pourtant essayé :

Code :

Tables(1).Style = ActiveDocument.Styles(StyleCb.Text)

Si le style tenté lors de cette instruction était incorrect, j'aurais une erreur du genre "not in collection".