C'est ma première participation, j'envoie une question à la volée à laquelle je ne trouve nulle part de réponse. Merci d'avance de me répondre sèrieusement ! ;-)
En supposant que je colore diverses cases contenant chacune un nombre ; comment sommer ces cases (prisent dans une "zone") en les identifiant d'après leur couleur ?
En français : Sommer dans cette cellule toutes les cases jaunes de la zone A3;C7
Merci mille fois ! Mais j'arrive à la même question de fin que "Le rital" : comment sommer les valeurs inclues, dans les cellules d'une certaine couleur, d'une plage quelconque ?
Que peux-tu faire pour moi ?
Je pense que tu te trompes ! Le fichier de Virginie ne me permet pas de cumuler les deux opérations !!
Il faut dire que je suis assez nul en excel, toutefois il me semble bien que j'ai raison non ?
Je voudrais : Faire la somme des chiffres inscrits dans toutes les cellules jaunes de la plage (A15)
Sommer les cellules "Bleues" ou sommer les chiffres "Rouges" de la ligne ne me suffis pas !
Merci de ton temps et de ta réponse à venir, Eric
A+
Bon ben, voici tout ce qu'il te faut pour sommer les valeurs de la couleur choisie...
mais dans un premier temps, je te donne une macro qui te permettra de lister automatiquement le code de chaque couleur...
'palette des couleurs d'Excel
Option Explicit
Sub PaletteCouleur()
Dim Couleur As Long
Application.ScreenUpdating = False
Cells(1, 1).Value = "Couleur"
Cells(1, 2).Value = "Code Couleur"
For Couleur = 1 To 56
Cells(1 + Couleur, 1).Interior.ColorIndex = Couleur
Cells(1 + Couleur, 2).Value = Couleur
Next
Application.ScreenUpdating = True
End Sub
ça c'est pour avoir facilement le numéro correspondant à chaque couleur comme ça tu gagnes du temps...
ensuite cette fonction va te permettre de rentrer une formule dans une cellule qui fera la somme de la valeur correspondant à la couleur choisie...
Function SommeSelonCouleur(Plage As Range, Couleur As Long) As Double
Dim Tablo, I As Long, J As Integer
Tablo = Plage
For I = 1 To UBound(Tablo, 1)
For J = 1 To UBound(Tablo, 2)
If Plage(I, J).Interior.ColorIndex = Couleur Then
SommeSelonCouleur = SommeSelonCouleur + Tablo(I, J)
End If
Next J
Next I
End Function
Fonction à placer dans un module...Après cela et plus concrètement pour ton exemple, tu inscriras dans une cellule :
=SommeSelonCouleur(A15;6)
ce qui fera la somme des valeurs de toutes les cellules jaunes de la plage A15...
Voilà...normalement tu as tous les renseignements
Bonne programmation
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...
Merci beaucoup ! J'ai eu beaucoup de mal a saisir la subtilité de la macro et du module, mais je pense avoir tout saisi et ça marche !!
Grace à toi je vais enfin pouvoir bosser !
A+