recherche d'un mot

[steevassie]

Bonsoir, je m'adressse à vous pour une question sur une macro.
En fait j' ai un fichier qui reprend toutes les données d'une commande, et j'aimerai faire une page recherche ou en saisissant le numéro de commande, il m'emmene directement sur la ligne conserné.
EN fouillant un peu, j'ai trouvé cette macro, mais elle ne marche pas elle bloque à la ligne rouge et le titre est surligné en jaune.Des idées ou peut etre un autre moyen?

Merci d'avance

Voici le macro:

Private Sub CommandButton1_Click()
'mpfe, auteur inconnu
mot = InputBox("B5")
For feuille = 1 To Sheets.Count
Sheets(suivi).Select
Set trouvé1 = Cells.Find(What:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <> trouvé1.Row
Then
trouvé2.Activate
GoTo étiq
End If
End If
Next feuille
End Sub

 

[wazzebu]

Re : recherche d'un mot

Bonjour,

ci-joint une macro trouvé sur ce super forum permettant de faire une recherche par mot clés et de sélectionner la ligne ou se trouve l'info.

A adapter!! 😀

En espérant que ça aide un peu...

Wazzebu

@+

 

[steevassie]

Re : recherche d'un mot

merci wazzebu,
C'est vraiment super bien fait.Mais comment a t'il fait pour créer une boite comme celle laIl n'y a pas de macro d'enregistrer, ca doit etre une fonction excel. Je ne sais pas...

 

[wazzebu]

Re : recherche d'un mot

re,

quand tu vas dans le vba, il faut aller dans feuille (UF1) et double cliquer sur les combobox et le textbox pour "voir" le code...

 

[steevassie]

Re : recherche d'un mot

merci wazzebu,
Encore un dernier conseil.Dans le fichier, quel est le code de la première page?
J'ai fait une mauvaise manip et je n'arrive plus à le voir, meme en recliquant sur le lien.

De tete, c'est un truc dans le genre:

Private Sub
Worksheet_SelectionChange(ByVal Target As Range)

End Sub


Merci

 

[wazzebu]

Re : recherche d'un mot

Voila ce que j'ai sur ma première page:

Private Sub Workbook_Open()
Unload UF1
UF1.Show 0
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Unload UF1
UF1.Show 0
End Sub

Edit: C'est ok ?

 

[steevassie]

Re : recherche d'un mot

non pas celui la, je l'ai. tu avais un code sur la page worksheet 1
Désolé, de t'en demander autant..
Grand merci 🙂

 

[wazzebu]

Re : recherche d'un mot

euh...

Désolé j'ai pas de code sur la feuille 1. Il y a du code sur le ThisWorkbook et la feuille UF1.

Je te rejoins le fichier au cas où ca marcherait...

 

[wazzebu]

Re : recherche d'un mot

Oups...

Voici le fichier...

 

[steevassie]

Re : recherche d'un mot

Excuse moi, tu as raison, ça marche un peu, enfin la boite s'execute.
J'essaye de modifier quelques champ, mais c'est compliqué..
C'est un niveau un peu élévé de prog.
Tu t'y connais?
En plus cette recherche je voudrai l'appliquer sur les données d'une feuille mais à l'ouverture d'une autre feuille pour ne pas etre embété tout le temps.
Mais là...Je ne sais que faire.

 

[wazzebu]

Re : recherche d'un mot

Met en fichier joint un petit exemple de ton classeur!!

Pour eviter que ca se lance au demarrage supprime les lignes de codes:

Private Sub Workbook_Open()
Unload UF1
UF1.Show 0
End Sub

Par exemple moi je lance la recherche lorsque j'appuie sur un bouton:

Private Sub CommandButton2_Click()
Unload UF1
UF1.Show 0
End Sub

Sinon en prog je m'y connais pas trop mais j'ai réussit à adapter ce petit prog à ce que je voulais. Donc peut être qu'avec ton fichier exemple je pourrais essayer... 😀

Voila, j'attend ton exemple

 

[steevassie]

Re : recherche d'un mot

désolé pour le temps, j'ai eu des pb de compression, j'ai recréé un fichier pour qu'il passe en taille.

 

[steevassie]

Re : recherche d'un mot

J' ai fait une erreur, le tableau commence en A2 et non en A4.
Décidement..

 

[wazzebu]

Re : recherche d'un mot

Voila la recherche se fait par bouton (pour la lancer avec l'ouverture d'un autre classeur faut regarder sur le forum).

Donc il fallait modifier les cells(1,1) en cells(4,1) car les données à récupérer sont en ligne 4 !!

Ci joint ton fichier modifié

 

[wazzebu]

Re : recherche d'un mot

ok je modifie pour A2!! 😀