Macro de recherche par mot clé

[dzsnake]

bonjour tous le monde
voila je veux changé ma programmation de la macro pour quelle puisse prendre en charge une chaine de caractères au lieu d'un seul mot voila la macro :
Option Explicit
Private Sub CommandButton2_Click()
Feuil1.Activate
Unload Me
End Sub

Private Sub AfficheListe_Click()
Dim WS As Worksheet
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object

Recherche = TextBox1

If Recherche = "" Then Exit Sub

For Each WS In Worksheets
Ligne = Worksheets(WS.Name).Range("" & "B" & "65536").End(xlUp).Row
Set Plage = Worksheets(WS.Name).Range("" & "B" & "2:" & "E" & Ligne)

With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
ListBox1.AddItem C
ListBox2.AddItem C.Address
ListBox3.AddItem WS.Name
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With

Next WS
End Sub

Private Sub Label2_Click()

End Sub

Private Sub ListBox1_Click()
Dim i As Byte
Dim Feuille As String, Cellule As String
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
Cellule = ListBox2.List(i)
Feuille = ListBox3.List(i)
End If
Next i
Sheets(Feuille).Activate
Range(Cellule).Select
End Sub

Private Sub UserForm_Click()

End Sub






merci d'avance pour votre aide
cordialement

 

[Fred0o]

Re : Macro de recherche par mot clé

Bonjour dzsnake et bienvenue sur le forum.

J'ai regardé le code que tu as fourni et il contient 5 macros (ou Sub). Il serait bien que tu nous précise la macro concernée. Ensuite, je les ai regardées une par une et je n'ai rien trouvé qui fasse référence à un seul mot.

Pour finir, ces macros sont relatives à un USF (ou UserForm ou boîte de dialogues en Français). Ce USF n'est pas fourni.

Je t'invite donc cordialement à lire la Lien supprimé et ensuite à nous joindre un fichier exemple contenant ton USF en nous précisant où se situe ton problème et ce que tu veux avoir en retour.

A+

 

[dzsnake]

Re : Macro de recherche par mot clé

bonsoir fred
déjà je vous remercie de m'avoir souhaité la bienvenu.

voila mon fichier avec le userform.

il faut savoir que j ai avancé un peux mais j'aimerais bien maintenant avoir plusieurs champs de saisie, contrôlé par un seul bouton de commande( dans notre cas c'est "go") et si c'est possible de laisser toujours la main dans l'excel pour manipuler les données sélectionnées et quand on appuis sur le bouton ( quitter) du userform on repart à la premier feuille.