Signaler

Formule sous condition

Posez votre question sev33130 - Dernière réponse le 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 
Utile
+0
moins plus
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+
Ajouter un commentaire
Utile
+0
moins plus
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 3333Messages postés samedi 20 juillet 2013Date d'inscription 7 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+
Répondre
sev33130- 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
Répondre
Gyrus 3333Messages postés samedi 20 juillet 2013Date d'inscription 7 décembre 2016 Dernière intervention - 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+
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !