Discussion :

[electrons]

Bonjour à tous,

En passant à la version 2007, mon programme rencontre un problème lors de l'exécution d'une macro qui test la couleur de fond de la cellule.
en version 2003, le test se faisait sur le ColorIndex = 15, ici, en 2007, j'ai sélectionné la couleur "gris moyen" (3ième cellule à gauche dans les gris).
En faisant un enregistrement automatique d'une macro pour connaître la valeur du "ColorIndex", il n'y a plus de ColorIndex mais un "ThemeColor = xlThemeeColorDark1" et un "TintAndShade = -0,24997111117893"
lorsque je mets le code suivant dans ma macro

Code :

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

1
2
 
  If (Selection.Interior.TintAndShade = -0.249946592608417) Then

La macro passe au "Else" sans exécuter le Then.
Auriez-vous une solution pour tester le code couleur d'une cellule?

Merci d'avance pour votre aide.

[Invité]

Bonjour,

Essayez cela en supposant que mes couleurs correspondent aux vôtres :

Code :

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

  If Selection.Interior.Color = RGB(221, 217, 196) Then

Sinon, les paramètres des couleurs sont accessibles dans l'onglet "Personnalisées" de l'icône couleurs de remplissage.

Cordialement.

[Marc-L]

Bonjour,

l'affichage de la couleur ne fonctionne pas ?

Debug.Print Activecell.Interior.ColorIndex … (ou .Color)

[electrons]

Bonjour Marc_L et Eric,

J'avais bien obtenu le code couleur dans une variable et j'ai le même dans le Debug.Print le code est 2.

J'ai essayé avec le IF ... RGB(221, ... ) mais ça ne va pas non plus.

La couleur de fond est mise en utilisant la mise en forme conditionnelle : si je mets la couleur dans la cellule en utilisant directement la couleur de remplissage dans le ruban accueil et que je prends la 3ième case, j'ai le code couleur 15, si je passe par la mise en forme conditionnelle, pour la même sélection de case en passant d'abord par le mode personnalisé, j'obtiens le code 2 alors que je sélectionne la même case couleur.

Le problème, c'est que lors du test sur la cellule suivante qui est avec un fond blanc, j'ai toujours le code couleur 2...

[Invité]

Voir la réponse de Philippe TULLIEZ sur ce message

Détecter-Exploiter-Paramètres d'une MFC

Il s'agit d'utiliser cette fonction :

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
40
41
42
43
Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant
 Dim e As Long, i As Byte, LoTest As Boolean
 Dim LoMFC As FormatCondition
 Application.Volatile
 'boucle sur le nombre de condition(s)
 'Si pas de MFC .FormatConditions.Count renvoi 0
 For i = 1 To RG.FormatConditions.Count
  Set LoMFC = RG.FormatConditions(i)
  If LoMFC.Type = xlCellValue Then
    'tester le type de la formule entrée
    Select Case LoMFC.Operator
      Case xlEqual
           LoTest = RG = Evaluate(LoMFC.Formula1)
      Case xlNotEqual
           LoTest = RG <> Evaluate(LoMFC.Formula1)
      Case xlGreater
           LoTest = RG > Evaluate(LoMFC.Formula1)
      Case xlGreaterEqual
           LoTest = RG >= Evaluate(LoMFC.Formula1)
      Case xlLess
           LoTest = RG < Evaluate(LoMFC.Formula1)
      Case xlLessEqual
           LoTest = RG <= Evaluate(LoMFC.Formula1)
      Case xlNotBetween
           LoTest = (RG < Evaluate(LoMFC.Formula1) Or RG > Evaluate(LoMFC.Formula2))
      Case xlBetween
           LoTest = (RG >= Evaluate(LoMFC.Formula1)) And (RG <= Evaluate(LoMFC.Formula2))
    End Select
    If LoTest Then
      'Peu ajouter d'autre format si nécessaire,
        'comme la bordure, la police etc..
      Select Case Mode
        Case 0
           CouleurMFC = LoMFC.Interior.ColorIndex
        Case 1
           CouleurMFC = LoMFC.Interior.Color
      End Select
      Exit Function
    End If
  End If
 Next i
 CouleurMFC = 0
End Function

Votre condition devient :

Code :

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

   If CouleurMFC(Selection, 0) Then

Elle fonctionne bien chez moi.

Cordialement.

[electrons]

Rebonjour Eric,

Merci pour votre réponse.

j'ai essayé ton code mais en vain, je viens de créer un fichier minimum que je joints à ce message.
Il suffit d'exécuter la macro. Vous verrez qu'il n'y a pas de détection de couleur. Les cellules de la colonne A sont grisées par la mise en forme conditionnelles et celles de la B en utilisant le ruban "Accueil et le Bouton couleur de remplissage où j'ai sélectionné la 3ieme case à gauche (Blanc plus sombre 25%),.
Je suis vraiment embêté car le code "colorindex" en XL-2003 fonctionnait très bien et avait la valeur 15.

Désolé, avec la macro, j''envoie le prg "zippé".

Encore merci pour l'aide.

[Invité]

Ci-joint, le fichier corrigé.

Ta MFC est basée sur une formule alors que la fonction est basée sur la valeur d'une cellule.

En ce qui concerne la colonne B, j'ai modifié le code. Il correspond à ma première réponse aux paramètres RGB près.

Cordialement.