Macro VBA pour Modifier le Tableau des Couleurs

J'ai un document Word qui contient plusieurs tables. Je voudrais être en mesure de sélectionner la table (ou d'une cellule dans le tableau) et d'avoir chaque ligne de la table de couleur en alternant les couleurs. Jusqu'à présent, j'ai créé le code suivant:

Sub ColorTable()
    '
    ' ColorTable Macro
    ' Alternately colors cells.
    '
    Selection.Collapse Direction:=wdCollapseStart
    If Not Selection.Information(wdWithInTable) Then
          MsgBox "Can only run this within a table"
          Exit Sub
    End If
    Dim RowCount, i, count, ColCount As Integer
    RowCount = ActiveDocument.Tables(1).Rows.count
    i = 0
    ColCount = ActiveDocument.Tables(1).Columns.count
    For i = 1 To RowCount
        For count = 1 To ColCount
            Selection.Shading.BackgroundPatternColor = RGB(184, 204, 228)
            'light
            Selection.MoveRight Unit:=wdCharacter, count:=1
        Next count
        Selection.MoveDown Unit:=wdLine, count:=1
        For count = 1 To ColCount
            Selection.Shading.BackgroundPatternColor = RGB(219, 229, 241)
            'dark
            Selection.MoveRight Unit:=wdCharacter, count:=1
        Next count
    Next i
End Sub

La Macro s'exécute sans erreur, mais les changements de la cellule de couleurs en diagonale. Je suppose que le problème se trouve dans mes boucles for.

InformationsquelleAutor ale10ander | 2012-07-28
  1. 2
    With tblNew
  For i = 1 To .Rows.Count Step 2
    .Rows(i).Shading.Texture = wdTexture10Percent
       ' or
    .Rows(i).Shading.BackgroundPatternColor = RGB(219, 229, 241)
  Next
End With
    • Deux ans plus tard, et c'est sans doute une meilleure réponse. Merci!
    InformationsquelleAutor baltman
  2. 1

    Après plusieurs mois de ne pas penser à ce problème, j'ai trouvé la réponse.

    Sub colorTable()
Dim rowCount As Integer
Dim colCount As Integer
Dim count As Integer
Dim row, col As Integer
Selection.Collapse Direction:=wdCollapseStart
If Not Selection.Information(wdWithInTable) Then
MsgBox "Can only be run from a table"
Exit Sub
End If
rowCount = Selection.Tables(1).Rows.count - 1
colCount = Selection.Tables(1).Columns.count
row = 0
col = 0
While row < rowCount
count = 1
While col < colCount
Selection.Shading.BackgroundPatternColor = RGB(182, 204, 228)
If count < colCount Then
Selection.MoveRight unit:=wdCell, count:=1
count = count + 1
End If
col = col + 1
Wend
col = 0
If row = rowCount - 1 And rowCount Mod 2 = 1 Then
Exit Sub
End If
'dark
Selection.MoveRight unit:=wdCell, count:=1
count = 1
'For Each oCOl In Selection.Tables(1).Columns
While col < colCount
Selection.Shading.BackgroundPatternColor = RGB(219, 229, 241)
If count < colCount Then
Selection.MoveRight unit:=wdCell, count:=1
count = count + 1
End If
col = col + 1
Wend
row = row + 2
If row < rowCount Then
Selection.MoveRight unit:=wdCell, count:=1
End If
col = 0
Wend
End Sub

    Ce n'est probablement pas la meilleure méthode, j'ai juste une sorte de kludged ensemble, mais il fonctionne.
    J'espère que cela aide quelqu'un!

    InformationsquelleAutor ale10ander
  3. 0

    Je n'ai pas encore testé, mais je pense que vous obtenez l'idée principale

    Sub ColorTable()
Dim RowCount as Integer,s as String, row as Integer, ColCount As Integer
RowCount = ActiveDocument.Tables(1).Rows.count
ColCount = ActiveDocument.Tables(1).Columns.count
For row = 1 To RowCount
s=replace(Cell(row,1).Address,"$","")
s=s & ":" & replace(Cell(row,ColCount).Address,"$","")
Range(s).Shading.BackgroundPatternColor = iif(row mod 2 =0,RGB(184, 204, 228),RGB(219, 229, 241))
Next count
Next row
End Sub
    • OUPS, je pensais que le code a été pour excel-vba. mais vous pouvez toujours utiliser la fonction IIF principe.
    • Merci pour la réponse rapide! D'être familier avec VBA en dehors d'excel, je ne suis vraiment pas sûr de savoir comment transposer ce code fonctionne dans les tableaux Word. Toute aide?
    InformationsquelleAutor Uri Goren