Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel calcul en vert

calcul en vert

4 réponses
Avatar
pierre
bonjour à tous(tes) en ce jour de réveillon,

qlq'un pourrait il me dire s'il est possible de ne faire la somme que dans
des cellules écrites en couleur genre

10
2 en couleur
5 en couleur
12
il ne faudrait additionner que 2 et 5 qui sont écrit en couleur et non pas 1
cellule en couleur + 1 cellules en couleur
cette question suite à une ficelle du 28 ou je sèche et gratte toujours

merci e vos réponses et bonnes anné 2004 à tous

merci de votre aide
Signaler un problème avec ce contenu

4 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
Pascal Engelmajer
salut,
deux fontions
Public Function sommecouleur(plage As Range, couleur As Integer)
'utilise les couleurs de la palette
'0 = toute couleur
'-1= aucune
Dim cell As Range
sommecouleur = 0
Application.Volatile
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
Select Case couleur
Case 0
sommecouleur = sommecouleur + plage(i).Value
Case -1
If 0 > plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
Case Else
If couleur = plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
End Select
Next i
End Function
Public Function sommecouleurref(plage As Range, ref As Range)
'utilise la couleur d'une cellule de référence (palette)
Dim cell As Range
Dim couleur
couleur = ref.Font.ColorIndex
sommecouleurref = 0
Application.Volatile
'pour utilisation dans la feuille
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
If couleur = plage(i).Font.ColorIndex Then
sommecouleurref = sommecouleurref + plage(i).Value
End If
Next i
End Function
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
#
bonjour à tous(tes) en ce jour de réveillon,

qlq'un pourrait il me dire s'il est possible de ne faire la somme que dans
des cellules écrites en couleur genre

10
2 en couleur
5 en couleur
12
il ne faudrait additionner que 2 et 5 qui sont écrit en couleur et non pas
1

cellule en couleur + 1 cellules en couleur
cette question suite à une ficelle du 28 ou je sèche et gratte toujours

merci e vos réponses et bonnes anné 2004 à tous

merci de votre aide




Avatar
pierre
merci de ta réponse

mais comment l'utilise tu?
je débute

pierre


"Pascal Engelmajer" a écrit dans le
message news: #
salut,
deux fontions
Public Function sommecouleur(plage As Range, couleur As Integer)
'utilise les couleurs de la palette
'0 = toute couleur
'-1= aucune
Dim cell As Range
sommecouleur = 0
Application.Volatile
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
Select Case couleur
Case 0
sommecouleur = sommecouleur + plage(i).Value
Case -1
If 0 > plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
Case Else
If couleur = plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
End Select
Next i
End Function
Public Function sommecouleurref(plage As Range, ref As Range)
'utilise la couleur d'une cellule de référence (palette)
Dim cell As Range
Dim couleur
couleur = ref.Font.ColorIndex
sommecouleurref = 0
Application.Volatile
'pour utilisation dans la feuille
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
If couleur = plage(i).Font.ColorIndex Then
sommecouleurref = sommecouleurref + plage(i).Value
End If
Next i
End Function
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
#
bonjour à tous(tes) en ce jour de réveillon,

qlq'un pourrait il me dire s'il est possible de ne faire la somme que
dans


des cellules écrites en couleur genre

10
2 en couleur
5 en couleur
12
il ne faudrait additionner que 2 et 5 qui sont écrit en couleur et non
pas


1
cellule en couleur + 1 cellules en couleur
cette question suite à une ficelle du 28 ou je sèche et gratte toujours

merci e vos réponses et bonnes anné 2004 à tous

merci de votre aide








Avatar
Pascal Engelmajer
Salut,
comme une fonction normale :
=sommecouleur(A1:A10; 3) par exemple pour des nombres entre A1 et A10 avec
la couleur d'index 3 dans la palette
=sommecouleurref(A1:A10; B1) par exemple pour des nombres entre A1 et A10
avec la couleur d'écriture de B1 (plus simple)

Avant, il faut recopier les fonctions (attention aux sauts de ligne dus à
outlook) dans un module standard :

ALT + F11 pour passer en mode VBA
puis Inserrer > Module
copier et coller les fonctions...
Revenir à la feuille de calcul, utiliser les fonctions comme des fonctions
normales (SOMME(), SI()) on peut cliquer sur fx (Coller une fonction) puis
dans Personnalisées choisir la fonction... remplir la grille ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:

merci de ta réponse

mais comment l'utilise tu?
je débute

pierre


"Pascal Engelmajer" a écrit dans le
message news: #
salut,
deux fontions
Public Function sommecouleur(plage As Range, couleur As Integer)
'utilise les couleurs de la palette
'0 = toute couleur
'-1= aucune
Dim cell As Range
sommecouleur = 0
Application.Volatile
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
Select Case couleur
Case 0
sommecouleur = sommecouleur + plage(i).Value
Case -1
If 0 > plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
Case Else
If couleur = plage(i).Font.ColorIndex Then
sommecouleur = sommecouleur + plage(i).Value
End If
End Select
Next i
End Function
Public Function sommecouleurref(plage As Range, ref As Range)
'utilise la couleur d'une cellule de référence (palette)
Dim cell As Range
Dim couleur
couleur = ref.Font.ColorIndex
sommecouleurref = 0
Application.Volatile
'pour utilisation dans la feuille
'pour utilisation dans la feuille
' mais attention le changement de la couleur
'ne déclanche pa le recalcul qu'il faut forcer
For i = 1 To plage.Count
If couleur = plage(i).Font.ColorIndex Then
sommecouleurref = sommecouleurref + plage(i).Value
End If
Next i
End Function
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:
#
bonjour à tous(tes) en ce jour de réveillon,

qlq'un pourrait il me dire s'il est possible de ne faire la somme que
dans


des cellules écrites en couleur genre

10
2 en couleur
5 en couleur
12
il ne faudrait additionner que 2 et 5 qui sont écrit en couleur et non
pas


1
cellule en couleur + 1 cellules en couleur
cette question suite à une ficelle du 28 ou je sèche et gratte
toujours




merci e vos réponses et bonnes anné 2004 à tous

merci de votre aide












Avatar
pierre
en ce jour de nouvelle année je te remercie bien
Bonne et heureuse année tous mes meilleurs voeux et surtout la santé

"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:
#
bonjour à tous(tes) en ce jour de réveillon,

qlq'un pourrait il me dire s'il est possible de ne faire la somme que dans
des cellules écrites en couleur genre

10
2 en couleur
5 en couleur
12
il ne faudrait additionner que 2 et 5 qui sont écrit en couleur et non pas
1

cellule en couleur + 1 cellules en couleur
cette question suite à une ficelle du 28 ou je sèche et gratte toujours

merci e vos réponses et bonnes anné 2004 à tous

merci de votre aide