Compter du texte

Version imprimable

01/10/2007, 17h23
Glawdys

Compter du texte

Bonjour,

j'ai une base de données dans laquelle se repète 4 ou 5 mots (catalogues, internet, magasins..). J'ai besoin de compter le nombre de fois où le mot "catalogues" a été saisi
Y a t il une macro que je puisse développer pour cela?
Merci

bonjour, et bienvenue sur le forum

le "mot" est répété sur la meme ligne, la meme colonne , sur une ou plusieurs feuilles ?
sinon tu peux utiliser la fonction find
et un exemple
Citation:
Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 dans la feuille de calcul Worksheet 1 contenant la valeur 2 et comment la remplacer par la valeur 5.
Code:

1 2 3 4 5 6 7 8 9 10 With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

02/10/2007, 15h10
Glawdys

meric pour l'accueil,

en fait les "mots" se répétant se trouvent dans mes colonnes D,E,F
je vais tester ce que vous m'avez déjà envoyé

merci
02/10/2007, 20h30
fred65200

bonsoir,

par macro

Code:

NbCatalogue = Application.CountIf(Range("$D:$F"), "catalogue")

sur ta feuille la formule

Code:

=NB.SI($D:$F;"catalogue")

@+
02/10/2007, 23h18
ouskel'n'or

Hello fred, je me permets de faire une petite correction à ton code (sans doute un oubli ;) )

Code:

NbCatalogue = Application.WorksheetFunction.CountIf(Range("$D:$F"), "catalogue")
02/10/2007, 23h23
fred65200

Non, ce n'est pas un oubli,
jusqu'à présent je n'ai jamais utilisé la syntaxe
Application.WorksheetFunction.FORMULE

et j'ai toujours eu le résultat escompté.

Il y a certainement une nuance mais je ne la connais pas.
02/10/2007, 23h34
ouskel'n'or

Tu as quelle version ?
02/10/2007, 23h38
fred65200

J'ai utilisé Office 98 et Office X sur Mac,
Office Xp et actuellement Office 2007 sur PC.
02/10/2007, 23h53
ouskel'n'or

Je viens de tester (2003 sur PC) et c'est ok ! Autant pour moi, avec les fonctions Excel, j'utilise toujours WorksheetFunction, sans doute une réminiscence d'office 97.
Ce soir j'ai aussi appris quelque chose. Pourquoi il n'y aurait que toi ? :mouarf:
(Echange "boolean" contre "WorksheetFunction")
Donc, merci ;)
A+
03/10/2007, 14h41
Glawdys

Merci à vous deux pour vos aides!!
:yaisse2: