(MACRO herve) Recherche multiple peux tu adapter ?

[avoriaz]

salut le forum

bonjour , herve

et bien j'avance dans mon projet mais des idees arrive de plus en plus de droite et de gauche ...

alors voila
ton code vba me conviens parfaitement celui ci

Sheets("calcul").Activate

Range("a1").Value = TextBox1.Value
Dim Val As String
Dim feuille As String
Dim lig As Long
Dim report As Range

feuille = ComboBox.Value
Val = TextBox1.Value 'valeur recherche inscris dans la texbox 1

If Val = "" Or ComboBox = "" Then Exit Sub ' SI VIDE EXIT

Sheets(feuille).Activate 'activation de la feuille selectionée

On Error Resume Next
lig = Cells.Find(Val, Range("A1"), , xlByRows).Row
If Err > 0 Then
MsgBox "La valeur cherchée, " & Val & ", n'existe pas dans " & feuille
UserForm1.Show
Exit Sub
End If

Rows(lig).Interior.ColorIndex = xlNone
Set report = Rows(lig)

Sheets("BILAN").Activate
lig = Range("A65536").End(xlUp).Row + 1
'decaler la ligne de 1 a chaque fois pour memoriser les recherches
Rows(lig) = report.Value
Unload UserForm1
End Sub

CE CODE me permet de faire une recherche sur 1 seul critere....( je l'utilise pour une recherche en colonne A)

je voudrais faire une recherche d'une deuxieme facon par un autre bouton)
fonctionnement !!!!

si je recherche dans la colonne b: banane alors il m'affiche dans la feuille de bilan tous les banane de la colonne b

banane 1
banane 2
banane d
banane r

et meme
frbanane
4 banane

a chaque fois qu'il trouve le mot banane dans la colonne b il dois copier la ligne complete correspondante

le prob aussi c'est que ca peux etre banane ou &"banane avec des carracteres avant et apre le mot

merci pour votre aide

avo

 

[Hervé]

Bonjour avo

Pourrais-tu me raffraichir la mémoire, Je ne me souviens pas de ce code ni du fil.

Met une pièce jointe.

Salut
Hervé

 

[avoriaz]

salut le forum,

merci herve ci joint un petit exemple...
la methode 1 fonctionne ...

bonne journee

avo

 

[Hervé]

Bonjour au forum

Avoriaz, vraiment ce fichier ne me dit rien, pourrais-tu me renvoyer le fil (j'aimerai me rassurer quant à mes trous de mémoire lol)

Regarde en pièce jointe

J'ai fait une autre macro pour la méthode 2 pour tenir compte des 4 bananes ou bananesfr.

Salut
Hervé

PS : j'ai rien touché à la méthode 1, comment gères-tu les doublons ?

 

[avoriaz]

re le forum

merci herve, impec comme toujours ,

pour le fils, je regarde..... mais il me semble que tu me la envoyer direct sur le chat le code....

merci a toi avo

 

[avoriaz]

re le forum

bonne soiree non ?

voila herve une adaptation de ce que je voudrais....

merci a toi

 

[avoriaz]

re le forum,

voila herve, il me manquer :
sheets(combobox3.value).select

maintenant ca marche, merci pour ton aide

Rappel du fonctionnement a ceux qui s'interresse a ce mode de recherche ..

la methode 1: permet de rechercher une valeur precise qui se trouve dans la colonne a

la methode 2: permet de rechercher une valeur approximative donc plusieurs valeurs qui contienne le mot qu'on le recherche a quelques caracteres pres !!! se trouvant dans la colonne B

et une combo qui permet de selectionner la feuille dans laquelle effectuer la recherche si votre classeur possede plusieurs feuille....

un texbox qui permet de taper sa valeur rechercher ...

merci pour l'aide herve
ci joint le fichier qui pourrais depanner qqes personnes ...

avoriaz

 

[Hervé]

Bonjour tout le monde

Heureux, avoriaz, que tu es résolu ton souci.

Si je peux me permettre : effectue un test sur la combobox, avant la recherche, car si aucune feuille n'est sélectionnée, ça bug.

If ComboBox3.Value = "" Then
MsgBox "Merci de sélectionner une feuille."
ComboBox3.SetFocus
Exit Sub
End If

Salut
Hervé