question VBA recherche

jager57

XLDnaute Nouveau
Bonjour,

je suis actuellement en stage en allemagne
je dois réaliser une programmation sur vba mais je suis un débutant
je voudrais rechercher une phrase dans une colonne
ex : si je doi rechercher le soleil brille
si je tape sol es que c´est possible d´afficher toutes les phrases contenant l´abréviation sol

ex de tableau :






le soleil brille 1
le ciel est gris 2
le soleil n´est pas la 3
le soleil est caché 4
les nuges sont gris 5
en moselle, il pleut tjrs 6
le ciel est bleu 7


Sub test()
Dim nom As String
Dim recherche As String

nom = InputBox("nom")
Sheets("Tabelle1").Activate
recherche = WorksheetFunction.Find(nom, range("tableau"), 2)
MsgBox "Le nom" & recherche
End Sub

si quelqu´un clique sur le bouton recherche, il tape l´abréviation sol il faudrait lui trouver toutes les cellules contenant l´abréviation

merci
 

job75

XLDnaute Barbatruc
Re : question VBA recherche

Bonjour jager,

Sans VBA, sélectionner le tableau puis appliquer le filtre automatique (menu Données-Filtrer). Puis cliquer sur la fèche de la colonne et choisir "Personnalisé". Puis choisir l'option "contient" et entrer à droite : sol.

L'opération peut être automatisée en utilisant l'enregistreur de macros.

A+

Edit : voici une macro qui se lance en cliquant sur un bouton (le filtre s'applique sur la colonne A) :

Code:
Private Sub CommandButton1_Click()
Dim texte As String
texte = InputBox("Entrer le texte recherché :", "Rechercher")
If texte <> "" Then
AutoFilterMode = False
Range("A:A").AutoFilter Field:=1, Criteria1:="=*" & texte & "*", Operator:=xlAnd
End If
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024