Colorer les colonnes coller

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

Bonjour,

Merci de bien vouloir cloturer tous vos fils ouverts et donner une petite réponse à ceux qui vous propose quelque chose et/ou attendent votre retour.

Vos fils sont ici --> https://forum.excel-pratique.com/membre/99888

La demande ici ressemble étrangement à celle ci (hormis les couleurs)--> https://forum.excel-pratique.com/excel/repetition-de-la-macro-sur-la-cellule-selectionner-170236

Autre chose, lorsque vous postez un code veillez à utiliser les balises de code. cliquez sur l'icone </> et coller votre code dans la fenêtre

Si vous ne l'avez pas encore fait pensez à lire ces quelques lignes qui seront utiles dans vos demandes et réponse
- https://forum.excel-pratique.com/forum/infos-fonctionnalites-sur-le-nouveau-forum-139662
- https://forum.excel-pratique.com/excel/a-lire-avant-de-poster-charte-du-forum-et-informations-utiles...

Merci de votre participation

Crdlt

Bonjour Dan,

en effet la première question je voulais avoir un bouton qui me répète à chaque fois la macro, et il fallait juste insérer le bouton de contrôle,

par contre la question sur ce forum c'est colorer les colonnes coller, donc aucune relation avec la première question

Merci

exemple code:

nR = [Tableau16].Columns(1).SpecialCells(xlCellTypeVisible).Count '--- nb de lignes visibles du Tableau16 après filtrage
    kR = [Tableau1].Rows.Count                                       '--- nb de lignes dans Tableau1
'colonnes coller
    [Tableau16].Columns(2).Copy [Tableau1].Cells(kR + 0, 3)
    [Tableau16].Columns(8).Copy [Tableau1].Cells(kR + 0, 4)
'couleur
    With Range([Tableau1].Cells(kR + 0, 1), [Tableau1].Cells(kR + nR, 1)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0

[Tableau16].Columns(8).Copy [Tableau1].Cells(kR + 0, 4)

With Range([Tableau1].Cells(kR + 0, 1), [Tableau1].Cells(kR + nR, 1)).Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent2

.TintAndShade = 0.599993896298105

.PatternTintAndShade = 0

Bonjour,

Le fil est cloturé ou toujours à regarder ?
Si à faire,

Cordialement

Bonjour Dan,

Non c'est clôturé, j'ai posté une solution qui a marché pour mon fichier.

Merci