calculer les cellules de couleur

Le
Claude
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34) cellule
en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5276001
On 15 fév, 11:14, "Claude"
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34) cellu le
en jaune  d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude


Salut claude
Je te propose ce code :

Do While Range("D4").Offset(i, 0).Address <> Range("D35").Address
If Range("D4").Offset(i, 0).Interior.ColorIndex = 6 Then
Total = Total + 1
End If
i = i + 1
Loop
Range("E40") = Total

celà devrait convenir

Dis moi !!!!

Mgr Banni
Le #5275951
ou bien encore cette function à adapter selon les couleurs utilisées :

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim c As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + c.Value
Next
SomParCouleur = cvsomme
End Function

HTH
Mgr T.B.


On 15 fév, 11:14, "Claude"
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule
en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude


Salut claude
Je te propose ce code :

Do While Range("D4").Offset(i, 0).Address <> Range("D35").Address
If Range("D4").Offset(i, 0).Interior.ColorIndex = 6 Then
Total = Total + 1
End If
i = i + 1
Loop
Range("E40") = Total

celà devrait convenir

Dis moi !!!!

Claude
Le #5275931
merci pour le contact

ok pour copier ce texte dans virtual basic mais dans ma cellule e40 je dois
mettre quoi?

Claude



On 15 fév, 11:14, "Claude"
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule
en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude


Salut claude
Je te propose ce code :

Do While Range("D4").Offset(i, 0).Address <> Range("D35").Address
If Range("D4").Offset(i, 0).Interior.ColorIndex = 6 Then
Total = Total + 1
End If
i = i + 1
Loop
Range("E40") = Total

celà devrait convenir

Dis moi !!!!

Modeste
Le #5275921
Bonsour® Claude avec ferveur ;o))) vous nous disiez :

sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule en jaune d6,d12, d22 ,et avoir en E40 le nombre 3


'---------------------------------------------------
1 - Le changement de couleur, n'est pas une action événementielle déclenchant un
recalcul...
l'utilisation d'un calcul basé sur les couleurs est donc entaché d'un risque
important d'erreur
IMPORTANT :
il faudra donc systématiquement effectuer un recalcul, lors que l'on souhaitera
utiliser cette information.

'---------------------------------------------------
2 - il n'y a pas de fonction native permettant de connaitre la couleur d'une
cellule
il faut passer par une fonction perso VBA

Function Couleur(target As Range)
Application.Volatile
Couleur = target.Interior.ColorIndex
End Function

en E4
= Couleur(D4) etendre jusque E34
en E40 = NB.SI(E4:E34;6)

'ou bien ---------------------------------------
une fonction XL4
selectionner la cellule B1
insertion > noms > definir
nom : =COUL
fait réference à : =LIRE.CELLULE(38;A1)*(Alea()<1)
(l'expression alea()<1 est neutre mais permet le recalcul via la touche F9)

en E4
=COUL etendre jusque E34 (attention pas de parenthèses)
en E40 = NB.SI(E4:E34;6)
'-------------------------------------------------
3 - préferer la mise en couleur par MEFC
pour le dénombrement, réutiliser les mêmes critéres utilisés dans la MEFC




--
--
@+
;o)))

francois.forcet
Le #5275911
On 15 fév, 12:16, "Claude"
merci pour le contact

ok pour copier ce texte dans virtual basic mais dans ma cellule e40 je doi s
mettre quoi?

Claude


On 15 fév, 11:14, "Claude"
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule
en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude


Salut claude
Je te propose ce code :

Do While Range("D4").Offset(i, 0).Address <> Range("D35").Address
If Range("D4").Offset(i, 0).Interior.ColorIndex = 6 Then
Total = Total + 1
End If
i = i + 1
Loop
Range("E40") = Total

celà devrait convenir

Dis moi !!!!


Rebonjours Claude
Il n'y a rien à mettre cellule E40
Tu mets simplement mon code dans une macro et tu l'exécutes
Si tu as des cellules colorées en Jaune dans la plage D4:D34 leur
nombre sera automatiquement intégré dans la cellule E40

Essai et dis moi !!!!


JB
Le #5275891
Bonjour,

http://boisgontierjacques.free.fr/pages_site/fonctioncouleurfond.htm

JB

On 15 fév, 11:14, "Claude"
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34) cellu le
en jaune  d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude


Jacquouille
Le #5165961
Bonsoir
Et si les couleurs étaient issues d'une Mise En Forme Conditionnelle (MEFC)
????
Ceci n'est point dit...
Or donc, il suffirait de faire une somme...si..avec la condition de la
FC. -)

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Claude" 47b56618$0$846$
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude



Claude
Le #5165821
Merci pour les réponses
tout est bon, je me suis inspirer de la solution de



Claude




"Jacquouille" news: uaD$q2%
Bonsoir
Et si les couleurs étaient issues d'une Mise En Forme Conditionnelle
(MEFC) ????
Ceci n'est point dit...
Or donc, il suffirait de faire une somme...si..avec la condition de la
. -)

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Claude" 47b56618$0$846$
Bonjour
sur mon fichier je voudrais faire un total de mes cellules en couleur
sur la cellule E40 je voudrais avoir le total de la colonne (D4:D34)
cellule en jaune d6,d12, d22 ,et avoir en E40 le nombre 3
merci pour une info

Claude







Publicité
Poster une réponse
Anonyme