Addition avec Couleur

Résolu
Karine -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Comment peut-on additionner le nombre de cellules d'une colonne contenant un texte en supprimant les cellules colorées ?
Ex :
=NB.SI(C4:C72;"AM") => calcul le nmbre de cellules contenant "AM"
=NB.SI(C4:C72;"AM")-NB.SI(C4:C72;"critère pour couleur???)

Merci de me donner vos propositions

7 réponses

  1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Est-ce que la couleur d'une cellule est attribuée selon critère?
    0
  2. Karine
     
    Non, la couleur d'une cellule n'est pas attribuée selon un critère.
    0
  3. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Dans se cas vous devez passer par VBA.
    Pour quelle raison la cellule est colorée ?
    0
  4. Karine
     
    Bonjour,
    Je ne connaîs pas VBA
    Sur une colonne, je voudrais savoir combien de cases sont notées "AM" (par exemple) sans compter celles qui sont colorées ou mouchetées. (Sans compter certaines cases précises que je peux distignuer en les colorants)
    Sinon, pour faire autrement,
    Peux-t-on demander l'addition du nombre de cases notée "AM" pour les cases L4:L9, L10:L17 ET L 20:L47 ?
    Vous remerciant par avance pour votre aide précieuse
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour

    pour la couleur, je pense que vous aurez des propositions de macro sous peu;
    quant à votre question sur les trois champs, la réponse est simple:
    NB.SI(Champ1,code)+NB.SI(Champ2;CODE)ETC....autant que vous voulez

    crdlmnt
    0
  7. Karine
     
    Un gand merci,
    Vous n'imaginez pas le gain de temps que cela va m'apporter
    0
  8. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Pour compter les cellules de la plage L4:L17 ET L 20:L47 contenant AM, plusieurs possibilités
    Un petit code tout simple à coller dans les propriétés de la feuille
    (clic droit sur l'onglet de feuille/Visualiser le code) dans la partie blanche coller ce code

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cel As Variant
    Dim i As Long
    i = 0
    If Intersect(Target, [L4:L17,L20:L47]) Is Nothing Then Exit Sub
    For Each Cel In [L4:L9,L10:L17,L20:L47]
    If Cel.Interior.ColorIndex = xlNone And Cel.Value = "AM" Then i = i + 1
    Next
    MsgBox "Nombre de cellules sans motif contenant AM : " & i
    End Sub


    il est possible d'avoir le compte dans une cellule à la place d'avoir une boite de dialogue (msgbox) il suffit de savoir laquelle !

    Il est également possible de déclencher le comptage à partir d'un bouton ou de tout autre action sur la feuille reste à la définir. Ce code est déclenché dès qu'une saisie est opérée dans la plage L4:L9, L10:L17 ET L 20:L47

    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0