Discussion :

[Phoenix311]

Bonjour à tous !

J'ai trouvé un super outil pour faire des recherches dans un doc excel. Je souhaiterai modifier une petite chose...

Est ce que lorsqu'on fait une recherche, il est possible de faire un double clic sur le résultat pour aller directement sur la cellule sélectionné ???

Si quelqu'un peut m'aider à faire ceci, ce serait génial !!!!

Le fichier est en pièce jointe...

Merci BEAUCOUP !

[Aurel51]

Bonjour,

juste en jetant un coup d’œil vite fait j'aurais tendance à dire qu'il faut modifier cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ws.Name & "!" & c.Address, TextToDisplay:=c.Value

Tu est sur la cellule c, et dans TExtToDisplay tu mets que tu veux afficher la valeur de c (donc de la cellule). il te suffit de modifier ça de cette manière je pense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ws.Name & "!" & c.Address, TextToDisplay:=c.Value & "-" & c.offset(0,1).Value & "-" c.offset(0,3).Value

EDIT : ah tu as changé ton post entre temps, je laisse quand même au cas où ca t'aide à résoudre le 1er problème que tu avais mis

Si tu as 10 colonnes, tu fais pareil jusqu'à c.offset(0,9).Value, ainsi tu feras une concaténation de tes cellules que tu afficheras dans ta case de résultat.

[Phoenix311]

Merci pour la réponse, si j'arrive pas a faire avec la seconde solution je me rabattrait sur celle ci

J'essaye d'adapter le fichier excel a mon cas, mais c'est pas évident...


M'ai j'aimerai sur mon fichier que j'ai mis en pièce jointe pouvoir avoir des liens hypertextes qui me renvoient directement à ma page et ma cellule. Est ce que ça semble envisageable ??

[Aurel51]

Malheureusement avec la Listview je ne sais pas comment s'y prendre pour récupérer la valeur d'une cellule donc théoriquement je sais comment tu pourrais régler ton problème mais pratiquement je ne saurais faire totalement :

1 . modifie ton appel de userform par ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Show (0)

Ca te permettra d'avoir accès aux feuilles derrière

2 .Il te suffit de créer un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Listview1.DblClick()

, et dedans de récupérer le nom par exemple (dans une variable Name par ex) de la ligne sur laquelle tu as fais ton double click dans ton userform, puis effectuer le traitement de recherche sur le principe de ce que tu as déjà fais dans ton programme RechercheDate.
Une fois que tu auras une correspondance, tu vérifies le prénom et si ça colle, tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Listview1.DblClick()
Application.ScreenUpdating = False
...
'Récupération valeurs ListView
...
For F = Sheets.Count To 1 Step -1
 
'Activation de la feuille
 Sheets(F).Activate
 
'Définition de la plage de recherche sur la feuille active
For Each C In Range([A2], [A65536].End(xlUp))
If c.value = Name then
     if c.offset(0,1).value = FirstName then
          Range(firstAddress).Select
          Application.ScreenUpdating = True
          exit sub
     end if
end if
next C
next F
End sub

[Phoenix311]

Merci j'essaye tout ça !!