Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher un mot dans un classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MJ13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MJ13

XLDnaute Barbatruc
Bonjour à tous

Je cherche un code VBA pour trouver si un mot est présent dans un classeur ou je peux avoir des feuilles masquées.

Avec ce code:

Code: 
Sub Trouve_Terme_Toto()
ActiveWorkbook.Sheets.Select
Cells.Find("toto").Select
End Sub

Cela fonctionne que si je n'ai qu'un toto dans le classeur et que toutes mes feuilles sont affichées.

Le but serait de comptabiliser rapidement le nombre de toto dans mon classeur et d'avoir une liste dans une feuille avec un lien hypertexte pour y accéder rapidement.

Merci d'avance 😱.
 

Pièces jointes

Trier par date Trier par votes
Re : Rechercher un mot dans un classeur

Bonjour Jacques

Merci beaucoup pour ce fichier. Il correspond tout à fait à la demande et est assez rapide 🙂. En plus, j'aime bien les codes courts que je peux comprendre et qui sont facilement adaptables 😱.

Merci et bon Week-end 🙂.

Voici le code adapté à mon fichier:

Code: 
Sub Cherche_Mots_Classeur()
'JB
   'If Me.TextBox1 = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Sheets("Temp").Delete
   On Error GoTo 0
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "Temp"
   '[A1] = Me.TextBox1
   NAT = InputBox("Nom à trouver dans le classeur?")
   [A1] = NAT
   ligne = 2
   For i = 1 To Sheets.Count - 1
    With Sheets(i).Cells
      'If IsDate(Me.TextBox1) Then
      '  Set c = .Find(CDate(Me.TextBox1), LookIn:=xlValues, LookAt:=xlPart)
      'Else
      '  Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
      'End If
      Set c = .Find(NAT, LookIn:=xlValues, LookAt:=xlPart)
      If Not c Is Nothing Then
         premier = c.Address
         Do
           temp = [A1]
           Sheets("temp").Hyperlinks.Add Anchor:=Sheets("temp").Cells(ligne, 1), _
           Address:="", SubAddress:="'" & Sheets(i).Name & "'" & "!" & c.Address, TextToDisplay:=temp 'Sheets(i).Name
           Cells(ligne, 2) = Sheets(i).Name
           Cells(ligne, 3) = c.Address
           ligne = ligne + 1
           Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> premier
      End If
    End With
   Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher un mot dans un classeur

Bonjour,

comment fais-tu pour accéder à un onglet masqué avec un tel lien ?
La boîte de dialogue "Rechercher" donne aussi les liens mais vers les feuilles visibles.
Ci-joint une exemple avec 2 listes de validation (qu'on pourrait remplacer par un "ListBox" à 2 colonnes).
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Rechercher un mot dans un classeur

Re, Bonjour forum, 00

Merci pour ton fichier 🙂.

comment fais-tu pour accéder à un onglet masqué avec un tel lien ?​
Cliquez pour agrandir...

Tu peux modifier le code ainsi 🙂:

Code: 
Sub Cherche_Mots_Classeur()'JB
   'If Me.TextBox1 = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Sheets("Temp").Delete
   On Error GoTo 0
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "Temp"
   '[A1] = Me.TextBox1
   NAT = InputBox("Nom à trouver dans le classeur?")
   [A1] = NAT
   ligne = 2
   For i = 1 To Sheets.Count - 1
If Sheets(i).Visible = False Then Sheets(i).Visible = True
    With Sheets(i).Cells


      'If IsDate(Me.TextBox1) Then
      '  Set c = .Find(CDate(Me.TextBox1), LookIn:=xlValues, LookAt:=xlPart)
      'Else
      '  Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
      'End If
      Set c = .Find(NAT, LookIn:=xlValues, LookAt:=xlPart)
      If Not c Is Nothing Then
         premier = c.Address
         Do
           tempo = [A1]
           Sheets("temp").Hyperlinks.Add Anchor:=Sheets("temp").Cells(ligne, 1), _
           Address:="", SubAddress:="'" & Sheets(i).Name & "'" & "!" & c.Address, TextToDisplay:=tempo 'Sheets(i).Name
           Cells(ligne, 2) = Sheets(i).Name
           Cells(ligne, 3) = c.Address
           ligne = ligne + 1
           Set c = .FindNext(c)
         Loop While Not c Is Nothing And c.Address <> premier
      End If
    End With
   Next i
   Sheets("Temp").Select
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
471
youguybass
Y
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
230
bernardrustrel
B
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
591
jeff1494
F
Fdaga
Réponses
0
Affichages
152
Fdaga
F
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
946
jeff1494
  • Question Question
Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.
Réponses
2
Affichages
496
Jacky67
T
  • Question Question
Microsoft 365 Problème d'accès à des boutons ActiveX dans un classeur depuis un xlam
Réponses
10
Affichages
1 K
ThierryP
T
K
  • Question Question
Microsoft 365 Identifier doublons dans un classeur
Réponses
2
Affichages
241
JHA
J
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
646
Dranreb
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2 3 4
Réponses
50
Affichages
3 K
Loulou27
L
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
539
Phil69970
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
362
patricktoulon
T
  • Résolu(e)
XL 2019 Afficher un mot dans une colonne paramétrée en liste déroulante
Réponses
4
Affichages
324
telemarrk
T
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
606
safranien
S
  • Résolu(e)
XL 2016 Supprimer "Rechercher dans les menus" du menu contextuel de cellule Excel
Réponses
3
Affichages
439
jurassic pork
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
551
jeff1494
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
438
Gégé-45550
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
997
Corentin26270
C
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
508
sylvanu
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
483
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…