recherche mot en VBA

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

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

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.


@+

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