Test sur la couleur d'une cellule excelRésolu

Question

Bonjour a tous!

Voila, j'ai besoin pour un projet de contoler les cellules d'un calendrier excel  via VB6. Le soucis majeur (mis a part le fait que je sois novice en VB )est que pour les jours fériés je ne peux tester que sur la couleur (car il reste du texte en arrière plan)et que je ne peux modifier ce calendrirer.
 
J'espère que cette commande existe ou qu'il existe une autre alternative comme en utilisant le calendrier de windows ou autre chose.

Merci d'avance

delaux · Accepted Answer

Chez moi ca marche très bien.
Attention, ton "planning" et et ta "feuilleExcel" est tu sur que c'est le nom de l'objet? pour le savoir regarde dans VBA tu as le nom de tes feuilles suivi du libellé.

par exemple : Feuil1(planning). C'est le nom de l'objet qu'il faut utiliser et non le libellé qui est entre parenthèse.

A par ça, je ne vois pas pourquoi ca ne marcherait pas (chez moi aucun pb)...
_______________________
Thomas
N'oubliez pas "Réponse Acceptée" ...

Aide VBFrance, VBFrance d'aidera

delaux · Answer

Voici un petit exemple de manipulation des couleurs d'une cellule :
Affectation, Récupération, Test de condition, Affectation

Cells(1, 1).Interior.Color = RGB(255, 0, 0)
Couleur = Cells(1, 1).Interior.Color
If Couleur = RGB(255, 0, 0) Then
    Cells(1, 1).Interior.Color = RGB(0, 0, 255)
End If

Ceci est fait avec les couleurs RGB. Tu peux aussi le faire avec l'aide de la palette de couleur Excel (entier de 1 à 56). Dans ce cas, utilise Cells(1, 1).Interior.ColorIndex = 36.

j'espère que cela t'aidera...
________________________
Thomas
N'oubliez pas Réponse Acceptée" ...

Drake59730 · Answer

Merci, MERCI beaucoup !

Tu vien de me tirer une sacré épine du pied

delaux · Answer

Avec plaisir, ...

Aide VBFrance, VBFrance d'aidera 

________________________
Thomas
N'oubliez pas "Réponse Acceptée" ...

Drake59730 · Answer

Re,
 J'ai tout de même un petit soucis, les commandes que tu m'a données ont l'air de fonctionner mais le compilateur me dit qu'il ne peut gérer cette propriété ou méthode lorsque j'essaie d'affecter la couleur à un objet et de la recopier dans une autre feuille;
J'ai mis ce code:
   
         Dim couleur
         couleur = planning.Cells(i, j).Interior.Color
         feuilleExcel.Cells(2, 1) = couleur

Et le debogueur dit :Couleur = vide

Ai-je fait une erreur plus grosse que moi?

Drake59730 · Answer

Oups en fait j'ai mis ca :

      Dim couleur
        couleur = planning.Cells(i, j).Interior.Color
        feuilleExcel.Cells(2, 1).Interior.Color = couleur

Drake59730 · Answer

Je te remercie une fois de plus c'était bien mon erreur en fait planning etait un classeur et non une feuille!!!
 
C'est bien vu!

Merci

Test sur la couleur d'une cellule excel

7 réponses

Votre réponse

Discussions similaires