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.

[electrons]

Merci Eric,

Le code fonctionne bien, je pourrais l'utiliser avec la fonction CouleurMFC mais pour l'évolution de mon programme, j'aimerais aller un peu plus loin et connaître le code couleur de la couleur conditionnelle dans la cellule.
Pour la même sélection (de A1:A4) j'ai ajouté une condition pour me mettre la cellule A3 en bleu si elle contient la valeur 3, (valeur que j'ai mise en A3). La cellule se met bien en bleu. A l'exécution de la macro, les cellules D1 et D3 affichent la même valeur (-4142), hors j'aimerais avoir la valeur du code color bleu en D3 (et aussi celle de D1 qui est en gris) si c'est possible.

Si ce n'est pas possible, ce n'est pas trop grave.
Je vous remercie beaucoup pour vos conseils.

Bonne soirée.

[electrons]

Bonjour Eric,

J'avais testé la macro sur le programme couleur et elle fonctionne bien.
Le problème, c'est que l'utilisation de la forme conditionnelle est basée sur le contenu d'une cellule et pas sur une formule qui détermine le format.
Si je mets dans la formule "=($A1=1)", la fonction CouleurMFC... ne fonctionne plus, hors dans mon programme, je suis obligé de passer par une formule dans le format conditionnel.

Si vous trouvez une solution, je suis naturellement preneur, je vais, en attendant essayer de trouver une autre manière de détourner ce problème....

Merci et bonne journée.

[Invité]

Bonjour,

Par rapport à votre message d'hier 18h30, la formule devient dans la macro TestCouleur :

Code :

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

    If CouleurMFC(Selection, 0) Then Selection.Offset(0, 3) = CouleurMFC(Selection, 0)

Cordialement.

[electrons]

Bonjour Eric,

Je vais abandonné le test sur la couleur dans une formule dans format conditionnel. Je vais laisser la formule dans la mise en forme conditionnelle comme avant pour mettre en gris les 5 colonnes suivantes qui respectent la condition (juste pour l'affichage).
Je pensais rajouter simplement une condition dans la première cellule qui teste la valeur d'une cellule dans une autre feuille et qui met cette cellule en gris si la condition est remplie.
ex :
En "A1" j'ajoute la formule du style "=SI(Feuille!C4=1;Gris;Blanc).
En "A2" j'ajoute la formule du style "=SI(Feuille!C5=1;Gris;Blanc)

et ainsi de suite.

Gris serait une fonction du style

Code :

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

1
2
3
4
5
6
7
8
9
Sub Gris(Selection as Range)
'
' Met en gris la sélection
'
    With Selection.Interior
        .ColorIndex = 15
    End With
 
End Sub

Il me faut trouver la façon d'introduire la macro dans la fonction de la cellule.

Merci pour ton aide et j'ai appris que la mise en forme conditionnelle avec formule n'est qu'un affichage qu'il est difficile de tester.

Bonne fin de journée.

[Invité]

Bonjour Eric,

Je vais abandonné le test sur la couleur dans une formule dans format conditionnel. Je vais laisser la formule dans la mise en forme conditionnelle comme avant pour mettre en gris les 5 colonnes suivantes qui respectent la condition (juste pour l'affichage).

J'allais à l'instant te répondre que je ne voyais pas la difficulté de laisser un test sur les valeurs dans ton cas. As-tu au moins essayé de mettre toutes tes conditions en tant que valeurs ?

Met un fichier en ligne correspondant exactement à ton problème et indique les différents cas à traiter pour voir.


Cordialement.

[electrons]

Rebonjour Eric,

Pour répondre à ta demande, mon programme gère les congés. J'ai une feuille par mois. En fonction de l'année entrée, chaque feuille se met à jour en grisant les samedi et dimanche ainsi que les jours fériés.

Voici les 2 formules mises dans le format conditionnel en sélectionnant les cellules de A1 à A31 pour Janvier, de A1 à A29 pour février ...

=WEEKDAY($A6:$A36;2)>=6
=AND(COUNTIF(Feries;$A6)>0;$A6<>"")

avec le même format (3ième cellule couleur à gauche(blanc 25%)).
Dans la 2ième formule, 'feriers' est le nom donné à un ensemble de cellules qui reprennent tous les congés calculés en fonction de l'année entrée.

Mon problème principal est qu'en fonction de la couleur de la cellule, j'ai un test qui rempli différemment la feuille à imprimer pour la gestion des heures supplémentaires :

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
If  (Selection.Interior.ColorIndex <> 15) Then
             Sheets("PrintHrSup").Select
                'Saisie de l'heure et des minutes en entier pour la conversion en décimale
            Heure = Hour(Worksheets(FeuilleActive).Range("D" & CptLgMois)        
            MinuteInteger = Minute(Worksheets(FeuilleActive).Range("D" & CptLgMois)                     
       If (Heure >= 18) Then              
                Call HrArrondi(Heure, MinuteInteger, Ferie)               
                Cells(CptHrSup, 2).Value = Heure & " Hr " & MinuteInteger             
       End If
      Else
                Sheets("PrintHrSup").Select
                If Worksheets(FeuilleActive).Range("D" & CptLgMois) <> BLANK Then
                    Ferie = True
                    Heure = Hour(Worksheets(FeuilleActive).Range("E" & CptLgMois))
                    MinuteInteger = Minute(Worksheets(FeuilleActive).Range("E" & CptLgMois))
                   Call HrArrondi(Heure, MinuteInteger, Ferie)
                   Cells(CptHrSup, 4).Value = Heure & " Hr " & MinuteInteger
                    Ferie = False
                End If
 End If
 
        'test si l'heure de départ est > a 18, remplir la bonne case
        CptLgMois = CptLgMois + 1
        CptHrSup = CptHrSup + 1
 
 Next k

Voila où j'en suis.
Comme je le disais lors de mon dernier message, je peux tester dans une feuille "Calendrier" toutes les cellules qui sont mises à 1 si fériés ou week-end et à 2 si jour de travail normal, d'où mon dernier message.
Encore merci pour vos conseils et votre persévérance.
Bonne fin de journée.

.

[Invité]

Voici les 2 formules mises dans le format conditionnel en sélectionnant les cellules de A1 à A31 pour Janvier, de A1 à A29 pour février ...

Code :

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

1
2
3
 
=WEEKDAY($A6:$A36;2)>=6
=AND(COUNTIF(Feries;$A6)>0;$A6<>"")

La solution de contournement serait donc de tester dans la macro les conditions pour chaque jour de la colonne A en adaptant les deux formules pour ne tester que le jour étudié.

Code :

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

1
2
=WEEKDAY($A6:$A36;2)>=6
=AND(COUNTIF(Feries;$A6)>0;$A6<>"")

Bon courage.

Cordialement.