Formule sous condition

Fermé

sev33130 - 19 oct. 2016 à 09:13
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 19 oct. 2016 à 18:15

Bonjour,

J'aurais besoin de trouver une formule me permettant de calculer le nombre de désistement à condition que le nom indiqué dans mes cellules soit écrit en rouge.

Mais j'ai un problème pour vous joindre mon fichier car ma direction a bloqué le site (donc je vous représente grosomodo le tableau (on supposera que les lignes 1, 3 et 8 soient écrites en rouge)
A B C D
1 Mérignac - Au fil des Saisons GUESQUIERE RESEAU 07/03/15
2 Mérignac - Au fil des Saisons LEBEAU RESEAU 07/03/15
3 Mérignac - Au fil des Saisons RAVALLI RESEAU 07/03/15
4 Mérignac - Au fil des Saisons KUDRA V.Levieuze 09/03/15
5 Mérignac - Au fil des Saisons OLIVIERO I.Cormel 12/03/15
6 Mérignac - Au fil des Saisons BISCEGLIE RESEAU 13/03/1
7 Mérignac - Au fil des Saisons QUETTIER RESEAU 13/03/15
8 Mérignac - Au fil des Saisons ROCHER RESEAU 27/03/1

En vous remerciant de votre aide.

Cordialement.

Sev33130

A voir également:

Formule sous condition
Formule excel - Guide
Formule si et - Guide
Excel cellule couleur si condition texte - Guide
Formule moyenne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
19 oct. 2016 à 10:42

Bonjour,

Essaie cette macro :

Sub Comptage_Desistements()
Dim Cel As Range
Dim Cptr As Integer
    For Each Cel In Range("A1", Range("A" & Rows.Count).End(xlUp))
        If Cel.Font.ColorIndex = 3 Then Cptr = Cptr + 1
    Next Cel
    MsgBox "Nombre de désistements : " & Cptr
End Sub

A+

Réponse 2 / 2

sev33130
19 oct. 2016 à 12:25

Bonjour,

Je te remercie pour ta réponse mais je n'y arrive pas.

D'autant plus que dans mon tableau d'origine, les cellules j'ai bien plus de cellules que ce que j'ai indiqué.

Existe t-il un autre lien que ''cjoint.com'' pour envoyer nos fichiers ?

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
19 oct. 2016 à 12:47

Tu ne devrais pas avoir besoin d'envoyer le fichier.
J'ai ajouté des commentaires afin que tu puisses adapter le code.
Si une partie te parait nébuleuse, n'hésites pas à demander des éclaircissements.

Sub Comptage_Desistements()
Dim Cel As Range
Dim Cptr As Integer
    'On balaye les cellules de la la plage renseignée dans la colonne A
    For Each Cel In Range("A1", Range("A" & Rows.Count).End(xlUp))
        'Si la police utilisée est de couleur rouge, alors on incrémente un compteur
        If Cel.Font.ColorIndex = 3 Then Cptr = Cptr + 1
    Next Cel
    'On envoie un message pour indiquer le résultat du comptage
    MsgBox "Nombre de désistements : " & Cptr
End Sub

A+

sev33130 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
19 oct. 2016 à 15:09

nébuleuse dis-tu.... c'est pire que ça.

Je ne comprends pas comment il faut faire ne serait-ce que pour aller balayer les cellules de la place renseignée. Quand je le fais il ne se passe rien

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > sev33130
19 oct. 2016 à 18:15

Quelle est l'opération qui fait que les lignes de désistement sont écrites en rouge (modification par l'opérateur ou mise en forme automatique) ?

Est-ce que les textes des cellules de la colonne A sont en rouge pour les lignes de désistement ?

A+

Discussions similaires

exo pix

Formule Excel : "SI" une cellule contient un mot, alors ?

je veut créer des codes

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters