Couleurs de mise en forme conditionnelle pas reproduite sur onglet de TRI

Bonjour,

En voulant améliorer mon fichier d'inventaire, je me suis aperçu que les couleurs de mes "Mise en forme conditionnelle" ne sont plus copié dans mon Onglet appelé "TRI". Tout cela est plus explicite sur le fichier.

Merci.

Bonjour,

il faut réécrire les formules des MFC.

Le code des MFC est dans le module 2, c'est la macro évènementielle dans "TRI" qui les appelle à tour de rôle.

Cdlt

Un grand merci pour votre aide.

Bonne journée.

Bonjour,

Je rencontre un petit problème quand j'injecte le code Vba dans mon Fichier inventaire complet. Sur votre fichier tout est Ok.

Erreur de compilation sub ou fonction non défini. Je ne comprend pas car mon fichier complet, à des Onglet en plus, mais les deux onglet TRi et Entrée-Sortie sont identique avec bien sur un inventaire complet...

J'ai testé en Mettant (' MFC_ColonneA) en argument. la copie réussi.

l y à un problème au niveaux de l'appel des MFC...

Merci

Attention, la macro évènementielle dans le module de la feuille "TRI" a aussi été modifiée, avez-vous pensé à le faire aussi dans votre fichier?

je joints ici toutes les macros:

****************************************************************************

macro dans le mule de la feuille "TRI":

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    [A5].CurrentRegion.Clear
    Sheets("Entrée - Sortie").[B7].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, copyToRange:=[A5]
    ActiveSheet.Range("A5:H5").AutoFilter
    MFC_ColonneA
    MFC_ColonneB
End Sub

*****************************************************************************

macros dans le module 2 standard:

Public DerLig As Long

Sub MFC_ColonneA()
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Range("A6:A" & DerLig).Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueNumber
    Selection.FormatConditions(1).ColorScaleCriteria(1).Value = 0
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValueNumber
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 1
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 16711680
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueNumber
    Selection.FormatConditions(1).ColorScaleCriteria(3).Value = 2
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 3407718
        .TintAndShade = 0
    End With
End Sub

Sub MFC_ColonneB()
    Range("B6:H" & DerLig).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESTNUM(CHERCHE(""sortie D3E"";$B6))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESTNUM(CHERCHE(""CASIER D3E"";$B6))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESTNUM(CHERCHE(""Stock"";$B6))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Cdlt

Un grand merci, j'avais totalement zappé cette deuxième Marco.

Merci beaucoup.