1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

MFC via macro, là je cale...

Discussion dans 'Forum Excel' démarrée par Infp, 9 Janvier 2019.

  1. Infp

    Infp XLDnaute Nouveau

    Inscrit depuis le :
    9 Janvier 2019
    Messages :
    1
    "J'aime" reçus :
    0
    Bonjour à tous,

    j'ai crée une macro via l'enregistreur de macro pour faire (entre autre) une mise en forme conditionnelle sur le fichier sample.csv joint.
    Cette macro fait la chose suivante :
    1) Elle "freeze les panes" en C2 -> OK !
    2) (C'est cette partie qui foire), elle parcourt un certain nombre de colonnes et si une des colonnes parcourues contient autre chose que 0 alors elle colore en rouge la première cellule de la colonne en question (les cellules dans lesquelles se trouvent item x)
    3) Elle fait de la cellule AV1 la cellule active -> OK !

    Le 2) ne fonctionne pas MAIS, après avoir exécuté la macro, lorsque je me place en S1 par exemple (1ere cellule d'une des colonnes parcourues), la règle de mise en forme conditionnelle est bien présente. Il semblerait juste qu'elle ne soit pas exécutée et je ne comprends pas pourquoi.

    Je vous joins le code de la macro (qui au fait est enregistrée dans "Classeur de macros personnelles" sur mon PC) ainsi que le fichier sample.zip qui contient le fichier sample.csv.

    D'avance merci pour votre aide.
    Ben.

    Code (Visual Basic):
    Sub SCAN()
    '
    ' SCAN Macro
    '
    ' Touche de raccourci du clavier: Ctrl+s
    '
        Range("C2").Select
        ActiveWindow.FreezePanes = True
        Range("U1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($U$2:$U$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("S1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($S$2:$S$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("K1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=""ou($K$2:$K$1000 <> 0)"""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("AI1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($AI$2:$AI$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("AP1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($AP$2:$AP$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("AV1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($AV$2:$AV$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("AX1").Select
        Columns("B:B").ColumnWidth = 28.57
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($AX$2:$AX$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("BC1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($BC$2:$BC$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("BK1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($BK$2:$BK$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("BO1").Select
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OU($BO$2:$BO$1000 <> 0)"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).StopIfTrue = False
        Range("AV1").Select
    End Sub
     

    Pièces jointes:

    • sample.zip
      Taille du fichier:
      1.8 Ko
      Affichages:
      4
  2. Chargement...

    Discussions similaires - MFC via macro Forum Date
    Problème de MFC via macro Forum Excel 20 Décembre 2012
    XL 2010 Faire total via MFC Forum Excel 29 Octobre 2018
    XL 2016 diagramme de gantt via MFC Forum Excel 9 Avril 2018
    XL 2010 MFC via VBA - Erreur d'exécution '5' parfois Forum Excel 4 Février 2017
    Comptabilisé cellule de couleur via MFC Forum Excel 11 Mars 2015

Partager cette page