Sujet Précédent Sujet Suivant

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

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 524
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+
0
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 ?
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
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+
0
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
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > 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+
0

Discussions similaires

je veut créer des codes
jonkiller -
Nhhi -

20 réponses
Décalage de formule
nathan01983 -
via55 -

12 réponses
Si cellule contient...
Ludo_du33 -
Ludo_du33 -

3 réponses