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

Re,

Hello JC🙂,

Bien au contraire, d'autant plus que c'est l'occasion de se croiser, ce qui se produit rarement ces temps-ci.

bonnes pistes mon ami🙂🙂🙂

A+ à tous (comme qui dirait)

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

je ne sais pas quoi dire a part que je suis bluffé, merci JCGL c'est dingue !!
Par contre alors dernier truc, comment je fais pour mettre en forme le prix avec deux décimales ? Parce que j'ai essayé directement en clic droit sur colonne "O" et propriété mais cela ne marche pas quand je refait une recherche

 

[JCGL]

Re : Moteur de recherche sur EXCEL 2007

Bonjour à tous,

Sheets("Accueil").Columns("I:R").Columns.AutoFit
Range("I6:R6").Font.Size = 9
Range("I7:Q37").Font.Size = 8
Range("O7:O37").NumberFormat = "#,##0.00"
Columns("J:J").HorizontalAlignment = xlLeft
Range("I1").Select

Je te rappelle que ton bluff est de la responsabilité d'Hasco 🙂🙂

A+ à tous

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Oui Oui merci HASCO également !!

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Dernier truc, je le met ou ce bout de code? Sur classeur.xls -Feuil1 (code) en dessous de :
Private Sub Worksheet_Change(ByVal Target As Range)
C'est bon?

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

ou dans dans Mod_Recherche?

 

[JCGL]

Re : Moteur de recherche sur EXCEL 2007

Bonjour à tous,

Non, dans le module standard :

Sub Recherche(ByVal What As String) 'Code d'Hasco sur XLD
    Dim Sh As Worksheet
    Dim PlgRes As Range
    Dim t
    Dim i As Long, j As Long
    Dim Msq As String

    Application.ScreenUpdating = 0
    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
        With Sh
            If Sh.Name <> PlgRes.Parent.Name Then
                t = .Range(.Cells(9, 1), .Cells(.Rows.Count, 2)).Resize(, 6).Value
                For i = 1 To UBound(t, 1)
                    If UCase(t(i, 1)) Like Msq Or t(i, 2) Like Msq Or t(i, 3) Like Msq Then
                        PlgRes(j, 1) = Sh.Name
                        If IsEmpty(t(i, 1)) Then t(i, 1) = "Non Renseigné"
                        Sh.Hyperlinks.Add PlgRes(j, 2), "", "'" & Sh.Name & "'!" & Sh.Cells(8 + i, 1).Address, "Allez à " & t(i, 1), t(i, 1)
                        PlgRes(j, 3) = "'" & t(i, 2)
                        PlgRes(j, 4) = t(i, 3)
                        PlgRes(j, 5) = t(i, 4)
                        PlgRes(j, 6) = t(i, 5)
                        PlgRes(j, 7) = t(i, 6)
                        j = j + 1
                    End If
                Next i
            End If
        End With
    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.00"
    Columns("J:J").HorizontalAlignment = xlLeft
    Range("I1").Select
End Sub

A+ à tous

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Ah ca y est j'ai trouvé !!j'ai modifié MERCI BEAUCOUP LES GARS !!

 

[JCGL]

Re : Moteur de recherche sur EXCEL 2007

Bonjour à tous,

Je me permets d'insister...

Oui Oui merci HASCO également !!

Oui Oui merci HASCO surtout !!

A+ à tous

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Et dernier des derniers truc, est-ce possible de cacher/rendre invisible ce code et de le protéger par un mot de passe ?

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

D'accord Merci Beaucoup HASCO !!!

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Ca y est j'ai trouvé pour cacher le code

 

[JCGL]

Re : Moteur de recherche sur EXCEL 2007

Bonjour à tous,

Cacher non mais tu peux le "protéger" (la protection ne résistera pas longtemps à quelqu'un d'un peu averti...)

• Alt F11 pour ouvrir le VBE (Visual Basic Editor), l'application qui te permet de programmer en VBA (Visual Basic Application)
• Trouver dans la liste : VBAProject(Recherche sur Classeur.xls)
• Click Droit
• Propriétés de VBAProject
• Onglet "Protection"
• Cocher "Verrouiller...
• Déposer le MdP
• Confirmer le MdP
• OK

A+ à tous

 

[jertely]

Re : Moteur de recherche sur EXCEL 2007

Encore merci, je souhaiterai me perfectionner est-ce que vous avez des bouquins à conseiller? qu'est-ce que je dois chercher exactement? formations VBE?

 

[JCGL]

Re : Moteur de recherche sur EXCEL 2007

Bonjour à tous,

Je ne saurais pas te recommander de livres pour se perfectionner.

Use et abuse d'XLD... Tu auras toujours un gentil membre pour tenter de t'aider.

Au plaisir de te croiser
A+ à tous