Moteur de recherche sur EXCEL 2007

[jertely]

Bonjour à tous, c'est mon premier message !! Je suis très heureux d'avoir trouver ce forum, qui j'espère pourra m'aider.

Voila j'ai un classeur EXCELL de 10 feuilles, sur ces 10 feuilles c'est des prix avec des références et des désignations.

Je voudrait que sur la première page, il y ai un moteur de Recherche qui permet à l'utilisateur de rentrer soit une référence soit une désignations de l’amener directement dans la bonne page et à la bonne ligne.

Je sais que pas mal de question ont déjà étés posées dans ce sens mais pas dans le miens.

Savez-vous comment je dois faire?
Merci de votre aide !

 

[Guest]

Re : Moteur de recherche sur EXCEL 2007

Bonjour Jertely, tous

JC🙂

Et bien on a bien bosser hier soir.
Je crois que je vais devoir acheter une caisse de citrons verts et leur assaisonement pour te l'offrir JC

@JeterLy,
Telle quelle la macro recherche sur les 6 colonnes de chaque feuille. Ce qui ne correspond pas exactement à ta demande initiale de recherche sur code ou désignation. Que faut-il faire?

En attendant, ci-dessous une autre façon de faire, peut-être plus rapide. En tout cas l'une comme l'autre pourrait être plus rapide s'il n'y avait pas à convertir certaine donnée numérique en texte(code simel).

Sub Recherche(ByVal Quoi As String)
Dim Sh As Worksheet
Dim PlgRes As Range
Dim t
Dim i As Long, j As Long
Dim c As Range
Dim adr1 As String
 
On Error GoTo FinRecherche
Application.ScreenUpdating = 0
Application.EnableEvents = False
 
Msq = UCase("*" & What & "*")
Set PlgRes = Sheets("Accueil").Range("ResultatsRecherche")
PlgRes.Hyperlinks.Delete
PlgRes.ClearContents
PlgRes.Offset(-1).ClearContents
PlgRes.Rows(1).Resize(, 7) = Array("Feuille", "TCPN", "Code Simel", "Désignation", "Codet", "Cdt", "Prix")
Set PlgRes = Sheets("Accueil").Range("ResultatsRecherche")
j = 2
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> PlgRes.Parent.Name Then
With Sh.Range(Sh.Cells(9, 1), Sh.Cells(Sh.Rows.Count, 1)).Resize(, 6)
Set c = .Find(What:=Quoi, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If Not c Is Nothing Then
adr1 = c.Address
Do
t = Sh.Cells(c.Row, 1).Resize(, 6).Value
PlgRes(j, 1) = Sh.Name
Sh.Hyperlinks.Add PlgRes(j, 2), "", "'" & Sh.Name & "'!" & Sh.Cells(c.Row, 1).Address, "Allez à " & t(1, 1), t(1, 1)
PlgRes(j, 3) = "'" & t(1, 2)
PlgRes(j, 4) = t(1, 3)
PlgRes(j, 5) = t(1, 4)
PlgRes(j, 6) = t(1, 5)
PlgRes(j, 7) = t(1, 6)
j = j + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adr1
adr1 = ""
End If
End With
End If
Next Sh
Sheets("Accueil").Columns("I:R").Columns.AutoFit
Range("I6:R6").Font.Size = 9
Range("I7:Q37").Font.Size = 8
Range("O7:O37").NumberFormat = "#,##0.0000"
Columns("J:J").HorizontalAlignment = xlLeft
Range("I1").Select
 
FinRecherche:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

A+++ JC,

A+ tout le monde

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

ok merci je prend note.
Un de mes responsables m'a demander la chose suivante :
Lorsqu'on fait une recherche sur le moteur (Qui leur plait d’ailleurs !! et merci encore à tous !!) et que l'on clique sur un lien qui nous emmène sur une ligne pour une référence, serait-il possible de "cocher" un article, puis de mettre une quantité et ensuite que cette "commande" se mette en forme directement sur un onglet à part.
Le but est que nos clients puissent imprimer cette commande et nous la faxer.

PS: j'ai trouver un bouquin pour m'y mettre!! la programmation VBA POUR EXCEL !!

 

[Guest]

Re : Moteur de recherche sur EXCEL 2007

Bonjour,

Eh ben voilà une bonne occasion de mettre en pratique ton bouquin. Et reviens nous voir si tu bute sur un problème plus concret et précis.

A+

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Je pense que cela va me prendre du Temps (ce que je n'ai pas) avez vous des pistes?
Si certaines personnes sont intéressée, elles peuvent m'adresser un devis pour le tableau+Moteur de Recherche+possibilité d'éditer le devis. le tout à jertely@gmail.com