Fonction recherche avec VBS

Bonjour à tous et toute,

Je me permet de vous contacter pour un problème que je n'arrive pas à résoudre.
Avec un VBS j'ai besoin d'ouvrir un fichier Excel, d'aller chercher une variable X, de récupérer ces coordonnées et de récupérer la valeur qui se trouve dans la colonne d'a coté.

Le problème c'est que la fonction Find ne fonctionne pas, ou je l'utilise très mal! Je débute donc soyez conciliant ;)

Merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Xl 'as Excel.Application\par Dim wk 'as Excel.workbook\par set Xl = createobject("Excel.application") Xl.Visible = true Xl.enableevents = false set Wk = Xl.workbooks.open("test.xlsx") Dim plage set plage = Xl.Range("B1;B22")   Dim X   X = ("BC3204") result= plage.Find("X").Select   'wk.close 'Xl.quit

---

merci de votre aide

Bienvenu sur DVP;

Dans l'aide en ligne Excel, on trouve cet exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Cet exemple montre comment rechercher toutes les cellules de la plage A1:A100 dans la feuille de 'calcul Worksheet 1 contenant la valeur 2 et comment la remplacer par la valeur 5.   With Worksheets(1).Range("A1:A100") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With

---