Moteur de recherche

[Geraldine]

Bonjour à tous,

Je voudrais créer un moteur de recherche et j'ai du mal à employer FIND.
Ouvrir userform, taper un mot clé, et recherche dans une feuille / zone B10:E1000. Et répertorier la liste trouvée dans une listbox en stipulant la ligne complete ou le terme est trouvé si il a été trouvé en colonne D par exemple, dans la listbox on trouve :
Colonne B ! Colonne C ! Colonne D etc ...
Sa référence Sa désignaton sa couleur

et par la même occasion si je peux changer la couleur de police d'ecriture du terme trouvé,

merci à tous,
Géraldine

 

[skoobi]

Re : Moteur de recherche

Colonne B ! Colonne C ! Colonne D etc ...
Sa référence Sa désignaton sa couleur

Géraldine

Bonjour,

sois un peu plus précis car VBA ne gère pas "etc"
Un bout de fichier avec ce que tu veux en zippé < 48.8 ko.

 

[Geraldine]

Re : Moteur de recherche

re tu as raison,
ci-joint mon exemple,

@

j'essaye ton code pierrejean, merci

 

[pierrejean]

Re : Moteur de recherche

bonjour Geraldine

Salut Skoobi

une approche en attendant que tu ais le temps de creer un fichier exemple

 

[pierrejean]

Re : Moteur de recherche

RE

avec un exemple c'est mieux

 

[Geraldine]

Re : Moteur de recherche

re pierrejean,

il me faut du temps pour l'adapter à mon application, mais à premiere vue ça devrait être bon, donc mention "en attente", je te remercie

et pour l'humour, mention "très bien"

bonne journée pierrejean,
amicalement géraldine,

 

[Geraldine]

Re : Moteur de recherche

re pierrejean,

pourquoi j'ai un message d'erreur "variable non definie" ??? une bétise comme d'habitude mais j'ai cassé mes lunettes

Private Sub CommandButtonSupp_Click() ' supprimer
Dim varReponse As String
'si pas de sélection quitte
If ComboBoxRef.ListIndex = -1 Then Exit Sub
varReponse = MsgBox("Effacer la fiche article?", vbYesNo, "Alerte")
'si réponse non quitte
If varReponse = vbNo Then Exit Sub
'si oui continue
With Worksheets("OUVRAGE").Range("az10:bi2000")
    Set[COLOR="Red"] c [/COLOR]= .Find(ComboBoxRef, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        NomLBindex = UserFormArt.ComboBoxRef.ListIndex + 10 ' ligne de reference
        With Sheets("article")
        .Range("B" & NomLBindex & ":da" & NomLBindex).Delete
        End With
        Unload UserFormArt
        UserForm4.Show
Do
        UserFormArtSupp.Show
        With UserFormArtSupp
        ListBox1.AddItem c.Address(0, 0)
        ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("OUVRAGE").Cells(c.Row, 2)
        
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
        End With
    End If
End With
End Sub

@

 

[pierrejean]

Re : Moteur de recherche

re

il y a un probleme dans la gestion des with end with

le c de

Set c = .FindNext(c)

est associé au

With UserFormArtSupp

alors qu'il devrait l'etre au

With Worksheets("OUVRAGE").Range("az10:bi2000")

compte tenu de ton niveau, je te laisse reparer toi-même ce defaut

mais reviens si tes lunettes ne sont pas encore réparées

 

[Geraldine]

Re : Moteur de recherche

bonjour pierrejean,

j'ai beau tourner mes lunettes dans tous les sens, sans résultat.
J'ai meme tout simplement copier/coller ton code sans le modifier et dans mon application ça ne fonctionne pas. Il bloque sur le "c"
Je ne comprends pas, je vais mettre à plat pour tout verifier.

Et on dit merci à qui ???? à pierrejean

Bonne journée,
Géraldine

 

[pierrejean]

Re : Moteur de recherche

bonjour Geraldine

question bête:

es-tu en option explicit

 

[Geraldine]

Re : Moteur de recherche

re,
oui et tu vas me repondre il faut donc definir "c", mon manque d'éxperience sans fait sentir ...

donc faut quoi deja :

Dim c As Integer

@

 

[matthieu33]

Re : Moteur de recherche

Bonjour Géraldine, Pierrejean et le forum,

Je pense que tu pourrais mettre :

dim c as Range​

@+

 

[pierrejean]

Re : Moteur de recherche

re

tres bien matthieu33

eh oui Geraldine !!
l'option explicit est très exigeante
un truc dans ce cas la:
tu vas en débogage et compiler et Excel te dira quelles variables ne sont pas définies
ensuite pour definir il faut s'interroger un peu sur ce qu'est la variable a definir (DIM)
(ne pas hesiter a utiliser F1 apres avoir mis le curseur sur le terme a expliciter ,en l'occurence DIM)

 

[Geraldine]

Re : Moteur de recherche

merci à vous,

que de conseils interessant, il ne me reste plus qu'a avoir de la mémoire !!!! pour se rappeler des conseils, et c'est gagné

à bientôt, merci
géraldine