Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel recherche de cellules

recherche de cellules

7 réponses
Avatar
pierre
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de cellules
ou apparait une chaine de texte spécifique.en clair dans mon emploi du tems
,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Lydya
Bonsoir Pierre,

Cette procédure teste chaque cellule de la zone contenant des données dans
toutes les feuilles du classeur à partir de la deuxième feuille et affiche
le nombre total d'occurrences du mot mentionné entre guillemets dans le
code.

Sub OccurrencesMotFeuillesMois()
Dim cell As Range
Dim mot As String
Dim occurrence As Long
Dim f As Integer
mot = "vacances"
occurrence = 0
For f = 2 To Sheets.Count
For Each cell In Sheets(f).UsedRange.Cells
If cell = mot Then occurrence = occurrence + 1
Next cell
Next f
MsgBox "Le mot " & mot & " a été trouvé dans " _
& occurrence & " cellules"
End Sub

Si vous souhaitez que le nombre total d'occurrences soit automatiquement
reporté dans une cellule de votre feuille de synthèse (par exemple première
feuille du classeur en A1), remplacez l'instruction MsgBox par :
Sheets(1).Range("A1") = occurrence

Lydya

------------
"pierre" <"pierre52"@tiscali.fr> a écrit dans le message de
news:%
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de
cellules

ou apparait une chaine de texte spécifique.en clair dans mon emploi du
tems

,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses




Avatar
Denis Michon
Bonjour Pierre,

Tu peux copier cette fonction personnalisée dans un module standard :

'---------------------
Public Function StringNumber(SearchString As String)
Dim Nb As Integer
Application.Volatile
For Each Sh In Worksheets
If Sh.Name <> Worksheets(Worksheets.Count).Name Then
With Sh
Nb = Nb + Application.CountIf(.UsedRange, SearchString)
End With
End If
Next
StringNumber = Nb
End Function
'---------------------

Et dans ta feuille 13, inscrire dans la cellule désirée :

=StringNumber("toto") ' toto étant la chaîne à compter !

Attention : Cette fonction suppose que la feuille 13 est la dernière feuille du classeur, sinon , ce sera une référence
circulaire et tu n'obtiendras pas la valeur désirée.


Salutations!


"pierre" <"pierre52"@tiscali.fr> a écrit dans le message de news:%
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de cellules
ou apparait une chaine de texte spécifique.en clair dans mon emploi du tems
,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses
Avatar
Hervé
Salut Pierre,
En variante de la proc de Lydya mais en un peu plus rapide :

Sub Compter()
Dim Fe As Worksheet
Dim Plg As Range
Dim Cel As Range
Dim Adr As String
Dim I As Integer
Dim Chaine As String
For Each Fe In Worksheets
With Fe
Set Plg = .UsedRange
End With
Set Cel = Plg.Find(Chaine, , xlValues)
If Not Cel Is Nothing Then
Adr = Cel.Address
Do
I = I + 1
Set Cel = Plg.FindNext(Cel)
Loop While Cel.Address <> Adr
End If
Next Fe
If I > 0 Then
MsgBox "il y a " & I & _
" cellule(s) qui contiennent " & _
"la chaine : '" & Chaine & "'"
Else
MsgBox "La chaine : '" & Chaine & _
"' na été trouvée dans aucune page !"
End If
Set Cel = Nothing
Set Plg = Nothing
Set Fe = Nothing
End Sub

Hervé.

"pierre" <"pierre52"@tiscali.fr> a écrit dans le message news:
#
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de
cellules

ou apparait une chaine de texte spécifique.en clair dans mon emploi du
tems

,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses




Avatar
pierre
merci àtous pour votre aide vous êtes formidable
un dédutant néophite qui essaie d'apprendre
pierre <"pierre52"@tiscali.fr> a écrit dans le message :
#
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de
cellules

ou apparait une chaine de texte spécifique.en clair dans mon emploi du
tems

,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses




Avatar
Philippe.R
Bonsoir Pierre,

Puisque tu es aussi formidable (Jaboune, déjà le disais....) et que tu aimes apprendre, voici une copie
du célèbre Message de Bienvenue rédigé par Monique (dont nous attendons tous le très prochain nouveau
retour), il présente une belle collection de références qui devraient t'aider à progresser.

"====================================================================="
bienvenue sur mpfe :-)

Sur les sites proposés dans ce message d'accueil, tu découvriras des
cours (avec ou sans VBA), des classeurs d'exemples à télécharger, des
macros, des trucs et astuces... de nombreux exemples d'utilisation de
formules :

http://www.excelabo.net/xl/formules.htm
http://longre.free.fr/pages/form/index.html
http://dj.joss.free.fr/faq.htm#fonctionjjh
http://www.excelabo.net/xl/broll.htm
http://www.polykromy.com/html/cours_app.html

des solutions et explications aux problèmes d'impression sur ces pages :

http://www.excelabo.net/xl/imprimer.htm
http://dj.joss.free.fr/imprim.htm
http://dj.joss.free.fr/faq.htm
http://jacxl.free.fr/cours_xl/Impression.html


Pour connaître les habitudes de mpfe (et les erreurs à éviter, comme les
fichiers joints...), tu peux lire ces messages publiés régulièrement
ici, avec l'un de ces intitulés
- FAQ MPFE http://dj.joss.free.fr/netiquet.htm (nétiquette, conseils...)
- [Charte] du forum MPFE http://minilien.com/?9Ag3gXpmA4
et consulter cette page
http://www.excelabo.net/mpfe/connection.htm
(connexion,conseils...), à consulter absolument si tu suis le forum
depuis un site web (la solution la moins efficace et la moins
confortable) ou avec le serveur de Wanadoo (très peu performant quant au
délai d'affichage et au nombre de messages publiés).
Le serveur à utiliser : news.microsoft.com - ou cliquer directement sur
news:microsoft.public.fr.excel

Pour les débutants, voilà 5 bons trucs pour apprendre vite :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum

Voici la liste des sites dédiés à Excel, réalisés par des mpfie(ne)s et
que nous devons tous avoir dans nos favoris.
Débutant ou utilisateur confirmé, tu y trouveras de quoi apprendre,
progresser et résoudre bien des problèmes.
(la date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 14/09/03 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo), une page débutants
http://www.excelabo.net/xl/debuter.htm ** 13/09/03 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", des classeurs à télécharger, un glossaire, une page débutants,
des jeux en VBA... et un méta-moteur de recherche sur 6 sites de cette
liste...
mais aussi tout ce qui fait "l'esprit mpfe", les perles, les gifs...
et,sur http://fotoflo.free.fr/ les photos des soupers/dîners de mpfe
http://longre.free.fr/ ** 19/03/03 **
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 01/03/03 **
le site de : les graphiques, la bourse, le Web, un cours VBA, un
moteur de recherche à la page Aide... et le trombinoscope des
mpfien(ne)s
http://ericrenaud.free.fr/index.html ** 18/06/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://perso.wanadoo.fr/frederic.sigonneau ** 10/03/03**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/web.htm ** 24/04/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 21/01/02 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé sans VBA... (cours à télécharger)
http://www.ilyapa.net/excel/ ** 22/05/02 **
le site de Pascal : procédures VBA, composants par
l'exemple,calendriers, jeux
http://intendant.free.fr/ ** 13/03/02 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 22/06/03 **
le site de Gaëtan : cours sur Excel sans VBA, les couleurs, des astuces
animées...
http://www.gaboly.com ** 05/02/03 **
le site de Michel, cours Excel et VBA (avec un Mac)...
http://www.excel-downloads.com ** 06/07/03 **
le site de David, des programmes Excel à télécharger
http://mapage.noos.fr/pnoss/excel.html ** 23/08/02 **
le site de Philippe, trucs et astuces, Exoutils (barre d'outils pour
Excel à télécharger)...
http://www.champey.com/
le site de Patrice : les langages de programmation (VB, VBS et VBA)
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.fundp.ac.be/~jmlamber/
le site de Jean-Marie : initiation VBA, TCD, listes, solveur...
http://www.ibelgique.com/OfficeAssistant ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm ** 15/12/01 **
le site de Cathy : cours Excel avec ou sans VBA...
http://perso.wanadoo.fr/jean.duprat
le site de Papy Jean : fiches Excel pour débutants...
http://www.ifrance.com/fleguen/excel.html
le site de Konga : des classeurs d'exercices (fonctions, macros)


Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
(télécharger: wc0993.exe)

Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/
officedev/infotech/MacroXLtoVBA.html
(le lien tient sur plusieurs lignes, il se termine par html)
ou http://minilien.com/?5vyhNUG62R

Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Je me suis aperçu que Google fonctionnait très mal quand on fait une
recherche avec un nom qui contient des accents. Il semble donc
préférable d'utiliser l'adresse électronique comme nom d'auteur.
Auteur => 3.450 messages
Auteur Clément Marcotte => 1 message
Auteur Clément_Marcotte => 0 message ---

Bonne lecture et à bientôt sur mpfe.

"==================================================================="
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"pierre" <"pierre52"@tiscali.fr> a écrit dans le message de
news:
merci àtous pour votre aide vous êtes formidable
un dédutant néophite qui essaie d'apprendre
pierre <"pierre52"@tiscali.fr> a écrit dans le message :
#
bonsoir à tous,
dans un classeur xl2000 oufigurent 13 feuilles (1 par mois avec 1 tableau
par semaine soit 4 ou 5 ) et une feuille de synthèse qui récapitule les 12
feuilles de mois. je cherche un moyen de compter le nombre total de
cellules

ou apparait une chaine de texte spécifique.en clair dans mon emploi du
tems

,je cherhe à savoir combien de fois le mot vacances est inscrit.
en espérant avoir été clair, je remercie de vos réponses








Avatar
sabatier
vaut peut-être mieux parler d'Arthur, de Delarue ou de Drucker, ça fait
déjà plus jeune, philippe, non?
j(nohain)ps

"Philippe.R" wrote:

Bonsoir Pierre,

(Jaboune, déjà le disais....)


Avatar
Philippe.R
vaut peut-être mieux parler d'Arthur, de Delarue ou de Drucker
Ils disent qu'on est formidable ces jeunots ?

Mais je vois que tu te souviens ! ;o))))
--
Amicales Salutations

"sabatier" a écrit dans le message de news:
vaut peut-être mieux parler d'Arthur, de Delarue ou de Drucker, ça fait
déjà plus jeune, philippe, non?
j(nohain)ps

"Philippe.R" wrote:

Bonsoir Pierre,

(Jaboune, déjà le disais....)