Formule à modifier...

JCGL

XLDnaute Barbatruc

• 23 Février 2009

• #2

Re : Formule à modifier...

Bonjour à tous,

Peux-tu déposer le code la fonction personnalisée 'Couleurs' ?

A+ à tous

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 23 Février 2009

• #3

Re : Formule à modifier...

Bonjour,
je ne comprend pas. quel code à déposer.
Et comment?

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 23 Février 2009

• #4

Re : Formule à modifier...

Mes codes couleurs correspondent à ceci.

'noir = 1
'marron = 53
'vert olive = 52
'vert foncé = 51
'bleu-vert foncé = 49
'bleu foncé = 11
'indigo = 55
'gris 80% = 56

'rouge foncé = 9
'orange = 46
'marron clair = 12
'vert = 10
'bleu-vert = 14
'bleu = 5
'bleu-gris 47
'gris-50% = 16

'rouge = 3
'orange clair = 45
'citron vert = 43
'vert marin = 50
'vert d'eau = 42
'bleu clair = 41
'violet = 13
'gris-40% = 48

'rose = 7
'jaune d'or = 44
'jaune = 6
'vert brillant = 4
'turquoise = 8
'bleu ciel = 33
'prune = 54
'gris-25% = 15

'rose saumon = 38
'brun = 40
'jaune clair = 36
'vert clair = 35
'turquoise clair = 34
'bleu moyen = 37
'lavande = 39
'blanc = 2

'aucune couleur = -4142

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 23 Février 2009

• #5

Re : Formule à modifier...

Voici pour le rouge.

Option Explicit

Function EcartRouge(MaPlage As Range)
Dim Cel As Range, Compteur As Long
' Permettre à la fonction de s'éxécuter à tout moment
Application.Volatile
' Initialiser le compteur
Compteur = 0
If MaPlage.Columns.Count > 1 Then
EcartRouge = "#Erreur : Une Seule colonne possible"
Exit Function
End If
' Pour chaque cellule de la colonne
For Each Cel In MaPlage
If Cel.Interior.ColorIndex = 3 Then
Compteur = 0
Else
If Cel.Value <> "" Then Compteur = Compteur + 1
End If
Next Cel
EcartRouge = Compteur
End Function

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Février 2009

• #6

Re : Formule à modifier...

Bonjour à tous,

La fonction déposée ne fait pas référence à un fonction 'Couleurs'

Tu devrais avoir une fonction du genre :

Code:

Option Explicit

Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long 'Ti sur VeriTi
Dim Cel As Range
  For Each Cel In Plage.Cells
    If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
  Next Cel
End Function

qui te permet de sommer des couleurs

A+ à tous

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 23 Février 2009

• #7

Re : Formule à modifier...

Avant ma serie de couleurs j'ai ça.(3è messages)

Option Explicit
'Ti
(Pourtant ça marche)

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Février 2009

• #8

Re : Formule à modifier...

Bonjour à tous,

Merci de déposer ton fichier
Je pense que cela sera plus simple

A+ à tous

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 23 Février 2009

• #9

Re : Formule à modifier...

Mon fichier est trop gros.
J'ai beau laisser q'un exemple.
Ca ne passe pas.
désolé.
Cordialement.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Février 2009

• #10

Re : Formule à modifier...

Bonjour à tous,

Un essai pour sommer les couleurs demandées.

A+ à tous

 

Pièces jointes

• JC Compter Couleurs.zip

  7 KB · Affichages: 17

Vote positif 0 Vote négatif