rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[Excel]Fonction compter mots en rouge

Posté par MG, le vendredi 25 avril 2003 à 13:47:47
Bonjour

Est-il possible de compter uniqumt ds cellules qui contiennent ds mots en rouge. Du style NOMBRE.SI(A1:E1;"ok"(mais ls ok qui st en rouge seulemt)
de sorte si ds B1 et D1 il y a des "ok" en rouge , alors le résultat sera 2.

Merci
Répondre à MG  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
kalamit, le vendredi 25 avril 2003 à 13:52:23
Bonjour,
De quoi parles tu ?

Kalamit,
La nuit, tous les chats sont gris. Pas les poulets ! :@)
   
Répondre à kalamit

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
MG, le vendredi 25 avril 2003 à 13:58:59
je voudrais simplemt utiliser une fonction qui compte les cellules dans lesquelles il y a écrit : OK (mais slmt ls OK écrit en rouge)
   
Répondre à MG

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
kalamit, le vendredi 25 avril 2003 à 14:03:30
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 ! :@)
   
Répondre à kalamit

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
MG, le vendredi 25 avril 2003 à 14:13:24
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)
   
Répondre à MG

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
kalamit, le vendredi 25 avril 2003 à 14:24:59
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 ! :@)
   
Répondre à kalamit

6


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
Pitu, le vendredi 25 avril 2003 à 14:26:50
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
   
Répondre à Pitu

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
BmV, le vendredi 25 avril 2003 à 14:38:33
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"
   
Répondre à BmV

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
deus, le vendredi 25 avril 2003 à 14:50:19
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
   
Répondre à deus

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
WhiteFang, le vendredi 25 avril 2003 à 15:17:48
;-)

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
   
Répondre à WhiteFang

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
MG, le vendredi 25 avril 2003 à 17:07:20
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.
   
Répondre à MG

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
txiki, le vendredi 3 février 2006 à 15:47:18
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.
Le bonheur est la seule chose que l'on peut donner sans l'av­oir.
   
Répondre à txiki

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
cesova, le mercredi 14 juin 2006 à 12:56:00
bonjour,

Peut-être NB.SI
   
Répondre à cesova

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 phil, le vendredi 12 octobre 2007 à 16:29:28
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
   
Répondre à phil
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Anti yeux Rouges 26/05/2004Anti yeux Rouges - Anti Yeux Rouges est un logiciel très simple permettant uniquement de corriger les yeux rouges sur une photo en quelques...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger Compta One V3Compta One - Ce logiciel de comptabilité gratuit est la solution idéale pour vos applications courantes. Des fonctionnalités avancées...Catégorie: Comptabilité/Paie
Licence: Freeware/gratuit
Télécharger Grisbi 0.5.9Grisbi - Grisbi est un logiciel de comptabilité personnelle sous licence GPL. Grisbi est un programme écrit par des français et il...Catégorie: Budget
Licence: Open Source
Plus de logiciels gratuits sur « [Excel]Fonction compter mots en rouge »