Discussion :

[Fleuris22]

Bonjour Forum 😀,

je sollicite votre aide pour le problème suivant, Je cherche une macro qui dit à Excel de colorer les lignes que je viens de coller sur une feuille, voici ma macro , Merci d'avance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

[EricDgn]

Bonjour,

Un petit exemple de solution pour colorer ce qui vient d'être copié d'un tableau sur l'autre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Macro1()
    Dim nR As Long, kR As Long
    Worksheets("Feuil2").Select
    ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=1, Criteria1:="<1"
    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
    [Tableau16].Columns(3).Copy [Tableau1].Cells(kR + 1, 1)
    With Range([Tableau1].Cells(kR + 1, 1), [Tableau1].Cells(kR + nR, 1)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Worksheets("Feuil1").Select
End Sub

... à compléter/adapter à votre cas.
Cordialement.

[Fleuris22]

bonjour,

Merci ça à marché,
mais j'aimerais bien préciser des couleurs personnel, comment je peux savoir le numéro d'une couleur sur excel ?

Cordialement.

[EricDgn]

Bonjour,

Le plus simple est de lancer l'enregistreur de macro et de colorer une cellule avec la couleur souhaitée. La macro enregistrée indiquera la valeur de la couleur.

Autre solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? activecell.Interior.color

Cordialement.