Discussion :

[vjeronimo]

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 :

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

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

[l_autodidacte]

Bienvenu sur DVP;

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

Code :

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

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