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
Dim oEvents As New Classe1
Dans le module de Classe1
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 +
Partager