Microsoft 365 Colorer les Lignes coller

bd.afaf · 20 Avril 2022

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 · 21 Avril 2022

VB:

selection.Interior.ColorIndex=5
selection.paste

bd.afaf · 21 Avril 2022

st007 à dit:
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

et on me colore juste une seule colonne.

crdlt.

st007 · 21 Avril 2022

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 · 21 Avril 2022

st007 à dit:

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.

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.

Microsoft 365 Colorer les Lignes coller

bd.afaf

XLDnaute Junior

st007

XLDnaute Barbatruc

bd.afaf

XLDnaute Junior

st007

XLDnaute Barbatruc

bd.afaf

XLDnaute Junior

Discussions similaires

Microsoft 365 Colorer les Lignes coller

bd.afaf

XLDnaute Junior

st007

XLDnaute Barbatruc

bd.afaf

XLDnaute Junior

st007

XLDnaute Barbatruc

bd.afaf

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency