cellule de couleur & somme ???

  • Initiateur de la discussion Initiateur de la discussion fileofish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fileofish

XLDnaute Occasionnel
Hello, à tous 🙂

Je voulais savoir si il était possible dans le tableau "Base" de griser (ou une autre couleur c'est pas le problème ) des cellules et hop tel un magicien qui sortirait un lapin de son chapeau 😀
ca les enleve de la somme au lieu de passer par l'étape "1" & "résultat"

Fichier à l'appui vous allez comprendre 😉 enfin j'espère 🙂

Merci
@+
Fil 😎
 

Pièces jointes

Re : cellule de couleur & somme ???

Merci Pascal, 😀

Ca a l'air de bien fonctionné... mais lorsque j'enlève la couleur la "vraie" somme ne revient pas (de même lorsque je rajout de la couleur ca ne se met pas à jour)

1/Est ce que tu sais comment il faudrait faire pour que la macro se fonctionne en "permanence"???
Queleque chose de genre for each change in feuil 1 then call Sommesans couleur

2/Pas spécialement par rapport au fchier mais de manière générale est ce qu'il est possible de créer se genre de macro qui s'exécute tt le tps?

Merci encore
Fil 😎
 
Re : cellule de couleur & somme ???

re
Bien Pascal ! je ne connaissais pas cette méthode !?
pour Fileofish, tu peux mettre dans le côté code de ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(1).Calculate
End Sub

lorsque tu clic sur une cellule pour mettre une couleur,
tu clic ailleurs en sortant, peut importe où,
le fait changer de position ton curseur le calcul se refait automatiquement

Roland
 
Re : cellule de couleur & somme ???

😎Merci pour le l'astuce Pascal 😉

Pour le point 1/ Avec F9 ok: tout baigne 😀
pour le point 2/Par contre quand je fais outils personnaliser qu'est ce qu'il faut faire après?

Pour bien comprencre Dans le code que tu m'as envoyé:
Function SommeSansCouleur(MesCellules As Range)

Dim c As Range
Application.Volatile True
For Each c In MesCellules
If c.Interior.ColorIndex = xlNone Then
SommeSansCouleur = SommeSansCouleur + c.Value
End If
Next c


Tu définis "c" comme un ensemble de cellules
Pour chaque ensemble de cellules in "MesCellules" que représente MesCellules.
Ou formulé différement ou as tu défini "MesCellules" pour que Excel comprenne? (je sais pas si g été clair sur ce point là)
La fin est compréhensible Si il n'ya pas de couleur alors la somme des cellules correspond à la valeur représenté dans l'ensemble de cellules...


Dans le fichier en pièce jointe regarde ou se situe mon nouveau probleme...cellule entourée en bleu... (Est -il possible de décomposer la fonction sommeprod en se servant de sommesanscouleur et la fonction produit)?

Ca fait beaucoup de question tt ca 🙄
Merci Pascal
Fil
 

Pièces jointes

Re : cellule de couleur & somme ???

Re

Tu définis "c" comme un ensemble de cellules
Pour chaque ensemble de cellules in "MesCellules" que représente MesCellules.
Ou formulé différement ou as tu défini "MesCellules" pour que Excel comprenne?

Function SommeSansCouleur(MesCellules As Range)
'Ici je declare ma fonction et Mescellules (ce sont les cellules qui seront
'dans ta fonction (exemple =SommeSansCouleur(D4: D8) MesCellules ce sont D4: D8)

Dim c As Range
'Je declare c comme range ici une cellule
Application.Volatile True
' Je declare la fonction volatile pour q'elle se recalcule à chaque modif d'une cellule
For Each c In MesCellules
'Pour toute cellule dans ta plage MesCellules
If c.Interior.ColorIndex = xlNone Then
'si cette cellule n'a pas de couleur interne
SommeSansCouleur = SommeSansCouleur + c.Value
'je rajoute la valeur de la cellule à ma fonction
End If
Next c
 
Re : cellule de couleur & somme ???

Merci Pascal
Ton explication était super claire 😉

1/As tu une idée pour faire correspondre cette somme sans couleur à la sommeprod ou faire une combinaison entre la fonction sanscouleur et produit
2/ pour personnaliser par contre j'ai pas saisi

Trugarez 😉
Fil 😎
 
Re : cellule de couleur & somme ???

re

Pour mettre dans ton perso.xls

Il faut que tu ailles dans VBE (Alt F11) et que tu regardes dans tes projets VBA si tu as un perso.xls. Si c'est le cas tu copies ta fonction dans un module de ce perso.xls

Maintenant ta fonction sera visible dans la liste de tes fonctions

Si tu n'as pas de perso.xls une méthode toute simple pour le faire apparait.
Tu fais outils > macro > nouvelle macro et là dans "enregistrer la macro dans" tu déroules pour choisir "classeur de macros personnelles" puis tu fais 1 ou 2 modif dans ton classeur et tu arrêtes ta macro

Maintenant si tu ouvres VBE tu verras ton perso.xls
N'oublies pas de l'enregistrer quand il te le demandera de le faire à la sortie d'excel

Attention : si ta fonction s'appelle toto tu la trouvera dans la liste des fonction avec les T dans l'ordre alphabétique mais elle se nommera "=PERSO.XLS!toto()"
 
Re : cellule de couleur & somme ???

Bonjour,

Fonction personnalisée matricielle
On veut compter le nombre de cellules rouges contenant Chat

=SOMMEPROD((couleurfond(B2:B10)=3)*(B2:B10="chat"))

Code:
Function couleurFond(champ As Range)
  Application.Volatile
  Dim temp()
  ReDim temp(1 To champ.Count)
  For i = 1 To champ.Count
     temp(i) = champ(i).Interior.ColorIndex
  Next i
  couleurFond = Application.Transpose(temp)
End Function


JB
Formation Excel VBA JB
 

Pièces jointes

Re : cellule de couleur & somme ???

Salut BoisGontier

Déjà un grand merci!!!
(Je viens de rentrer chez moi ce qui peut expliquer mon temps de réponse relativement lent...)

Wow merci encore je pensais même pas que c'était faisable 😱

Est ce que quand tu auras un moment tu pourras m'expliquer les 2 codes car g débuté VBA il ya très peu de temps et j'aimerais "essayer" de comprendre le travail que tu as fais et qui est super intéressant

Je me repenche sur ce code quelque incompréhensible pour moi pour essayer de le décoder 😉

Merci BoisGontier
@+
Fil 😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour