Microsoft 365 Colorer les Lignes coller

  • Initiateur de la discussion Initiateur de la discussion bd.afaf
  • Date de dĂ©but Date de dĂ©but

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnĂ©s oĂč l'entraide fait la force. Apprenez, Ă©changez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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.
 
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
 
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.
 
- Navigue sans publicité
- AccÚde à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 colorer une plage
RĂ©ponses
2
Affichages
827
RĂ©ponses
12
Affichages
562
RĂ©ponses
0
Affichages
579
RĂ©ponses
5
Affichages
379
  • Question Question
Microsoft 365 2 macros de copie
RĂ©ponses
9
Affichages
1 K
RĂ©ponses
4
Affichages
510
RĂ©ponses
33
Affichages
1 K
RĂ©ponses
4
Affichages
400
RĂ©ponses
3
Affichages
846
Retour