Sommer des cellules suivant un format ?

Tiboo -  
Raymond PENTIER Messages postés 58991 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
A voir également:

5 réponses

Réponse 1 / 5
wilfried_42 Messages postés 907 Date d'inscription   Statut Contributeur Dernière intervention   245
 
Bonjour

D'ou proviennents ces couleurs ? d'une MFC pour pas la palette ?
0
Réponse 2 / 5
Tiboo
 
les couleurs proviennent de la palette, elles ont été saisies manuellement
0
Réponse 3 / 5
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
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   Statut Contributeur Dernière intervention   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

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

Posez votre question
Réponse 5 / 5
Raymond PENTIER Messages postés 58991 Date d'inscription   Statut Contributeur Dernière intervention   17 358
 
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