XL 2013 Recherche dans une colonne et coller une valeur dans la dernière cellule vide d'une colonne nommée

[Jouxte]

Bonjour à toutes et tous,

Je souhaite en vba :
- rechercher "Stockholm" dans une colonne nommée > ColA
- copier la valeur située dans la même colonne 2 lignes en dessous
- coller cette valeur dans la dernière cellule vide de la colonne nommée > Cotations

Merci par avance pour votre aide.

 

[sylvanu]

Bonjour Jouxte,
Un truc comme ça doit marcher :

Sub ChercheEtColle()
    Index1 = Application.Match("Stocklom", [ColA], 0) + 2   ' 2 cellules en dessous
    Index2 = [Cotations].End(xlDown).Row + 1                ' 1 cellule en dessous
    [Cotations].Cells(Index2, 1) = [ColA].Cells(Index1, 1)
End Sub

 

[Jouxte]

Bonjour Sylvanu, Bonjour le Forum,

Merci pour cette aide qui marche parfaitement (sauf en E2) ce qui n'est pas génant pour moi.