Microsoft 365 Colorer les Lignes coller

[bd.afaf]

Bonjour Forum 😀,

Je veux qu'Excel me colore les lignes que je viens de coller sur une feuille, voici ma macro , Merci d'avance :

Sub Janvier2()
'
' Macro3 Macro
'

'
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE)),""Traité sans écarts"",VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE))"
Range("D2").Select
Range("Tableau1[Janvier]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D2").Select

'tri sur nouveau compte
Sheets("Mois").Select
ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10, Criteria1:= _
"Nouveau Compte"


'copie des deux colonnes
With [Tableau1]
[Tableau16].Columns(3).Copy .Cells(.Rows.Count + 1, 1)
[Tableau16].Columns(8).Copy .Cells(.Rows.Count + 1, 4)
If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
End With
End Sub

 

[st007]

selection.Interior.ColorIndex=5
selection.paste

 

[bd.afaf]

selection.Interior.ColorIndex=5
selection.paste

Bonjour,
ça marche pas bien pour mon code, on me donne un msg d'erreur sur cette ligne

et on me colore juste une seule colonne.

crdlt.

 

[st007]

bien sure, le selection, se réfère au range du tableau 1 que tu copies, pas aux colonnes 3 et 8 du tableau 6

    With Selection.Interior
        .Color = 255
    End With

et donc plutot

With [Tableau1]
[Tableau16].Columns(3).Copy .Cells(.Rows.Count + 1, 1)
[Tableau16].Columns(8).Copy .Cells(.Rows.Count + 1, 4)
If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
.Cells(.Rows.Count, 1).Interior.Color = 255
.Cells(.Rows.Count, 4).Interior.Color = 255
End With

 

[bd.afaf]

bien sure, le selection, se réfère au range du tableau 1 que tu copies, pas aux colonnes 3 et 8 du tableau 6

    With Selection.Interior
        .Color = 255
    End With

et donc plutot

With [Tableau1]
[Tableau16].Columns(3).Copy .Cells(.Rows.Count + 1, 1)
[Tableau16].Columns(8).Copy .Cells(.Rows.Count + 1, 4)
If Application.CountBlank(.Columns(1)) Then .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
.Cells(.Rows.Count, 1).Interior.Color = 255
.Cells(.Rows.Count, 4).Interior.Color = 255
End With

On me colore juste la cellule 1 et 4 de la premiere ligne des cellules coller.

Moi je veux qu'on me copie toute les lignes coller, dans ce cas se sont les lignes en rouge :

je dois avoir le résultat dessus.