Microsoft 365 Colorer les Lignes coller

bd.afaf

XLDnaute Junior
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
 

bd.afaf

XLDnaute Junior
VB:
selection.Interior.ColorIndex=5
selection.paste
Bonjour,
ça marche pas bien pour mon code, on me donne un msg d'erreur sur cette ligne

21-04.PNG

et on me colore juste une seule colonne.

crdlt.
 

st007

XLDnaute Barbatruc
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
VB:
    With Selection.Interior
        .Color = 255
    End With
et donc plutot
Code:
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

XLDnaute Junior
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
VB:
    With Selection.Interior
        .Color = 255
    End With
et donc plutot
Code:
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.

21-04 3.PNG



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

je dois avoir le résultat dessus.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT