Nombre de feuilles où apparaît un mot

Fermé
Tony - 5 oct. 2016 à 16:29
 Tony - 11 oct. 2016 à 13:53
Bonjour,

Je souhaiterais savoir si il est possible de comptabiliser le nombre de feuilles (et non pas de fois) où apparaît un mot de mon fichier EXCEL. La fonction ctrl+F permet de connaitre les onglets où sont présents le mot mais j'aimerais implémenter une méthode plus rapide et automatique pour compter.

En vous remerciant d'avance pour votre aide!
Tony

A voir également:

2 réponses

Raymond PENTIER Messages postés 58731 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 novembre 2024 17 243
Modifié par Raymond PENTIER le 5/10/2016 à 17:03
Je simplifie ma première proposition :

=NB.SI(Feuil1!1:9999;"mot")*1+NB.SI(Feuil2!1:9999;"mot")*1+NB.SI(Feuil3!1:9999;"mot")*1+NB.SI(Feuil4!1:9999;"mot")*1+NB.SI(Feuil5!1:9999;"mot")*1 + ...

C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 427
Modifié par ccm81 le 5/10/2016 à 17:21
Bonjour

Et s'il y a beaucoup de feuilles, une petite macro qui met le résultat en D1 de la feuille 1
Option Explicit

Const mot = "toto"

Public Sub ok()
Dim s As Worksheet, n As Long, obj As Object
n = 0
For Each s In Sheets
Set obj = s.Cells.Find(mot, , , xlPart)
If Not obj Is Nothing Then n = n + 1
Next s
MsgBox n & " feuilles contiennent le mot " & mot
Sheets(1).Range("D1").Value = n
End Sub

1. Pour entrer le code de la macro
Alt-F11 pour accéder à l'éditeur vba
puis Insertion/Module
Et coller tout le code
2. Pour exécuter la macro
Outils/Macro/Macros selectionner OK et exécuter

Cdlmnt
0
Ca fonctionne à merveille! Merci beaucoup
0