Microsoft 365 colorer une plage

Créer une discussion
Répondre
  • 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 !

S'inscrire
B

bd.afaf

XLDnaute Junior
Bonjour Forums;

je sais pas pourquoi on me colore toujours les cellules de la colonne janvier, je veux que le tint s'arrête dans la fin des données de janvier.

les colonnes en rose concernent les comptes de janvier Macro 1 ( de B2 jusqu'à B9 )

les colonnes en bleu concernent les comptes de février Macro 2 ' de A11 j'jusqu'à A17 , et D11 jusqu'à D17 )

du coup faut pas que j'aie les cellules au delà de B10 coloréé en Rose,

Voici la macro 1 de janvier e macro 2 de Février

elles contiennent un code d'un travail, où il y'a une partie de mise en forme (couleur) des colonnes .

PS: je veux ajouter le fichier ou l'image pour vous montrer le problème sur excel mais lors la copie dans la discussion on m'affiche " service indisponible"
VB: 
Sub JANV()
'
' Macro3 Macro
'
'Synchronisation des anciens soldes et remonté des nouveaux soldes
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE)),""Régulariser"",VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE))"
        Range("Tableau1[janvier]").Select

   'copie coller de la formule
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'tri sur nouveau compte

 Dim nR As Long, kR As Long
      Sheets("Mois").Select
            ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10, Criteria1:= _
        "Nouveau Compte"

     'Affectation des comptes et soldes vers les colonnes concernées
    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 + 0, 1)
    [Tableau16].Columns(8).Copy [Tableau1].Cells(kR + 0, 2)

    With Range([Tableau1].Cells(kR + 0, 2), [Tableau1].Cells(kR + nR, 2)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0

    Worksheets("Tableau des écarts").Select
 Sheets("Mois").Select
    ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10
    Sheets("Tableau des écarts").Select
 End With

End Sub
Code:




Capture.PNG

Code: 
Sub FEV()
'
' Macro3 Macro  VERIFIER
'
'Synchronisation des nouveaux écarts des anciens comptes dans le mois présents
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE)),""Régulariser"",VLOOKUP([@Comptes],Tableau16[[N° de Compte]:[différence]],6,FALSE))"
        Range("Tableau1[Février]").Select

  'Mise en forme
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Régulariser"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

  'copie coller fevrier

    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'tri sur nouveau compte

 Dim nR As Long, kR As Long
      Sheets("Mois").Select
            ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10, Criteria1:= _
        "Nouveau Compte"

    'remonté des nouveaux comptes récement apparus dans le mois présent avec la même couleur que la cellule du mois
    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)
    [Tableau16].Columns(8).Copy [Tableau1].Cells(kR + 1, 4)
    With Range([Tableau1].Cells(kR + 1, 1), [Tableau1].Cells(kR + nR, 1)).Interior
        .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0

    With Range([Tableau1].Cells(kR + 1, 4), [Tableau1].Cells(kR + nR, 4)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0

    Worksheets("Tableau des écarts").Select
 Sheets("Mois").Select
    ActiveSheet.ListObjects("Tableau16").Range.AutoFilter Field:=10
    Sheets("Tableau des écarts").Select
 End With
 End With

 'distinguer les comptes récemment traité (ex: compte en janvier traité en février ) et ceux qui ont été traité plus d'un mois ( compte en décembre traité en janvier, doit apparaitre comme "déja traité" en février)

 Dim I As Integer
Dim Airejanvier As Range, AireFévrier As Range

    Set Airejanvier = Range("Tableau1[janvier]")
    Set AireFévrier = Range("Tableau1[Février]")
          'les comptes régulariser dans janvier === deja régulariser dans février
    For I = 1 To Airejanvier.Count
        If Airejanvier(I) = "Régulariser" And AireFévrier(I) = "Régulariser" Then
           AireFévrier(I) = "Déjà régulariser"
        End If

    Next I
' couleur déja traité
    With AireFévrier
         .FormatConditions.Add Type:=xlExpression, Formula1:="=D2=""Déjà régulariser"""
         .FormatConditions(.FormatConditions.Count).SetFirstPriority
         With .FormatConditions(1).Font
              .ThemeColor = xlThemeColorAccent6
              .TintAndShade = -0.249946592608417
         End With
         With .FormatConditions(1).Interior
              .PatternColorIndex = xlAutomatic
              .ThemeColor = xlThemeColorAccent6
              .TintAndShade = 0.599963377788629
         End With
        .FormatConditions(1).StopIfTrue = False
    End With

'''''les comptes deja régulariser dans janvier === deja régulariser dans février
  '
  '
  For I = 1 To AireFévrier.Count
        If Airejanvier(I) = "Déjà régulariser" And AireFévrier(I) = "Régulariser" Then
           AireFévrier(I) = "Déjà régulariser"
        End If
    Next I

' couleur déja traité

      With AireFévrier
         .FormatConditions.Add Type:=xlExpression, Formula1:="=D2=""Déjà régulariser"""
         .FormatConditions(.FormatConditions.Count).SetFirstPriority
         With .FormatConditions(1).Font
              .ThemeColor = xlThemeColorAccent6
              .TintAndShade = -0.249946592608417
         End With
         With .FormatConditions(1).Interior
              .PatternColorIndex = xlAutomatic
              .ThemeColor = xlThemeColorAccent6
              .TintAndShade = 0.599963377788629
         End With
        .FormatConditions(1).StopIfTrue = False
    End With
    Set Airejanvier = Nothing: Set AireFévrier = Nothing

End Sub
Code:
 
Trier par date Trier par votes
Bonjour Bd.ataf, bonjour le forum,

Pas sûr d'avoir bien tout compris... Essaie ce petit bout de code :
VB: 
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TS As ListObject 'déclare la variable TS (Tableau Structuré)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim R As Range 'déclare la variable R (Recherche)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim PL As Range 'déclare la variable PL (PLAge)

Set O = Worksheets("Mois") 'définit l'onglet O
Set TS = O.ListObjects("Tableau1") 'définit le tableau structuré TS
COL = TS.HeaderRowRange.Find("janvier", , xlValues, xlWhole).Column 'récupère la colonne COL
Set R = TS.DataBodyRange.Columns(COL).Find("") 'définit la recherche R (Recherche du vide dans la colonne COL)
If R Is Nothing Then 'condition : 'si aucune occurrence n'est trouvée
    Set PL = TS.DataBodyRange.Columns(COL) 'définit la plage PL (les données de la colonne entière)
Else 'sinon
    LI = R.Row - TS.HeaderRowRange.Row - 1 'définit la ligne LI
    Set PL = Range(TS.DataBodyRange(1, COL), TS.DataBodyRange(LI, COL)) 'définit la plage PL
End If 'fin de la condition
With PL.Interior 'prend en compte la plage PL
    'coloration
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.599993896298105
    .PatternTintAndShade = 0
End With 'fin de la prise enc compte de la plage PL
End Sub
 
Vote positif 0 Vote négatif
Bonjour,

je craint que t'a mal compris le problème, je t'explique autrement/.

je colle les données de janvier avec une mise en forme ROSE dans les colonnes A et D

Lorsque je colle les données de février avec une mise en forme BLEU dans les colonnes A et F, la mise en forme de la colonne D qui est en rose est toujours activé .


Voici le problème dans l'image 1: lors le collage des données en février ( A et D ), même la mise en forme de la couleur de la colonne janvier ( B ) est activé .


prob.PNG




Voici le tableau que je souhaite avoir :
solution.PNG


Merci pour votre attention
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
310
MOLY_
M
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
469
Dranreb
Dranreb
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
696
TooFatBoy
TooFatBoy
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
337
Electron24
Electron24
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
412
AtTheOne
AtTheOne
dindin
  • Question Question
XL 2016 simplifier une macro enregistrée
Réponses
8
Affichages
789
dindin
dindin
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
542
vgendron
vgendron
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
938
tnion
T
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
154
vazvaz
V
R
  • Question Question
XL 2019 Transpose et limiter nombre de valeur
Réponses
1
Affichages
414
Rabeto
R
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
1 K
jurassic pork
jurassic pork
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
751
shf
S
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
585
patricktoulon
patricktoulon
Nadou69
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
729
Nadou69
Nadou69
B
  • Question Question
Microsoft 365 Colorer les Lignes coller
Réponses
4
Affichages
911
bd.afaf
B
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
344
MICHIS
M
Retour