problème de condition avec couleur de cellule

[dmoluc]

Bonjour à tous
je n'arrive pas à définir une condition suivant la couleur d'une cellule Rouge (255)

Range("ZZ6").End(xlToLeft).Select

If ActiveCell.Interior.ColorIndex = 255 And Compteur < J Then

Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.Interior.Color = ShowColor
MsgBox "La tâche n'est pas achevée !", vbOKOnly
Range("ZZ6").End(xlToLeft).Offset(0, 3) = 1
End If

la condition que j'ai employé est toujours exécuter même lorsqu'elle est fausse et je n'arrive pas à trouver la bonne syntaxe pour que cela fonctionne
Quelqu'un aurait une idée ?
Merci pour votre aide

cordialement

Didier

 

[Staple1600]

Re : problème de condition avec couleur de cellule

Bonjour


Rabâchons, rabâchons...

Avec un fichier exemple contenant le code vba (complet) utilisé, il est plus facile de vous aider, mesdames, messieurs les petits nouveaux 😉

 

[Robert]

Re : problème de condition avec couleur de cellule

Bonjour Didier, bonjour le forum,

Difficile de t'aider sans savoir ce que vaut la variable Compteur et ce que vaut J... Il me semble aussi que la propriété ColorIndex va de 0 à 56...

[Édition]
Bonjou JM on s'est croisé...

 

[dmoluc]

Re : problème de condition avec couleur de cellule

merci à vous pour votre aide, en fait je croiyais pouvoir récupérer la couleur de la même façon que je colorie les cellule en appliquant la couleur 255 qui donne un joli rouge de base
pour envoyé le fichier c'est un peu compliquer car il dépasse très largement les 3MO et même si je l'épure il risque de ne pas être représentatif car il y a de multiple procédures qui se croisent
je suis obliger de quitter pour ce matin car ma femme tape du pied pour aller faire les courses 😡
A+ et encore merci

 

[dmoluc]

Re : problème de condition avec couleur de cellule

voici la routine qui colorie la colonne du jour férié

ElseIf M = 8 And D = 15 Then
        MsgBox "15 Août - Assomption"
          Range(Cells(5, colonne), Cells(131, colonne)).Select
       With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
      End With

J'ai essayé d'autre syntaxe et rien ne fonctionne

Range("ZZ6").End(xlToLeft).Select
If ActiveCell.Interior.Color = vbRed And Compteur < J Then

Range("ZZ6").End(xlToLeft).Select
If ActiveCell.Interior.Color = 255 And Compteur < J Then

Range("ZZ6").End(xlToLeft).Select
If Selection.Interior.Color = 255 And Compteur < J Then

quelqu'un aurait une idée ?

Merci pour votre aide