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

[Luc Lucasse]

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 😉

 

[PascalXLD]

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

Re

et c'est pas cela ???

 

[Luc Lucasse]

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

Non, je veux juste que le nom de la feuille s'écrit en face du mot importé

Merci

 

[PascalXLD]

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

RE

et tu as quoi dans A5 à A42 ????

 

[Luc Lucasse]

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

en fait il trouve tous les mots dans la feuille 1 donc dans la colonne E il me marque feuille 1 à chaque fois.

Est ce qu'il est possible d'enlever la feuille 1 de la recherche??

Merci

 

[PascalXLD]

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

Re

C'est ce que je te disais tout à l'heure

dans ma mcro recherche j'ai mis Menu mais toi il faut changer par ton nom de feuille soit feuil1

Sub recherche()

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

MonTest = True
With Sheets("[COLOR=Blue][B]Feuil1[/B][/COLOR]")
    For x = 1 To .Range("A65536").End(xlUp).Row
    .Range("E" & x) = ""
        For Each ws In Worksheets
            If ws.Name <> "[COLOR=Blue][B]Feuil1[/B][/COLOR]" 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

 

[Luc Lucasse]

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

A oui excuse c'est moi qui me suis planté quand j'ai refait le copier coller j'ai oublier de le remodifier!!!

Derniére petite question:
Est ce qu'il est possible de cliquer sur le nom de la feuille et ensuite que ca m'envoi dans celle la??

Merci pour ton aide

 

[PascalXLD]

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

re

et bien je t'avais déjà donné la macro

A mettre dans le code de la feuil1

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

 

[Luc Lucasse]

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

A oui tu as raison encore un oubli de ma part

Par contre pour la prochaine erreur je pense que tu pourra rien y faire:

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

Avec l'erreur: mémoire insuffisante

Merci

 

[PascalXLD]

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

re

Oui en effet

Par contre peut-être un petit reboot remettrai tout dans l'ordre

A voir

 

[Luc Lucasse]

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

Ok j'essayerai de relancer tout à l'heure.

Je tiens vraiment à te remercier parce que tu as été trés trés patient!!! 😱

Merci beaucoup 😀 😉

 

[Luc Lucasse]

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

Bonsoir le forum,

Est ce que vous savez comment supprimer ce problême de mémoire??

Merci