Problème de cohérence code couleur, somme de cases colorées
Bonjour a tous,
J'ai eu un peu du mal à nommer correctement mon sujet, alors veuillez m'excuser par avance si vous trouvez que le nom n'est pas approprié.
J'ai récemment trouvé une macro pour sommer des cases de la même couleur.
J'ai voulu la modifier en changeant les couleurs (en gras les codes couleurs qui ont changé)
J'ai donc récupéré les couleurs en enregistrant une macro dans laquelle je colorie une case manuellement, enregistrement que j'arrète une fois la tâche de remplissage éffectuée. (je ne sais pas si je suis clair..)
Mon problème est que la somme fonctionne uniquement avec les couleurs rouge, et jaune (que je n'ai pas changé par rapport à la macro d'origine)
J'ai testé en changeant les noms affectés aux couleurs, aucun résultat..
Je sèche complètement.
Serait-ce la procédure que j'ai utilisé qui génère un mauvais code couleur?
Ci dessous la macro de sommation de cellules coloriées
Function SomCool(Zne As Range, Couleur As String)
End Function
Merci d'avance à ceux qui auront le temps de s'attarder à mon problème.
Je joins un fichier simple pour exemple.
Cordialement
Bonjour
Tes codes couleur dans la macro sont erronés
Par exemple, le Code pour Rouge est 3, le jaune 6
Change les codes
Un petit fichier avec les codes
Cordialement
Merci encore pour votre réponse,
Cependant, j'aimerais bien comprendre pourquoi quand j'enregistre une macro dans laquelle je colorie la page, et qu'ensuite je fait Macro->Pas à pas détaillé, je retrouve le code couleur suivant, qui ne fonctionne pas (pour la couleur orange), et non le code que vous m'avez transmis, qui fonctionne (si cela ne vous dérange pas de m'expliquer où cela coince)
Sub Macro1()
' Macro1 Macro
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Merci encore
Cordialement
Bonjour
Comment expliquer?
Mon excel 2003 ne reconnait pas le code couleur '9407
Cordialement