IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fonction max selon couleur cellules [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Octobre 2011
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Octobre 2011
    Messages : 12
    Par défaut Fonction max selon couleur cellules
    Bonjour,

    Je souhaiterais créé une formule pour calculer sur une plage donnée la valeur max uniquement sur les cellules d'une couleur définie manuellement.

    Pour faire la somme des cellules rouges (par exemple) sur une plage donnée, je sais comment faire, mais pour faire le min ou max de ces mêmes cellules sur la même plage......

    Merci d'avance !

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Et comment fait-tu pour la somme ?

  3. #3
    Membre averti
    Homme Profil pro
    profession libérale
    Inscrit en
    Octobre 2011
    Messages
    49
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : profession libérale
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2011
    Messages : 49
    Par défaut
    Bonjour,
    en bricolant une fonction de comptage de couleurs, ça devrait fonctionner :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Function ColorCountInt(SearchArea As Object, BgColor As Range) As Integer
    Application.Volatile True
    ColorCountInt = 0
    MaCoul = BgColor.Interior.ColorIndex
    For Each cell In SearchArea
    If cell.Interior.ColorIndex = MaCoul and cell.value> ColorCounInt Then ColorCountInt = ColorCountInt + cell.value
    Next cell
    End Function
    Re,
    navré, j'ai répondu trop vite : ici, la valeur de toute cellule (rouge par ex) qui aura une valeur supérieur aux cellules comptées précédentes s'ajoutera, dons tu n'auras pas la valeur maxi prise par une cellule rouge : plutôt mettre la formule :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If cell.Interior.ColorIndex = MaCoul and cell.value>ColorCountInt Then ColorCountInt = cell.value
    Là, cell.value remplacera la valeur prise par colorcountint à chaque fois que la cellule testée aura une valeur supérieur.

  4. #4
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Octobre 2011
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Octobre 2011
    Messages : 12
    Par défaut
    Merci darkvadave, ta réponse était ma solution de départ, mais je la trouvais un peu lourde. Je pensais qu'un truc plus simple qu'une boucle existait.

    Donc je pars sur cette soluce.

    Thanks

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Couleur commentaire selon couleur cellule autre feuille
    Par Baldurr dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 14/07/2010, 15h49
  2. Pb fonction max pour une cellule
    Par fmris dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 22/11/2006, 15h12
  3. Grouper selon couleur de fonds des cellules
    Par vinfranaur dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 16/08/2006, 10h02
  4. Changement couleur cellule EXCEL en fonction du texte
    Par kikaillo dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 14/04/2006, 14h22
  5. [SQL Server 8] fonction Max --- selon des conditions
    Par Baquardie dans le forum Langage SQL
    Réponses: 2
    Dernier message: 31/01/2006, 21h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo