Formule sous condition
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
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
2 réponses
-
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+ -
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 ?-
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+ -
@Gyrusné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 -
@sev33130Quelle 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+
-
