Additionner des cellules de couleurs?
Bonjour à tous,
Je voudrais savoir s'il est possible d'additonner des cellules de couleur,je joint un classeur pour exemple.
J'attends vos réponses,merci d'avance.
cordialement.
Ritchiman
Bonjour
Tu passes par une MFC pour la couleur de tes cellules. Quand tu inscris le chiffre 1 dans la cellule, elle devient jaune.
Sélectionne de B3 à M27
MFC
La valeur de la cellule est égale à 1
Police jaune + remplissage jaune
Il ne te reste plus qu'à faire une somme :
=SOMME(B3:B27)Amicalement
Nad
Bonjour
Bonjour Nad
.../...ou tu fais avec une Macro
Code de feuil1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End SubCode dans un Module
Function SomCoul(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "jaune"
Couleur = 6
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
Next
SomCoul = cvSomme
End FunctionCordialement
Merci de ta réponse rapide,mais comme tu peux le voir su l'exemple il n'y a aucun chiffre dans les cellules ,je veux juste additionner celles qui sont colorées.
Cordialement.
ritchiman
Re
Ben oui, j'ai vu qu'il n'y en avais pas puisque ma solution était d'en mettre un ce qui te colorait la case en jaune !
Utilise la macro d'Amadeus
Nad
Rebonjour,
j'ai oublié de notifier que je suis débutant avec excel.Qu'est ce que "la macro d'Amadeus"
Cordialement
Ritchiman
-- Ven Fév 18, 2011 12:58 pm --
Je suis nul!!!
Amadéus excuse moi
Ritchiman
Re, bonjour
Tu ouvres le fichier
Touches Alt puis F11
cela t'ouvre l'editeur VBA
Dans l'Editeur, tu Double-cliques sur Feuil1 et le Code s'affiche
si tu Double-Cliques sur Module1, idem
Cordialement