question VBA recherche

[jager57]

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]

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) :

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