Nombre de feuilles où apparaît un mot
Tony
-
Tony -
Tony -
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
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:
- Nombre de feuilles où apparaît un mot
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
2 réponses
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)
=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)
Bonjour
Et s'il y a beaucoup de feuilles, une petite macro qui met le résultat en D1 de la feuille 1
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
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
