Recherche d'un mot et renvoi du nom de l'onglet

Créer une discussion
Répondre

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
L

Luc Lucasse

XLDnaute Occasionnel
Bonjour le forum, 😎

Vola mon problême:
J'écris un mot dans A6 de la feuille 1.
J'aimerai que mon programme cherche le mot dans tout le classeur et ensuite il me renvoit le nom de l'onglet en E6 et ca pour tous les mots qui se trouvent dans la colonne A de la feuille 1. 😱
Est ce qu'il est possible en cliquant sur le nom de l'onglet en E6, excel m'envoit directement sur la feuille de cette onglet??

Est ce que ce que tout ca est possible?? 😕

Merci pour votre aide 😉
 
Dernière édition:
Trier par date Trier par votes
Re : Recherche d'un mot et renvoi du nom de l'onglet

Donc c'est bon comme je l'ai écrit??

Mon module:

Option Explicit

Public MonTexte As String
Public MaLigne As Integer
Private Sub CommandButton1_Click()
Dim wshFeuille As Worksheet

' parcourir toutes les feuilles du classeur
For Each wshFeuille In Sheets
With wshFeuille
' si ce n'est pas Feuil1
If .Name <> "Feuil1" Then
' effacer contenu et formattage des plages spécifiées
Application.Union(.Range("C:R"), .Range("V:Z"), .Range("S4:U4")).Clear
End If
End With
Next
End Sub

Sub recherche()

Dim ws As Worksheet
Dim x As Integer
Dim c
Dim MonAdresse As String

With Sheets("Menu")
.Range("E" & MaLigne) = ""
For Each ws In Worksheets
If ws.Name <> "Menu" Then
MonAdresse = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Ad dress
Set c = ws.Range("A1:" & MonAdresse).Find(MonTexte)
If Not c Is Nothing Then
.Range("E" & MaLigne) = ws.Name
Exit For
End If
End If
Next ws
End With



End Sub

Merci
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

Le problême c'est que ca marche toujours pas vu que ca me met toujours la même erreur sur le dernier Private Sub Worksheet_Change(ByVal Target As Range) de la feuille1.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value <> "" Then
MonTexte = Target.Value
MaLigne = Target.Row
recherche
End If
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Target.Value <> "" Then Sheets(Target.Value).Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("Pronos Daily Donkey1").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Private Sub CommandButton1_Click()

Dim wshFeuille As Worksheet

' parcourir toutes les feuilles du classeur
For Each wshFeuille In Sheets
With wshFeuille
' si ce n'est pas Feuil1
If .Name <> "Feuil1" Then
' effacer contenu et formattage des plages spécifiées
Application.Union(.Range("C:R"), .Range("V:Z"), .Range("S4:U4")).Clear
End If
End With
Next

End Sub


L'erreur est situé sur la partie rouge.

Merci pour ton aide
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

re

il va falloir voir le fichier car là on va vers des trucs infernaux

je pense qu'il va falloir travailer différemment

réexplique STP ce qui se passe et ce que tu veux faire

tu reçois des trucs d'internet c'est ça et ensuite tu les modifies pour enlever les * puis tu veux mettre en colonne E le nom de la feuille où se trouve le truc que tu as récupérer et qui se trouve en colonne A

J'ai bien compris

Si oui on va changer notre fusil d'épaule
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

RE

alors modifies la macro recherche ainsi

Code: 
Option Explicit

Public MonTest As Boolean

Sub recherche()

Dim ws As Worksheet
Dim x As Integer
Dim c
Dim MonAdresse As String

MonTest = True
With Sheets("Menu")
    For x = 1 To .Range("A65536").End(xlUp).Row
    .Range("E" & x) = ""
        For Each ws In Worksheets
            If ws.Name <> "Menu" Then
                MonAdresse = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Address
                Set c = ws.Range("A1:" & MonAdresse).Find(.Range("A" & x))
                If Not c Is Nothing Then
                    .Range("E" & x) = ws.Name
                    Exit For
                End If
            End If
        Next ws
    Next x
End With
MonTest = False

End Sub

tu peux supprimer les autres variables public que j'avais mis

modifies celle-ci ainsi

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
if MonTest=True then exit sub
Workbooks("Pronos Daily Donkey1").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select

recherche

Application.ScreenUpdating = True

End Sub

tu supprimes celle ci

Code: 
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Value <> "" Then
        MonTexte = Target.Value
        MaLigne = Target.Row
        recherche
    End If
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

Donc ca devient:

Option Explicit

Public MonTest As Boolean

Sub recherche()

Dim ws As Worksheet
Dim x As Integer
Dim c
Dim MonAdresse As String

MonTest = True
With Sheets("Menu")
For x = 1 To .Range("A65536").End(xlUp).Row
.Range("E" & x) = ""
For Each ws In Worksheets
If ws.Name <> "Menu" Then
MonAdresse = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Address
Set c = ws.Range("A1:" & MonAdresse).Find(.Range("A" & x))
If Not c Is Nothing Then
.Range("E" & x) = ws.Name
Exit For
End If
End If
Next ws
Next x
End With
MonTest = False

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If MonTest = True Then Exit Sub
Workbooks("Pronos Daily Donkey1").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:=" ~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select

recherche

Application.ScreenUpdating = True

End Sub

Private Sub CommandButton1_Click()

Dim wshFeuille As Worksheet

' parcourir toutes les feuilles du classeur
For Each wshFeuille In Sheets
With wshFeuille
' si ce n'est pas Feuil1
If .Name <> "Feuil1" Then
' effacer contenu et formattage des plages spécifiées
Application.Union(.Range("C:R"), .Range("V:Z"), .Range("S4:U4")).Clear
End If
End With
Next

End Sub

Mais maintenant j'ai toujours la fameuse erreur 1004 qui apparait dans la partie en rouge
La méthode de la classe Range a échoué

Merci pour ton aide
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

RE

Fais attention dans ma macro recherche j'ai mis

With Sheets("Menu")

mais chez toi le nom doit être différent de Menu C'est le nom de la feuille où tu as en colonne A les mots et en colonne E les Nom de feuille
 
Vote positif 0 Vote négatif
Re : Recherche d'un mot et renvoi du nom de l'onglet

Ca y est j'ai trouvé mon erreur!!!! (erreur de frappe) 😱

Par contre j'ai encore 1 problême:

- Quand le mot est importé, j'ai le nomd e la feuille qui s'écrit sur chaque case de la colonne E (de E5 à E42)

Merci
 
Vote positif 0 Vote négatif
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

scoobytor
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
199
sylvanu
sylvanu
Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
Eric 888
E
  • Résolu(e)
Microsoft 365 Import POWER QUERY en fonction d'un Mot
Réponses
5
Affichages
267
eric72
E
J
  • Question Question
XL 2021 Nom groupe cellules
Réponses
3
Affichages
221
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
Cousinhub
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
878
Phil69970
Phil69970
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
S
  • Question Question
XL 2016 Création de factures à parti d'un tableau
Réponses
5
Affichages
312
sfconstant
S
F
  • Résolu(e)
Microsoft 365 Retrouver un mot dans un autre onglet
2
Réponses
17
Affichages
617
Fitgy
F
Z
  • Résolu(e)
XL 2021 Tester l'existence d'un nom d'onglet
Réponses
3
Affichages
669
jm.andryszak
J
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
602
Nathan027
N
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
700
fanch55
fanch55
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
2 K
dysorthographie
dysorthographie
nat54
  • Résolu(e)
Microsoft 365 Variabiliser le nom de l'onglet de recherche selon le contenu d'une cellule
Réponses
8
Affichages
664
nat54
nat54
E
  • Question Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
561
JHA
J
pompaero
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
dysorthographie
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
881
job75
job75
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
534
AtTheOne
AtTheOne
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
1 K
ThomAnalyses
T
Retour