A voir également:
- Nombre de feuilles où apparaît un mot
- Voir mot de passe wifi android - Guide
- Mettre un mot de passe sur un dossier - Guide
- Mot de passe administrateur - Guide
- Trousseau mot de passe iphone - Guide
- Identifiant et mot de passe - Guide
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
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)
=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)
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
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
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