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
Daniel
Bonjour. C'est possible avec une fonction perso (macro). Toutefois, si tu changes une couleur, le résultat ne sera pas modifié. Fais une recherche dans l'historique du forum, tu vas trouver plein de questions analogues. En cas d'insuccès, reviens nous voir. Cordialement. Daniel "Ceno" a écrit dans le message de news:
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur couleur ?
Par avance Merci.
Bonjour.
C'est possible avec une fonction perso (macro). Toutefois, si tu changes une
couleur, le résultat ne sera pas modifié. Fais une recherche dans
l'historique du forum, tu vas trouver plein de questions analogues. En cas
d'insuccès, reviens nous voir.
Cordialement.
Daniel
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
1164815832.028008.227020@l12g2000cwl.googlegroups.com...
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur
couleur ?
Bonjour. C'est possible avec une fonction perso (macro). Toutefois, si tu changes une couleur, le résultat ne sera pas modifié. Fais une recherche dans l'historique du forum, tu vas trouver plein de questions analogues. En cas d'insuccès, reviens nous voir. Cordialement. Daniel "Ceno" a écrit dans le message de news:
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur couleur ?
Par avance Merci.
JB
Bonsoir,
Cacule la somme des cellules d'un champ ayant la couleur de fond spécifiée:
http://cjoint.com/?lDwgRP7sLs
Function SommeCouleurFond(champ As Range, couleurFond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurFond Then temp = temp + c.Value End If Next c SommeCouleurFond = temp End Function
-Lorsque la couleur de fond est modifiée, le résultat n'est pas mis à jour immédiatement (sauf si on utilisé le pinceau pour reproduide la mise en forme). La MAj se fait lorsque lorsqu'un calcul est activé (option volatile) -On peut utiliser F9 pour provoquer un calcul immédiat ou utiliser l'événnement Selection_Change
Dim celluleAvant Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not IsEmpty(celluleAvant) Then If Not Intersect(Range(celluleAvant), [B2:G3]) Is Nothing Then Calculate End If celluleAvant = Target.Address End Sub
Cordialement JB
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur couleur ?
Par avance Merci.
Bonsoir,
Cacule la somme des cellules d'un champ ayant la couleur de fond
spécifiée:
http://cjoint.com/?lDwgRP7sLs
Function SommeCouleurFond(champ As Range, couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond Then
temp = temp + c.Value
End If
Next c
SommeCouleurFond = temp
End Function
-Lorsque la couleur de fond est modifiée, le résultat n'est pas mis
à jour immédiatement (sauf si on utilisé le pinceau pour reproduide
la mise en forme).
La MAj se fait lorsque lorsqu'un calcul est activé (option volatile)
-On peut utiliser F9 pour provoquer un calcul immédiat ou utiliser
l'événnement Selection_Change
Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [B2:G3]) Is Nothing Then
Calculate
End If
celluleAvant = Target.Address
End Sub
Cordialement JB
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur
couleur ?
Cacule la somme des cellules d'un champ ayant la couleur de fond spécifiée:
http://cjoint.com/?lDwgRP7sLs
Function SommeCouleurFond(champ As Range, couleurFond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurFond Then temp = temp + c.Value End If Next c SommeCouleurFond = temp End Function
-Lorsque la couleur de fond est modifiée, le résultat n'est pas mis à jour immédiatement (sauf si on utilisé le pinceau pour reproduide la mise en forme). La MAj se fait lorsque lorsqu'un calcul est activé (option volatile) -On peut utiliser F9 pour provoquer un calcul immédiat ou utiliser l'événnement Selection_Change
Dim celluleAvant Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not IsEmpty(celluleAvant) Then If Not Intersect(Range(celluleAvant), [B2:G3]) Is Nothing Then Calculate End If celluleAvant = Target.Address End Sub
Cordialement JB
Bonjour,
Est-ce possible d'additionner des cellules en fonction de leur couleur ?
Par avance Merci.
Ceno
Merci à JB et Daniel, j'ai pas trop compris comment mais ca marche, je vous remercie pour votre aide si précieuse.
Merci à JB et Daniel, j'ai pas trop compris comment mais ca marche, je
vous remercie pour votre aide si précieuse.
