Nombre de cellules selon leur couleurs [Résolu]

Bonjour,

Merci j'ai réussi à intégrer le module mais est ce que je dois intégrer l'index des couleurs quelque part ?

Car pour l'instant ca ne fonctionne pas

Bonjour,

Non car j'ai plusieurs paramètres à prendre en compte.
L'utilisateur peut saisir ce qu'il veut dans la cellule il choisi ensuite une couleur (sur 3 couleurs disponibles) qui lui permet de définir à quel problème correspond ce qu'il a mis dans la cellule.

Je vais ensuite faire 3 colonnes de résultats :
- une pour les cellules non vides vertes
- une pour les cellules non vides rouges
- une pour les cellules non vides grises.

Il m'est donc impossible de faire une mise en forme conditionnelle.

Re le forum

Code à coller dans un module

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée
'Plage: plage de cellules à inspecter
'Couleur: valeur de la couleur cherchée

Application.Volatile

Dim Cellule As Range

For Each Cellule In Plage
    If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then
        NbreCellulesCouleur = NbreCellulesCouleur + 1
    End If
Next Cellule

End Function

Mode d'utilisation de la formule

=NbreCellulesCouleur(B4:B8;3)

Tableau des couleurs : ColorIndex

Mytå

Bonjour,

En fait je disais "Merci j'ai réussi à intégrer le module mais est ce que je dois intégrer l'index des couleurs quelque part ?"
Car la formule est bien reconnue par Excel (je n'ai pas de message d'erreur) mais quelque soit la couleur que je mets il ne la prend pas en compte.

Donc je me disais que je devais peut etre rentrer la table des couleurs quelque part.

Peux tu m'aider ?

bonjour

pour te faire une table des codes couleurs de la palette de ton systeme
tu mets un bouton dans une feuille et tu y affectes le code (excel 2003 chez moi permet 56 couleurs)

Private Sub CommandButton2_Click()
Dim i as long
  For i = 1 To 56
    Range("A" & i).Value = i
    Range("A" & i).Interior.ColorIndex = i
  Next i
End Sub

pour recuperer le code couleur d'une cellule (deja colorée) un autre bouton

Private Sub CommandButton1_Click()
Dim c As Long
  c = Selection.Interior.ColorIndex
  MsgBox ("code couleur : " & c)
End Sub

il ne te restera plus q'à continuer avec le code de Myta

bonne suite

Bonjour,

Merci mais la ca devient trop complexe pour moi ...
comment je fais pour intégrer un bouton ?

Et une fois que j'aurai coloré ma cellule comment je fais pour que le bouton que je crée récupère sa couleur ?

re

voir le fichier joint

http://www.cijoint.fr/cjlink.php?file=cj201101/cijAiWMNqg.xls

pour voir le code
clic-droit sur l'onglet de la feuille-visualiser le code
dans Feuil1 tu as les codes des deux boutons
dans Module 1 le code de Myta et (voir RQ2)

1. Clic sur Table code pour avoir ta table à toi
2. Selectionner une cellule puis Clic sur couleur cellule pour avoir son code couleur

RQ1. la creation d'un bouton n'est pas trop compliquée
- Affichage-Boites a outils controles
- le petit triangle permet de passer du mode creation au mode execution
- passer en mode creation (le petit triangle)
- choisir le bouton et le mettre dans la feuille
- clic-droit sur le bouton pour voir/modifier ses proprietes
( caption est le texte affiché)
- clic-clic-gauche permet de passer dans l'editeur VBA
- quand c'est fini
- repasser en mode execution (le petit triangle)
- corriger les erreurs !!!

RQ2.Pour completer ton fichier, dans le module où tu as mis le code de Myta, tu inseres le code

Sub CodeCouleur()
Dim c As Long
  c = Selection.Interior.ColorIndex
  MsgBox ("code couleur : " & c)
End Sub

puis Outils-Macros-Choisir CodeCouleur-Options et affecter un raccourci clavier (ctrl+k par exemple) a la macro

dans la feuille- selectionner une cellule colorée puis ctrl k pour avoir son code couleur

bonne suite

Re le forum

Je vois que la cavalerie est débarquée :)

Pour facilité la tâche à Nanouz, la valeur pour la couleur est
récupérée depuis une cellule.

Function NbreCellulesCouleur(Plage As Range, Couleur As Range) As Long 
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée 
'Plage: plage de cellules à inspecter 
'Couleur: cellule de la couleur cherchée 

Application.Volatile 

Dim Cellule As Range 

For Each Cellule In Plage 
    If Cellule.Interior.ColorIndex = Couleur.Interior.ColorIndex And Not IsEmpty(Cellule) Then 
        NbreCellulesCouleur = NbreCellulesCouleur + 1 
    End If 
Next Cellule 

End Function 

Mode d'utilisation de la formule
=NbreCellulesCouleur(B4:B8;C3)

Nanouz : Car la formule est bien reconnue par Excel (je n'ai pas de message d'erreur) mais quelque soit la couleur que je mets il ne la prend pas en compte. 

Un changement de couleur de cellule ne relance pas la macro, il faut faire F9


Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
L'urgent est fait, l'impossible est en cours et pour les miracles; prévoir un délai.
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

Merci à tous (toutes) vous êtes trop forts !!