Discussion :

[chrisocal]

Bonjour à tous,

Débutant en VBA, je souhaite mettre 2 couleur (Font et Interior) sur chaque MFC.
je me sert de VBA pour implémenter les MFC sur le classeur



Lors de la MFC dans VBA je rencontre une erreur à la ligne 13 :

" maPlage_Test1_1.FormatConditions(2).Font.Color = RGB(21, 255, 127)"

de type :

"Erreur d’exécution '9':
L'indice n'appartient pas à la sélection"

code en exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub MFC_Test1_1()
 
    'Création de l'objet Range
        Dim maPlage_Test1_1 As Range
        Set maPlage_Test1_1 = Feuil1.Range("$T$2:$T$1048")
 
    'Supprime le formatage conditionnel existant dans cette plage
        maPlage_Test1_1.FormatConditions.Delete
 
    'Création de la règle X = Vert si A.F. < valeur Essai!
    ' Si(ET(A.F. = X ;valeur Essai<celulle))
        maPlage_Test1_1.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=et($N2=Liste!$Q$4;RECHERCHEV($R3;Essai!$B$5:$BJ$76;8;0)<$T2)"
        maPlage_Test1_1.FormatConditions(1).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(2).Font.Color = RGB(21, 255, 127)
 
    'Création de la règle X = Vert si A.F. > valeur Essai!
    ' Si(ET(A.F. = X ;valeur Essai>celulle))
        maPlage_Test1_1.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=et($N2=Liste!$Q$4;RECHERCHEV($R3;Essai!$B$5:$BJ$76;8;0)>$T2))"
        maPlage_Test1_1.FormatConditions(3).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(4).Font.Color = RGB(255, 0, 0)
 
    'Création de la règle X = Vert si A.F. < seuil
    ' Si(ET(A.F. = X ;celulle < seuil))
        maPlage_Test1_1.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=et($N2=Liste!$Q$4;GAUCHE($T2;1)=Liste!$G$7)"
        maPlage_Test1_1.FormatConditions(5).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(6).Font.Color = RGB(21, 255, 127)
 
    'Création de la règle X = Vert si A.F. > seuil
    ' Si(ET(A.F. = X ;celulle > seuil))
        maPlage_Test1_1.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=et($N2=Liste!$Q$4;GAUCHE($T2;1)=Liste!$G$8)"
        maPlage_Test1_1.FormatConditions(7).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(8).Font.Color = RGB(255, 0, 0)
 
End Sub

le code avec une seule couleur fonctionne mais pas avec 2 couleurs

Si vous avez une solution je suis preneur.

Merci pour vos réponces

[halaster08]

Bonjour,

Code :

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

1
2
3
 
        maPlage_Test1_1.FormatConditions(1).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(2).Font.Color = RGB(21, 255, 127)

Même si tu y mets deux couleur, une pour la police une pour le remplissage tu n'as toujours qu'une seule condition
Essaye :

Code :

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

1
2
3
 
        maPlage_Test1_1.FormatConditions(1).Interior.Color = RGB(198, 224, 180)
        maPlage_Test1_1.FormatConditions(1).Font.Color = RGB(21, 255, 127)

[chrisocal]

Bonsoir,

je me suis aperçu d'une autre erreur dans mon script avec la même formule mais plus haut.
j'avais écrit "Interior.Font" au lieu de "Font.Color".
merci pour votre réponse rapide qui est exacte et qui complète le script .

très bonne soirée à vous tous