Macro de recherche dans une base de donnéesRésolu/Fermé

Question

Bonjour, 
J'aurais aimé que lorsque je fais une recherche via une boite de dialogue , j'ai automatiquement un astérique avant et après .
exemple: *cha*
et modification si possible d'une macro qui enlève le filtrage .
ci-joint un classeur.
https://cjoint.com/c/HBbjYRjYYIW

j'ai win 10
et excel 2000

Merci par avance



Configuration: Windows / Firefox 58.0

julia Namor · Answer

Bonsoir
ceci devrait faire l'affaire.
remplace ton code par celui ci

Sub recherche() Dim cell As Range Application.ScreenUpdating = False   marecherche = InputBox("Saisir la ou les premières lettres du mot ", "Recherche de mot (s) ")  If marecherche = "" Then Exit Sub  DL = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row  For Each cell In ActiveSheet.Range("B4:B" & DL)  If cell.Value = marecherche Then cell.Value = "*" & marecherche & "*" End If Next  Set resultat = ActiveSheet.Range("B4:B" & DL).Find(what:="*" & marecherche & "*", Lookat:=xlWhole)      Range("b4").Select      Selection.AutoFilter      Selection.AutoFilter Field:=2, Criteria1:="*" & marecherche & "*", Operator:=xlAnd Application.ScreenUpdating = True  End Sub

bien cordialement

nihcoc · Answer

Je vous remercie beaucoup pour votre réponse, c'est excellent .

par contre j'avais une 2ème question .
jusqu'ici j'enlevais le filtrage automatique avec cette macro qui marche bien,mais pour des listes très longues cela prend du temps . 

Sub Macro2()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
End Sub

dans le forum , j'ai trouvé cette macro ci-dessous qui est beaucoup plus rapide ,par contre elle supprime le carrément le filtrage automatique.

Sub rétablir()
  On Error GoTo finerreur
    Selection.AutoFilter
 GoTo fin
finerreur:
fin:
End Sub

Y aurait-il un moyen d'y remédier ?

Merci d'avance

julia Namor · Answer

fichier modifié 
A tester

https://cjoint.com/c/HBcvzfgcmti
 cordialement

eriiic · Answer

Bonjour,

remet-le dans la foulée :
Sub retablir()
    [A1].AutoFilter
    [A1].AutoFilter
End Sub
eric
 
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Macro de recherche dans une base de données

4 réponses

Discussions similaires

Newsletters