5 méthodes pour appliquer rapidement la couleur de remplissage d'une cellule de tableau à l'ensemble de la ligne, de la colonne ou du tableau

Dans cet article, nous vous proposerons cinq méthodes pour appliquer rapidement la couleur de remplissage d'une cellule de tableau à l'ensemble de la ligne, de la colonne ou du tableau.

Vous remarquerez peut-être que lorsque vous copiez une cellule de tableau dans Word, vous n'obtenez que le contenu de la cellule, mais jamais la couleur de remplissage. Par conséquent, nous souhaitons vous montrer cinq solutions de contournement pour résoudre ce problème.    

Méthode 1 : obtenir manuellement la valeur RVB de la cellule du tableau

1. Tout d'abord, sélectionnez la cellule dont vous devez obtenir la couleur de remplissage.
2. Cliquez ensuite sur l'onglet "Conception".
3. Trouvez la commande sous "Shading" et cliquez sur le bouton déroulant de cette commande.
4. Dans le menu, choisissez "Borders and Shading" pour ouvrir la boîte de dialogue du même nom.
5. Ensuite, dans la boîte ouverte, cliquez sur l'onglet "Shading".
6. Allez dans le champ "Remplir" et cliquez sur le bouton déroulant.
7. Et sélectionnez "Plus de couleurs" pour ouvrir la boîte "Couleurs".
8. Choisissez "RVB" pour le champ "Modèle de couleur". Obtenez la valeur RVB ci-dessous.
9. Fermez ensuite toutes les cases et placez le curseur dans la cellule cible. Vous pouvez également sélectionner plusieurs cellules, lignes, colonnes ou même le tableau entier.
10. Et cliquez sur le bouton déroulant de la commande « Ombrage » pour sélectionner « Plus de couleurs ».
11. Entrez la valeur RVB sous l'onglet "Personnalisé" et cliquez sur "OK".

Méthode 2 : Ouvrir le volet "Révéler la mise en forme"

L'idée est similaire : obtenir la valeur RGB puis l'appliquer aux cellules, lignes, colonnes ou à l'ensemble du tableau cibles.

1. Tout d'abord, placez le pointeur d'insertion à l'intérieur de la cellule remplie.
2. Appuyez ensuite sur "Maj + F1" pour ouvrir le volet "Révéler le formatage". Et vous pourrez voir la valeur RVB de la cellule dans la section "Shading".
3. Suivez les étapes 9 à 11 de la méthode 1.

Méthode 3: appliquer la couleur de remplissage d'une cellule à l'ensemble du tableau via VBA

Comme le sous-titre le suggère, voici le moyen d'unir toute la table en une seule couleur.

1. Pour commencer, positionnez le pointeur d'insertion à l'intérieur d'une cellule colorée.
2. Appuyez sur "Alt + F11" pour lancer l'éditeur VBA.
3. Cliquez ensuite sur le projet "Normal" et cliquez sur l'onglet "Insérer".
4. Ensuite, choisissez "Module" dans ce menu.
5. Ouvrez-le par double-clic.
6. Et collez-y les codes suivants :

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

7. Enfin, cliquez sur "Exécuter" ou appuyez sur "F5".

Méthode 4: appliquer la couleur de remplissage d'une cellule à toute la ligne via VBA

1. Au début, placez le curseur à l'intérieur d'une cellule.
2. Ensuite, installez et exécutez une macro en suivant exactement les mêmes étapes que dans la méthode 3.
3. Remplacez ensuite les codes ci-dessus par ceux-ci :

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Méthode 5: appliquer la couleur de remplissage d'une cellule à toute la colonne via VBA

1. Probablement, placez d'abord le curseur dans une cellule.
2. Ensuite, installez et exécutez correctement une macro.
3. Remplacez la macro par celle-ci :

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Gérer les problèmes de mots

Il y a et il y aura toujours des problèmes dans le processus d'utilisation de Word. Il est donc bien nécessaire d'apprendre la bonne astuce pour faire face à tous ces problèmes ennuyeux. L'une des mesures que vous devez prendre est de vous procurer un Correction de mot outil à l'avance. Ensuite, vous ne serez pas paniqué une fois qu'un document est corrompu.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com