Discussion :

[fhtazman]

Bonjour,

Je cherche une macro qui me permettrai de "lire" la mise en forme conditionnel de chaque cellule d'un tableau et de l'appliquer en mise en forme conventionnel...car je veux supprimer les formule qui le font la Mef conditionnel avant diffusion

Le problème aujourd'hui c'est que je ne sais pas faire la premiere parti de ma macro: "lire" la MeF Conditionnel...

Merci de votre aide

[tedo01]

Bonjour,
Les mises en forme conditionnelles sont stockées dans la collection FormatConditions de l'objet Range.

[fhtazman]

merci, j'avance un peu...

J'ai compris en essayant que

Code :

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

Range("A3").FormatConditions.Item(i)

me permettant de lire la condition i mais je ne trouve pas grand chose a lire a l'interieur... (genre la couleur donnée si lea condition est vrai...

tu pourrais m'en dire plus STP

[Godzestla]

Bonjour,

je te conseille de prendre une des cellules concernées en modif après avoir démarré l'enregistreur de macro. Tu vas dans le formattage conditionnel et tu changes (sans changer) ce qui t'intéresse. Ainsi tu verra le code à écrire. Easy non ?

Exemple chez moi

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
 
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Blackberry"""
    Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
    Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub

[fring]

Bonjour,

Easy non ?

non pas vraiment...

Code :

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

If Range("XX").FormatConditions.Count > 0 Then ...

me permettra de vérifier si la cellule contient une (ou plusieurs) mise en forme conditionnelle ou non mais ... comment récupérer les différents paramètres de ces mises en forme et comment déterminer les paramètres actifs ?

Je n'ai pas encore trouvé la réponse

[tedo01]

Re,

Pour trouver la description de la MeFC, il faut explorer la collection FormatConditions composée d'objet de type FormatCondition.

L'aide est assez bien renseignée (en tout cas pour Excel 2010, peut-être que dans Excel 2007 tout n'est pas disponible) :

Référence du développeur Excel 2010 > Référence du modèle objet Excel > Objet FormatCondition
Référence du développeur Excel
FormatCondition, objet
Cet objet représente une mise en forme conditionnelle.
Remarques

L'objet FormatCondition appartient à la collection FormatConditions. La collection FormatConditions peut contenir jusqu'à trois mises en forme conditionnelles pour une plage donnée.

Utilisez la méthode Add pour créer une nouvelle mise en forme conditionnelle. Si une plage a plusieurs mises en forme, vous pouvez utiliser la méthode Modify pour modifier l'une des mises en forme ou vous pouvez utiliser la méthode Delete pour supprimer une mise en forme, puis utilisez la méthode Add pour en créer une nouvelle.

Utilisez les propriétés Font, Borders et Interior de l'objet FormatCondition pour modifier l'aspect des cellules mises en forme. Certaines propriétés de ces objets ne sont pas gérées par le modèle d'objet à la mise en forme conditionnelle. Certaines des propriétés compatibles avec la mise en forme conditionnelle sont reprises dans le tableau ci-dessous.

(...)
Exemple

Utilisez FormatConditions(index), où index est le numéro d'index de la mise en forme conditionnelle, pour renvoyer un objet FormatCondition. L'exemple suivant montre comment définir les propriétés d'une mise en forme pour une mise en forme conditionnelle existante pour les cellules E1:E10.

Visual Basic pour Applications

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Worksheets(1).Range("e1:e10").FormatConditions(1)
    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 6
    End With
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

et aussi :

Référence du développeur Excel 2010 > Référence du modèle objet Excel > Objet FormatCondition
FormatCondition, membres de l’objet
Cet objet représente une mise en forme conditionnelle.

Méthodes
Nom Description
Delete Supprime l’objet.
Modify Modifie un format conditionnel existant.
ModifyAppliesToRange Définit la plage de cellules à laquelle cette règle de mise en forme s’applique.
SetFirstPriority Attribue à la règle de mise en forme conditionnelle en question la valeur de priorité « 1 » de sorte qu’elle soit évaluée avant toutes les autres règles présentes dans la feuille de calcul.
SetLastPriority Définit l’ordre d’évaluation de la règle de mise en forme conditionnelle de sorte qu’elle soit évaluée après toutes les autres règles présentes dans la feuille de calcul.

Propriétés
Nom Description
Application Utilisée sans qualificateur d’objet, cette propriété renvoie un objet Application qui représente l’application Microsoft Excel. Lorsqu’elle est utilisée avec un qualificateur d’objet, elle renvoie un objet Application représentant l’application ayant créé l’objet spécifié (vous pouvez utiliser cette propriété avec un objet OLE Automation pour renvoyer l’application de cet objet). En lecture seule.
AppliesTo Renvoie un objet Range qui spécifie la plage de cellules à laquelle la règle de mise en forme est appliquée.
Borders Renvoie une collection Borders qui représente les bordures d’un style ou d’une plage de cellules (y compris une plage définie comme une partie d’un format conditionnel).
Creator Renvoie l’application qui a créé cet objet, sous la forme d’un nombre entier de 32 bits. Type de données Long en lecture seule.
DateOperator Spécifie l’opérateur Date utilisé dans le format conditionnel. En lecture-écriture.
Font Renvoie un objet Font qui représente la police de l’objet spécifié.
Formula1 Renvoie la valeur ou l’expression associée au format conditionnel ou à la validation de données. Il peut s’agir d’une constante, d’une chaîne, d’une référence à une cellule ou d’une formule. Type de données String en lecture seule.
Formula2 Renvoie la valeur ou l’expression associée au second élément d’un format conditionnel ou d’une validation de données. N’est utilisée que si la propriété Operator du format conditionnel de validation de données a la valeur xlBetween ou xlNotBetween. Il peut s’agir d’une constante, d’une chaîne, d’une référence à une cellule ou d’une formule. Type de données String en lecture seule.
Interior Renvoie un objet Interior qui représente l’intérieur de l’objet spécifié.
NumberFormat Renvoie ou définit le format numérique appliqué à une cellule si la règle de mise en forme conditionnelle renvoie True. Type Variant en lecture-écriture.
Operator Renvoie une valeur de type Long qui représente l’opérateur pour le format conditionnel.
Parent Renvoie l’objet parent de l’objet spécifié. En lecture seule.
Priority Renvoie ou définit la valeur de priorité de la règle de mise en forme conditionnelle. La priorité détermine l’ordre d’évaluation lorsqu’une feuille de calcul contient plusieurs règles de mise en forme conditionnelle.
PTCondition Renvoie une valeur de type Boolean qui indique si le format conditionnel est appliqué à un graphique de tableau croisé dynamique. En lecture seule.
ScopeType Renvoie ou définit l’une des constantes de l’énumération XlPivotConditionScope qui détermine l’étendue du format conditionnel lorsqu’il est appliqué à un graphique de tableau croisé dynamique.
StopIfTrue Renvoie ou définit une valeur de type Boolean qui détermine si les autres règles de mise en forme conditionnelle de la cellule doivent être évaluées lorsque la règle active renvoie la valeur True.
Text Renvoie ou définit une valeur de type String qui spécifie la chaîne de texte utilisée par la règle de mise en forme conditionnelle.
TextOperator Renvoie ou définit l’une des constantes de l’énumération XlContainsOperator qui spécifie la recherche de texte effectuée par la règle de mise en forme conditionnelle.
Type Renvoie une valeur de type Long contenant une valeur xlFormatConditionType qui représente le type d’objet.

Le mieux est d'explorer en debug une cellule avec MeFC pour repérer les valeurs des différentes propriétés...

[Godzestla]

Bonjour,


non pas vraiment...

Code :

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

If Range("XX").FormatConditions.Count > 0 Then ...

me permettra de vérifier si la cellule contient une (ou plusieurs) mise en forme conditionnelle ou non mais ... comment récupérer les différents paramètres de ces mises en forme et comment déterminer les paramètres actifs ?

Je n'ai pas encore trouvé la réponse

Bonjour, tu as raison Fring, mea culpa.

Mais je pense qu'il est possible d'extraire malgré tous les différents paramètres des différentes mises en forme en se donnant un peu de mal.

Avec ce code sur une cellule avec MEF cond et 2 formules, je récupére pas mal de paramètres (le code est sale et ne récupère pas tout), mais au niveau de l'idée c'est une avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim i As Integer
For i = 1 To Range("A2").FormatConditions.Count
    Debug.Print "Cond " & i
    Debug.Print "BordersLineStyle " & Range("A2").FormatConditions.Item(i).Borders.LineStyle
    Debug.Print "FontFonstyle " & Range("A2").FormatConditions.Item(i).Font.FontStyle
    Debug.Print "Type " & Range("A2").FormatConditions.Item(i).Type
    Debug.Print "Operator " & Range("A2").FormatConditions.Item(i).Operator
    Debug.Print "Type " & Range("A2").FormatConditions.Item(i).Type
    Debug.Print "Formula1 " & Range("A2").FormatConditions.Item(i).Formula1
Next i
End Sub

il reste bien sur à translater les codes retournés pour operator , type,... en =, xlGreater, et autre.... c'est surtout là que cela semble fastidieux.

Quant-à déterminer le paramètre actif....alors là....

-----------Edit-----------
Oops. Coiffé par Corona. Place au pros. Salut Corona.