Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel calculer les cellules de couleur

calculer les cellules de couleur

8 réponses
Avatar
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
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
francois.forcet
On 15 fév, 11:14, "Claude" wrote:
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 !!!!

Avatar
Mgr Banni
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.

a écrit dans le message de news:

On 15 fév, 11:14, "Claude" wrote:
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 !!!!

Avatar
Claude
merci pour le contact

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

Claude


a écrit dans le message de news:

On 15 fév, 11:14, "Claude" wrote:
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 !!!!

Avatar
Modeste
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)))

Avatar
francois.forcet
On 15 fév, 12:16, "Claude" wrote:
merci pour le contact

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

Claude

a écrit dans le message de news:

On 15 fév, 11:14, "Claude" wrote:

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 !!!!


Avatar
JB
Bonjour,

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

JB

On 15 fév, 11:14, "Claude" wrote:
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


Avatar
Jacquouille
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" a écrit dans le message de news:
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



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



Claude




"Jacquouille" a écrit dans le message de
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" a écrit dans le message de news:
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