Sujet Précédent Sujet Suivant

Sommer des cellules suivant un format ?

Fermé
Tiboo - 14 sept. 2008 à 09:55
Raymond PENTIER Messages postés 58876 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 4 mars 2025 - 15 sept. 2008 à 02:38
Bonjour,

dans un tableau xls je voudrais ajouter des cellules répondants a 2 critères
Pour faire la somme il faut que :
La valeur de la cellule doit être écrite en rouge sur un fond jaune

Merci de votre aide
A voir également:

5 réponses

Réponse 1 / 5
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
14 sept. 2008 à 10:57
Bonjour

D'ou proviennents ces couleurs ? d'une MFC pour pas la palette ?
0
Réponse 2 / 5
Tiboo
14 sept. 2008 à 16:24
les couleurs proviennent de la palette, elles ont été saisies manuellement
0
Réponse 3 / 5
m@rina Messages postés 21661 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 2 mars 2025 11 405
14 sept. 2008 à 18:06
Bonjour,

Il y a plusieurs jaunes et plusieurs rouges ! Chaque couleur correspond à un numéro. Il faut donc déjà connaître les numéros de ces couleurs.
Ensuite créer une fonction (sub function) (car compter les cellules colorées ou tramées n'existe pas basiquement dans Excel) et utiliser cette fonction avec un SI.

m@rina
0
Réponse 4 / 5
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
14 sept. 2008 à 19:50
re:

voici une fonction pour nombrer les couleurs 

Function nb_color(plage as range, couleur as variant, optional coul_car as integer = -1)
      dim coula as integer, cel as range, pnt1 as byte, pnt2 as byte
      application.volatile
      if typename(couleur) = "Range" then 
              coula = couleur.interior.colorindex
              coul_car = couleur.font.colorindex
      else
              coula = couleur
      end if
      for each cel in plage
            pnt1 = 0 : pnt2 = 0
            if cel.interior.colorindex = coula then pnt1 = 1
            if coul_car>-1 then
                  if cel.font.colorindex  = coul_car then pnt2 = 1
            end if
            if pnt1*pnt2 = 1 then nb_color = nb_color + 1
      next
end function


utilisation de la fonction 2 syntaxes
=nb_color(laplage à compter; couleur de fond; couleur de caractere)

mais tu ne connais pas formcement les codes couleurs donc 2eme syntaxe
=nb_color(la plage à compter; cellule de reference)
de la cellule de reference sont recupérées : la couleur de fond, la couleur de caractere

cette fonction est à placer dans un module standard du VBA : ALT + F11

Un precision : colorer les cellules à l'aide de la palette ne provoque pas le recalcul automatique de la feuille
l'tutilisation du pinceau pour affecter un format à une plage conforme au format d'une cellule provoque le recalcule de la feuille
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Raymond PENTIER Messages postés 58876 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 4 mars 2025 17 293
15 sept. 2008 à 02:38
Un conseil : En même temps que tu mets manuellement une couleur dans ta cellule, mets également un code (comme RJ pour "police rouge sur fond jaune") dans la cellule voisine (quitte à insérer une colonne que tu pourras masquer ensuite).
Tu feras tes sommes conditionnelles à partir des codes, et non des couleurs. C'est beaucoup plus simple.
0