[WD-2010] Appliquer une couleur à la trame de fond à la cellule sélectionnée d’un tableau

[modus57]

Bonjour

Comment appliquer une couleur à la trame de fond à la cellule sélectionnée d’un tableau.

J’utilise le principe suivant mais ça ne fonctionne pas :

Dans ThisDocument

Code :

Dim oEvents As New Classe1

Dans le module de Classe1

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public WithEvents App As Word.Application
 
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
Dim w As Range
 For Each w In ActiveDocument.Words
  If w.Shading.BackgroundPatternColor = 49407 Then
    w.Shading.Texture = wdTextureNone
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Shading.BackgroundPatternColor = 49407
  End If
 Next
End Sub

Un petit peu d’aide SVP.

Cordiales salutations

A +

[Heureux-oli]

Salut,

il faut adresser une cellule et pas une sélection.

Code :

ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColor = wdColorAqua