[vb excel]Tester une valeur dans une ligne

Comment fait-on pour tester si une valeur existe dans une ligne ?
J'ai fais ça mais ça marche pas ...comme d'hab.

Code:

---

1 2 3 4 5 6 7 8

i = 1 If Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i).Value = "w" Then   MsgBox ("fin") i = i + 1   End If

---

Le code est correct. Ce code est à l'intérieur d'une boucle? Il y a-t-il des cellules sur la première ligne qui contiennent la valeur w?

oui il y en a une je voudrais remplir un tableau de valeur de ma premiere ligne allant de la cellule E1 à celle qui contient le w.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim tab_report() Dim i Dim k   Public Sub traitement_report()   Workbooks("local_masse.xls").Worksheets("lm2").Activate   i = 0 k = 1 While Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i + 1).Value = "w" ReDim Preserve tab_report(2, k) tab_report(0, i) = Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i).Value tab_report(1, i) = "P" i = i + 1 MsgBox ("ok") Wend   End Sub

---

Le code ci dessus est censé faire ca mais ca marche pas.
Mes cellules excel contiennent :
A01 A02 A05 A06 ...
Je voudrais mettre ces valeurs dans une colonne d'un tableaux à deux dimensions et mettre des "P" dans ma deuxième colonne.
Peut-tu m'aider?