calcul du nombre de chifres en rouge ds une plage

[ced91300]

bonjour à tous
etant novice j'ai un peu de mal à comprendre

voila je cherche à calculer dans une colonne (B2 à B50) le nombre de chiffre qui sont marqué en rouge

j'ai essayé plusieurs formules je dois certainement pas les faires correctement ou pas les comprendres non plus😕

je peux egalement m'adapté si faut que se soit la cellule qui soit en rouge plutot que les chiffres pour la formule

merci à tous pour votre réponse

cordialement
cedric

ps: suis novice

 

[Brigitte]

Re : calcul du nombre de chifres en rouge ds une plage

Bonsoir,

La couleur "rouge" résulte t'elle d'une mise en forme conditionnelle, ou vient elle d'un choix manuel... ?

Si cela résulte d'une MFC, il y a sûrement moyen d'adapter en fonction de la même condition : si le résultat est inférieur à tel chiffre, alors mettre en rouge... Donc on pourra faire : somme des cellules si le résultat est inférieur à tel chiffre. C'est une illustration.

Si c'est à la saisie, une somme en fonction de ce critère ne pourra se faire par formule, il faudra passer par une macro.

Bon courage.

 

[job75]

Re : calcul du nombre de chifres en rouge ds une plage

Bonjour à tous,

Cette petite macro compte les cellules contenant des nombres en rouge (code 3) :

Sub NombreRouge()
Dim Cel As Range, i As Long
i = 0
For Each Cel In Range("B2:B50")
If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1
Next
MsgBox i
End Sub

Edit : les couleurs des MFC ne peuvent pas être déterminées (directement) en VBA.

A+

 

[bbanor]

Re : calcul du nombre de chifres en rouge ds une plage

Bonjour à tous,

If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1

A+

Job, Ce que tu veux dire par cette ligne de code c'est que si la cellule dans le range sus mentionné est numérique et que la couleur de la case est rouge alors il faut ajouter cette même ligne à la ligne suivante si elle correspond aux même critères?

PS : Je suis novice en VBA et je cherche à comprendre les code. Autoformation oblige !!!!

 

[JNP]

Re : calcul du nombre de chifres en rouge ds une plage

Bonjour Bbanor, le forum 🙂,
Le code de Job commenté:

Sub NombreRouge()
Dim Cel As Range, i As Long
i = 0
For Each Cel In Range("B2:B50") [COLOR=seagreen]' Va regarder les celules une par une[/COLOR]
If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1 [COLOR=seagreen]' Additionne 1 si la condition est remplie[/COLOR]
Next [COLOR=seagreen]' Suivante[/COLOR]
MsgBox i [COLOR=seagreen]' Affiche donc le nombre de cellules numériques en rouge[/COLOR]
End Sub

Si tu veux l'utiliser dans une cellule:

[COLOR=red]Function[/COLOR] NombreRouge([COLOR=red]MaPlage As Range[/COLOR]) [COLOR=red]As Integer[/COLOR]
Dim Cel As Range, i As Long
i = 0
For Each Cel In [COLOR=red]MaPlage[/COLOR] ' Va regarder les celules une par une
If IsNumeric(Cel) And Cel.Font.ColorIndex = 3 Then i = i + 1 ' Additionne 1 si la condition est remplie
Next ' Suivante
[COLOR=red]NombreRouge =[/COLOR] i ' Renvoie le nombre de cellules numériques en rouge
End [COLOR=red]Function[/COLOR]

Si ce que tu veux, c'est la somme des cellules, il faudra modifier i = i + 1 par i = i + Cel.Value et déclarer NombreRouge As Double et non Integer.
Bonne journée 😎

 

[bbanor]

Re : calcul du nombre de chifres en rouge ds une plage

Merci pour les explications

A plus