Macro coller sur la colonne correspondante

[lanoe]

Bonjour,

Cette macro ne doit pas être compliquée, mais je bloque malgré les recherches dans les archives du forum

Je souhaite que la macro:
1) copie la colonne B de la feuille 1
2) cherche le nom de la personne (b2, feuille1), dans la feuille 2 (ligne2) et colle les informations dans la colonne correspondante.
Fichier en PJ

Merci à vous,
Lanoe

 

[Staple1600]

Re : Macro coller sur la colonne correspondante

Bonjour

Une solution basique

Sub a()
Dim quoi$
Dim ou As Range
quoi = Feuil1.[B2].Text
Set ou = Feuil2.Cells.Find(quoi).Offset(1).Resize(12)
ou.Value = Feuil1.[B3:B14].Value
End Sub

 

[lanoe]

Re : Macro coller sur la colonne correspondante

Re,

Basique, mais fonctionne très bien...

Merci...
lanoe