Discussion :

[CodeFacile]

Bonjour,

je cherche à faire un recherche pour trouver une valeur dans un fichier Excel avec la fonction find .

En VBA , j'utilise cette syntaxe depuis très longtemp , sans pb :

set nomfic =
workbooks ( activeworkbook.name).worksheetsactivesheet.name)
With nomfic.Range("A2:A180")
Set cellule = .Find(What:= "ma_valeur" , LookIn:=xlValues, LookAt:=xlPart,

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not cellule Is Nothing Then
prem_occurence = cellule.Row
Do
'traitement zexemple , on met en rouge la cellule
nomfic.Cells(cellule.Row, cellule.column).Interior.ColorIndex = 15
Set cellule = .FindNext(cellule)
Loop While Not cellule Is Nothing And cellule.Row <> prem_occurence
End If
End With

A partir de VB , j'arrive à ouvrir un fichier , mais je ne sais pas lancer la recherche :
j'ai fais le code suivant

Dim le_fichier As Excel.Workbook
Dim le_fichier2 As Excel.Workbook
Dim le_feuillet As Excel.Worksheet
Dim cellule As Excel.Range
Dim xlvalues, xlPart, xlByRows, xlNext As Excel.Constants

Dim ligne_tab, prem_ligne, colonne, Index As Integer
Dim fin_liste As Boolean
Dim valeur, valeur2 As String
Dim Is_valeur_exemple As Boolean

Dim function_find As Excel.WorksheetFunction

prog_excel.Workbooks.Open(Filename:=chemin.Text, UpdateLinks:=0)
'le_fichier = prog_excel.Workbooks.Open(Filename:=chemin.Text)
le_fichier = prog_excel.ActiveWorkbook
le_feuillet = prog_excel.ActiveSheet

With prog_excel.Workbooks(le_fichier.Name).Worksheets(Nom_Feuillet).Range("A10:J80")

'jusqu'ici ça fonctionne

cellule = .Find(What:= "Ma valeur à trouver", LookIn:=xlvalues,

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not cellule Is Nothing Then ....


Le problème find de la fonction find qui n'est pas reconnue , je ne sais pas quelle syntaxe utiliser ?

[eikeshi]

Essayes ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With prog_excel.Workbooks(le_fichier.Name).Worksheets(Nom_Feuillet).Range("A10:J80")
      cellule = .Cells.Find(What:="Ma valeur à trouver", After:=prog_excel.Range(AfterRange), LookIn:=Excel.XlFindLookIn.xlValues, LookAt:=Excel.XlLookAt.xlWhole, SearchOrder:=Excel.XlSearchOrder.xlByColumns, SearchDirection:=Excel.XlSearchDirection.xlNext, MatchCase:=True, SearchFormat:=False)
End With

[CodeFacile]

Super , c'est la bonne syntaxe.

Merci pour vos conseil éclairé.