Cell.Interior.ColorIndex

[Cougar]

Bonjour le forum,

Voici mon problème : si la couleur de la cellule est égale à son numéro (ici 16763904) le code continu. Malheureusement, bien que la cellule soit de la bonne couleur, le code cesse (end if). Merci de m'aider.

Private Sub CommandButton1_Click()

Sheets("Horaire").Select
Range("c6").Select
Do Until ActiveCell = "Dimanche"
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(-1, 0).Activate
If Cell.Interior.ColorIndex = 16763904 Then 'bleu + soir
ActiveCell.Offset(1, 0).Select
If Cell.Interior.ColorIndex = xlNone Then
Call Tribleu
End If
End If
...

 

[eddy51]

Re : Cell.Interior.ColorIndex

Tu veut faire quoi en réalité ? Si c'est stoppé le code si couleurs different de bleu et le faire continué si egal , ben je vois rien qui fait cela dans ton bout de code

 

[tototiti2008]

Re : Cell.Interior.ColorIndex

Bonjour Cougar, Bonjour eddy,

Que veux-tu dire par "le code continue" ? l'appel de la sub Tribleu ?
un petit fichier exemple avec une idée des cellules sur lesquelles est censé s'appliquer ton code nous aiderait à t'aider

 

[Cougar]

Re : Cell.Interior.ColorIndex

Bonjour tototiti2008, eddy51,

Oui pour la sub Tribleu.

Voici le fichier.

Merci

 

[Modeste geedee]

Re : Cell.Interior.ColorIndex

Bonjour le forum,

Voici mon problème : si la couleur de la cellule est égale à son numéro (ici 16763904) le code continu. Malheureusement, bien que la cellule soit de la bonne couleur, le code cesse (end if). Merci de m'aider.

Private Sub CommandButton1_Click()

Sheets("Horaire").Select
Range("c6").Select
Do Until ActiveCell = "Dimanche"
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(-1, 0).Activate
If Cell.Interior.ColorIndex = 16763904 Then 'bleu + soir
ActiveCell.Offset(1, 0).Select
If Cell.Interior.ColorIndex = xlNone Then
Call Tribleu
End If
End If
...

le colorIndex ne peut avoir une valeur supérieure à 56 !!!!

il faut utiliser la syntaxe :
if Cell.Interior.Color = 16763904

mais cela ne correspondra peut etre pas à la couleur que tu crois ...
car sous EXCEL 2003 les cellules ne peuvent avoir d'autre couleur que celles définies par la palette (colorIndex de 0 à 56) c'est à dire une goutte d'eau parmi mes 16 millions possible en RGB

 

[Cougar]

Re : Cell.Interior.ColorIndex

Bonjour Modeste geedee, le forum,

Pourtant, lorsque j'utilise enregistrer une macro, c'est ce code de couleur qu'il me donne ?

Merci

 

[Modeste geedee]

Re : Cell.Interior.ColorIndex

Bonsour®

Pourtant, lorsque j'utilise enregistrer une macro, c'est ce code de couleur qu'il me donne ?

??? relis bien la syntaxe générée... 😎

ne pas confondre :
Color et ColorIndex !!!!