Formule sous condition [Fermé]

sev33130 - 19 oct. 2016 à 09:13 - Dernière réponse : Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention
- 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
Afficher la suite 

5 réponses

Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 19 oct. 2016 à 10:42
0
Utile
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+
0
Utile
3
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 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 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 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 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 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention > 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+