Bonjour,
comment additionner toutes les cellules colorées en bleu et contenant une valeur monétaire situées dans la plage A9:F30 ?
nb: dans cette plage il y a toute sorte de cellules : des cellule jaune, des cellules vides, des cellules bleu avec une date, des cellules bleue avec une valeur monétaire.
si quelqu'un a la solution : merci de me l'indiquer car je séche !
JE crois que FMatrix07 décrit point par point la fonction que j'ai donné juste un peu avant...
Pour le message d'erreur d'Excel, c'est un pb d'installation de toute évidence. IL faudrait réinstaller les fichiers d'aide de VBA + VBA, je pense. Car on peut rien faire d'autre, pour remettre cela d'aplomb...
De plus, il est essentielle que cela fonctionne pour profiter pleinement d'Excel...
Voici une petite function spécifique qui devrait résoudre votre problème :
Function SumPerso() As Double
Dim c As Long, l As Long
For c = 1 To 6
For l = 9 To 30
With Cells(l, c)
If .Interior.ColorIndex = 5 And _ .Style "Currency" Then SumPerso SumPerso + .Value
End With
Next l, c
End Function
D'ailleurs, elle serait intéressante une fois généralisée...
Tu dois
- Faire une macro qui test la couleur de la cellule avec un retour a vrai si bleu et contenu monétaire
- Faire une macro qui passe sur toutes les cellules de ta plage en faisant appel à la premiere macro si celle ci est vrai faire ResultatSomme = ResultatSomme + Cellule active
Sinon fourni un fichier xls en exemple je t'écrirais les macros
La fonction semble être la solution la + courte et la + rapide à réaliser mais, je ne suis pas trés à l'aise avec les fonctions et chaque fois que je veux m'en servir, il y a un message d'erreur qui me dit : " Excel ne trouve pas les arguments de cette fonction, le fichier d'aide n'est pas installé ".
Si je n'arrive pas à utiliser la fonction je mettrais en place la solution proposé par "photo de moto"(!!).
J'aimerais quand même arriver à installer la fonction car ce n'est pas la première fois que je me heurte à ce problème (en fait, j'ai toujours ce message d'erreur chaque fois que j'ai essayé de créer une fonction).
