C
Chris
Guest
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
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