Report valeur après recherche VBA

bonjour à tous,

je galère sur mon problème.

je vais essayer d'etre clair.

pour excel 2003

voici mon code de recherche en VBA:

Private Sub CommandButton2_Click()

Dim y As Range
Dim w As Worksheet
For Each w In Worksheets
Set y = w.Range("O:Q").Find(TextBox13.Value, , xlValues, xlWhole, xlByColumns, , False)
If Not y Is Nothing Then
ComboBox1.Value = w.Name
ComboBox2.Value = y.Cells(1, -13)
End If
Next w
If ComboBox1.Value = "" Then
MsgBox "Rien trouvé ,vérifier la référence!!!"
TextBox13 = ""
'
Exit Sub
End If
TextBox13 = ""
End Sub

donc le principe est que: j'ai un userform avec plusieur combobox ,textbox ,et autre.Dans une textbox13 , j écrie un code barre pour rechercher un article.J'ai une plage de recherche de la colonne O à Q car il y a plusieurs code barre pour un même article en fonction de sa provenance.

se que je souhaite ,c'est de reporter la valeur de la colonne A de la ligne trouver dans ma combobox2.

Avec le code que j'ai fais, si le code barre à trouver est en O , j'inscris bien la valeur de la colonne A (y.cells(1,-13) mais si le code barre à trouver est en colonne P ma formule me revoie la valeur de la colonne B (logique).

exemple de ce que je voudrais : code barre trouver en P58 (ou O58 ou Q58) , dans la combobox2 je reporte la valeur de A58

j'espère que mes explication on été assez clair et que vous pouvez m'aider.

cordialement

Bonjour regnum

Un truc du genre

ComboBox2.Value = w.cells(y.rows,1))

re

merci BOB71AU d'avoir répondu aussi vite mais le code ne fonctionne pas , défaut "dépassement de capacité"

merci

Re

Désolé

c'est pas rows mais row

re,

merci beaucoup c parfait , ça fonctionne au poil...