question VBA recherche

jager57 · 19 Août 2008

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 · 19 Août 2008

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

question VBA recherche

jager57

Guest

job75

XLDnaute Barbatruc

Discussions similaires

question VBA recherche

jager57

Guest

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency