recherche mot en VBA

[torg59]

Bonjour,
J'ai un tableau de données répertoriant différent types de pièces à usiner et j'aimerais pouvoir rechercher une pièce dans ce tableau en tapant juste une partie du nom de la pièce.

Ca ressemble un peu à un tri de liste avec comme critère "contient" mais là je ne voudrais pas passer par ça...

En gros, si mon tableau contient "poutrelle", je veux pouvoir le trouver en tapant "poutre"

Merci pour votre aide

 

[RICO1972]

Re : recherche mot en VBA

Salut torg59,
je te propose deux méthodes :
la première :

Sub Macro1()
variable = Range("a1").Value ' c'est la valeur recherchée

Cells.Find(What:=variable, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

End Sub

deuxième méthode avec filtre :
Sub Macro2()
variable = Range("a1").Value

'attention field = numéro de colonne ou tu recherches la valeur
range("a2:g2").select ' plage des intitulés des colonnes
Selection.AutoFilter Field:=3, Criteria1:="=" & variable & "*", Operator:= _
xlAnd
End Sub

Te lire...
RICO

 

[jp14]

Re : recherche mot en VBA

Bonjour

Des idées à utiliser sur ce fil
https://www.excel-downloads.com/threads/recherche-1-ere-lettre-dun-nom.69990/

JP

 

[porcinet82]

Re : recherche mot en VBA

Bonjour a tous,

Une autre solution que celles proposées par Rico. Je suppose dans le code que je te propose que la colonne dans laquelle sera effectuée la recherche est la colonne A et que la cellule contenant le mot a rechercher est la cellule C1. Je te laisse le soin d'adapter à tes besoins.

Sub test()
Dim i%
For i = 1 To Range("a65536").End(xlUp).Row
    If Not InStr(1, Cells(i, 1).Value, Cells(1, 3).Value) = 0 Then
        Cells(i, 1).Select
        Exit Sub
    End If
Next i
End Sub

@+

 

[torg59]

Re : recherche mot en VBA

Ok c'est bon, j'ai essayé avec ce code:

If Not InStr(1, Cells(i, 6).Value, piece) = 0 Then
Cells(i, 6).Select
Exit Sub

et ca marche donc merci à vous!
A bientôt