Menu

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
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+