Recherche avec VBA
Résolu
Bonjour à toutes et tous,
Serait-il possible de cliquer sur la cellule B5 et qu'elle me trouve la cellule qui contient le mot "Résultat" et B6 me trouve le mot "synthèse" sans passer par le mode recherche par exemple via une macro. Je ne peux pas utiliser de liens car le résultat et la synthèse ne se trouvent pas toujours dans la même cellule. :-)
Merci pour vos propositions. :-D
Serait-il possible de cliquer sur la cellule B5 et qu'elle me trouve la cellule qui contient le mot "Résultat" et B6 me trouve le mot "synthèse" sans passer par le mode recherche par exemple via une macro. Je ne peux pas utiliser de liens car le résultat et la synthèse ne se trouvent pas toujours dans la même cellule. :-)
Merci pour vos propositions. :-D
Configuration: Windows / Edge 94.0.992.38
2 réponses
-
ContributeurBonsoir à tous,
une proposition.
Si tu double-cliques sur une cellule écrite en bleu la recherche se fait.
Tu peux donc agrandir ta liste de mot et les mettre où tu veux.
L'écriture doit être identique, accents et majuscules comprises
https://www.cjoint.com/c/KJgv5RBHFAD
eric
-
Superbe merci eriiic :-) ca fonctionne super bien. Est-ce que ça serait possible de laisser une ligne au-dessus du mot retrouvé et une colonne afin de voir les informations juste au-dessus et à gauche. Je sais pas si mes explications sont claires. :-.
-
Contributeur@DynamiqueBonjour,
ça je suppose :Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim c As Range, adr1 As String If Target.Font.Color = 15773696 Then adr1 = Target.Address Set c = Cells.Find(Target.Value, , xlFormulas, xlWhole) If c.Address = adr1 Then Set c = Cells.FindNext(c) If c Is Nothing Or c.Address = adr1 Then MsgBox "Non trouvé" Else Application.EnableEvents = False If c.Column > 1 Then Set c = c.Offset(, -1) If c.Row > 1 Then Set c = c.Offset(-1) Application.Goto c, True Application.EnableEvents = True End If End If End Sub
https://www.cjoint.com/c/KJhxoROVTxD
eric -
@eriiicSuperbe, merci infiniment eriiic pour ton aide. :-D
-
-
Bonjour,
Peut-être une solution par ici: https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
