Sommer des cellules suivant un format ?

Tiboo -  
Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   -
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
Configuration: Windows XP
Firefox 3.0.1

5 réponses

  1.
    wilfried_42 Messages postés 912 Statut Contributeur 245
     
    Bonjour

    D'ou proviennents ces couleurs ? d'une MFC pour pas la palette ?
    0
  2. Tiboo
     
    les couleurs proviennent de la palette, elles ont été saisies manuellement
    0
  3. m@rina Messages postés 27617 Date d'inscription   Statut Modérateur Dernière intervention   11 563
     
    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
  4. wilfried_42 Messages postés 912 Statut Contributeur 245
     
    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

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

    Posez votre question
  6. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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