Recherche avec VBA
Résolu
Dynamique
-
Dynamique -
Dynamique -
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
A voir également:
- Recherche avec VBA
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche photo - Guide
- Je recherche une chanson - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Moteur de recherche 1fichier ✓ - Forum Réseaux sociaux
2 réponses
Bonsoir à 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
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
Bonjour,
Peut-être une solution par ici: https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
Peut-être une solution par ici: https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
ç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 Subhttps://www.cjoint.com/c/KJhxoROVTxD
eric