A voir également:
- [Excel]Fonction compter mots en rouge
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
11 réponses
;-)
Si le problème est de compter le cellules dont le contenu est en rouge, il n'y a pas de fonction Excel pour cela, par contre, en VBA Excel, tu peux récupérer...
---------------------------------------------------------------------------
Sub CompterCellulesRouges()
Dim Cpt, L
Cpt = 0
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
If Cells(L, ActiveCell.Column).Font.ColorIndex = 3 Then Cpt = Cpt + 1
Next
MsgBox "Il y a dans cette colonne " & Cpt & " cellules dont le contenu est en rouge..."
End Sub
--------------------------------------------------------------------------
;-)
Wild and Free
Si le problème est de compter le cellules dont le contenu est en rouge, il n'y a pas de fonction Excel pour cela, par contre, en VBA Excel, tu peux récupérer...
---------------------------------------------------------------------------
Sub CompterCellulesRouges()
Dim Cpt, L
Cpt = 0
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
If Cells(L, ActiveCell.Column).Font.ColorIndex = 3 Then Cpt = Cpt + 1
Next
MsgBox "Il y a dans cette colonne " & Cpt & " cellules dont le contenu est en rouge..."
End Sub
--------------------------------------------------------------------------
;-)
Wild and Free
Bonjour à tous.
J'ai bien peur que tu ne puisses pas faire ça, non.
A moins, bien évidemment, que la couleur du 'OK' soit déterminée automatiquement en fonction de la valeur d'une autre cellule. Mais au vu de ta question, il semblerait que ça ne soit pas le cas.
Si j'ai bien compris, c'est toi qui choisis manuellement la couleur du texte lors de la saisie, c'est ça ?
(:•Þ Pitu
J'ai bien peur que tu ne puisses pas faire ça, non.
A moins, bien évidemment, que la couleur du 'OK' soit déterminée automatiquement en fonction de la valeur d'une autre cellule. Mais au vu de ta question, il semblerait que ça ne soit pas le cas.
Si j'ai bien compris, c'est toi qui choisis manuellement la couleur du texte lors de la saisie, c'est ça ?
(:•Þ Pitu
Bien vu, Pitu.
=> MG : En effet, si la couleur est définie arbitrairement par l'utilisateur, pour "faire joli", y'a rien à faire.
Par contre, si la couleur est définie en fonction de la valeur de cette cellule, générée par la "mise en forme conditionnelle", là il suffit de se baser sur les paramètres de cette mise en forme conditionnelle pour trouver le nombre de cellules correspondant.
-=O(_BmV_)O=-
|| || "SamTheEagle pétaradant"
=> MG : En effet, si la couleur est définie arbitrairement par l'utilisateur, pour "faire joli", y'a rien à faire.
Par contre, si la couleur est définie en fonction de la valeur de cette cellule, générée par la "mise en forme conditionnelle", là il suffit de se baser sur les paramètres de cette mise en forme conditionnelle pour trouver le nombre de cellules correspondant.
-=O(_BmV_)O=-
|| || "SamTheEagle pétaradant"
je voudrais simplemt utiliser une fonction qui compte les cellules dans lesquelles il y a écrit : OK (mais slmt ls OK écrit en rouge)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Des cellules, y'en a un paquets ! Tu travailles sur un logiciel, lequel ???
On ne peut pas deviner !
Kalamit,
La nuit, tous les chats sont gris. Pas les poulets ! :@)
On ne peut pas deviner !
Kalamit,
La nuit, tous les chats sont gris. Pas les poulets ! :@)
avec XLS 97; uniquemt pour une plage de cell com je ls dit ds le 1er msge. Exem : ds la plge A1:E1 si OK est écrit en rge ds B1 et D1 alors le résult sera 2 (c à d ds cette plge il y a 2 cell qui st B1 et D1 dans lsquelles OK est écrit en rouge)
Désolé, je ne trouve pas de fonctions pour retourner la couleur du texte d'une cellule.
C'est peut etre possible, mais je ne connais pas.
Kalamit,
La nuit, tous les chats sont gris. Pas les poulets ! :@)
C'est peut etre possible, mais je ne connais pas.
Kalamit,
La nuit, tous les chats sont gris. Pas les poulets ! :@)
Salut,
Adaptes un peu ceci et dis-moi si ca répond à ta question (l'important étant évidemment le colorindex):
Function Red()
Dim j As Long
For j = 1 To 4
Range("A" & j).Select
If Selection.Font.ColorIndex = 3 Then
Cells("1", "B") = Cells("1", "B") + 1
End If
Next j
End Function
ciao
dEUS
There's no success like failure
And failure's no success at all
Adaptes un peu ceci et dis-moi si ca répond à ta question (l'important étant évidemment le colorindex):
Function Red()
Dim j As Long
For j = 1 To 4
Range("A" & j).Select
If Selection.Font.ColorIndex = 3 Then
Cells("1", "B") = Cells("1", "B") + 1
End If
Next j
End Function
ciao
dEUS
There's no success like failure
And failure's no success at all
Merci à tous apparemment je ne crois pas qu'il existe de fonctions, même imbriquées pour ce que je souhaite faire. Il faut que je passe par ls macros. Je vais donc me pencher dessus ce week-end, car je ne sais pas trop les manipuler.
Salut a tous,
Mon Pb est un peu différent à savoir que moi je veux compter le nombre de mot identiques (ex: OK) contenus dans une colonne.
J'ai essayé avec =somme.si en ayant pris soin de sélectionner les cellules auparavant mais je ne peux pas aller plus loin.
Je n'utilise excel que très rarement...
Merci d'avance pour vos lumières.
Mon Pb est un peu différent à savoir que moi je veux compter le nombre de mot identiques (ex: OK) contenus dans une colonne.
J'ai essayé avec =somme.si en ayant pris soin de sélectionner les cellules auparavant mais je ne peux pas aller plus loin.
Je n'utilise excel que très rarement...
Merci d'avance pour vos lumières.
Bonjour,
voici ma solution:
Cas: Je souhaitai connaître le nombre de dossiers en fonction de leur type dans une feuille "dossier"
Il suffit d'adapter
Dim ValAChercher
Dim MaCell As Range, PremCell As Range
ValAChercher = InputBox("Type de dossier :")
Cpt = 0
With Worksheets("dossiers").Range("c1:c50000")
Set MaCell = .Find(ValAChercher, LookIn:=xlValues)
If Not MaCell Is Nothing Then
Set PremCell = MaCell
Do
Cpt = Cpt + 1
Set MaCell = .FindNext(MaCell)
Loop While Not MaCell Is Nothing And Not MaCell.Address = PremCell.Address
End If
End With
MsgBox "Dossiers de " & ValAChercher & ": " & Cpt
End Sub
voici ma solution:
Cas: Je souhaitai connaître le nombre de dossiers en fonction de leur type dans une feuille "dossier"
Il suffit d'adapter
Dim ValAChercher
Dim MaCell As Range, PremCell As Range
ValAChercher = InputBox("Type de dossier :")
Cpt = 0
With Worksheets("dossiers").Range("c1:c50000")
Set MaCell = .Find(ValAChercher, LookIn:=xlValues)
If Not MaCell Is Nothing Then
Set PremCell = MaCell
Do
Cpt = Cpt + 1
Set MaCell = .FindNext(MaCell)
Loop While Not MaCell Is Nothing And Not MaCell.Address = PremCell.Address
End If
End With
MsgBox "Dossiers de " & ValAChercher & ": " & Cpt
End Sub