copier les donnees d'une ligne sur une autre ligne selectionnee

[Chris]

J'avais oublié le titre

Bonjour à tous.
Je travaille avec VBA sous excel. Je débute juste.
Voici mon problème :
à partir d'une colonne W je cherche dans les colonne A à U une valeur correspondante a W. Quand je la trouve, je voudrais copier la colonne -1 de w dans la colonne -2 de A .
j'ai fait ce code qui marche pour copier dans une cellule identifiée, mais je n'arrive pas à le reproduire pour la cellule de la colonne de la ligne sélectionnée.

Sub worksheet_function()
Dim n As Integer
For n = 2 To 564
Range("W" & n).Select
With Range("a1:u564").Select
c = Selection.Find("W" & n)
Range("w" & n).Offset(0, -1).Copy destination:=c.Offset(0, -2)
End With
Next n
End Sub

Si je remplace c.offset(0,-2) par range ("a20") par exemple, ça marche mais évidemment ça m'écrase au fur et à mesure les données.
Si quelqu'un peut m'aider, grand merci d'avance.
Chris

 

[Bertrand Dallem]

Bonjour Chris,

Je ne comprends pas bien la destination, "colonne -2 A"
Est-ce que cela veut dire deux colonnes avant la col A ???

Merci de préciser

Bertrand

 

[Chris]

Tout d'abord, merci de me répondre.

Effectivement, ce n'était pas très clair. Mon projet a un peu évolué :

l'utilisateur entre dans une texbox une valeur (ex : "33041")

je cherche dans la colonne A du tableau ci-dessous cette valeur :

colonne a colonne b colonne c
ligne x 33041 5 33025

je voudrais, quand la macro trouve la valeur cherchée dans la colonne A, copier la valeur de la colonne C (même ligne) dans une deuxième textbox.

Si tu peux m'aider, ce serait sympa !
Merci
Chris