Excel VBA, utilisation de fonction Résolu/Fermé

Question

Bonjour,  

alors voilà, j'essaye d'utiliser la fonction "SEARCH" dans mon code ci-joint: 

Sub Import_TS() 

Dim Wsh As Worksheets 
Dim Wbk As Workbook 

resultat = Worksheets("TS").Range("A1") 

With Worksheets("TS") 

resultat = Application.WorksheetFunction.SEARCH(Cells(1, 1), Range(Cells(1, 1), Cells(20, 1)), 1)

End With 

End Sub 

Malheureusement, j'ai un code erreur "Mismatch" sur la ligne que j'ai mis en gras. 

Je vous remercie pour l'aide par avance! 

Configuration: Windows XP / Internet Explorer 8.0

Cordialement, 
L. L.

ccm81 · Answer

bonjour

si c'est pour rechercher la ligne où se trouve la 1° occurrence de "résultat"

Sub Import_TS()
Dim Wsh As Worksheets
Dim ligne As Long
Dim plage As Range
With Worksheets("TS")
  resultat = .Range("A1")
  Set plage = Range(.Cells(2, 1), .Cells(20, 1))
  ligne = plage.Find(resultat).Row
  MsgBox ("ligne " & ligne)
End With
End Sub

bonne suite

eriiic · Answer

Bonjour,  

indépendamment de la réponse de ccm81 tu mets With Worksheets("TS") mais tu ne l'utilises pas.  
Il faut faire précéder les références d'un point (.) pour dire que tu utilises cette feuille, sinon tu utilises la feuille active :  
resultat = Application.WorksheetFunction.SEARCH(.Cells(1, 1), Range(.Cells(1, 1), .Cells(20, 1)), 1)   

eric

Excel VBA, utilisation de fonction

2 réponses

Discussions similaires