Limbouille
XLDnaute Nouveau
Macro de collage et déclaration
Bonjour a tous,
Je suis entrain de faire une macro pour rendre "automatique" une petite tache.
Voici ma macro :
Bon je pense bien, ma macro n'est pas belle a voir, merci l'enregistreur ...
J'explique la où je coince,
Pour les 2 dernières lignes de la macro, je souhaite copié la formule VLOOKUP dans une colonne (ici la colonne I, mais je ne commence que à partir de la ligne 2) jusqu'a la fin de mon tableau, la longueur du tableau varie, donc je ne peux pas prendre une ligne pour référence.
Si quelqu'un pourrait m'aider ce serait sympa.
Merci d'avance
Bonjour a tous,
Je suis entrain de faire une macro pour rendre "automatique" une petite tache.
Voici ma macro :
Code:
Sub Insert_Req_Name()
Sheets("Y45_Import").Select
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Y45_Import").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I1").Select
ActiveCell.FormulaR1C1 = "REQ NAME"
Range("I2").Select
ActiveCell.FormulaLocal = "=VLOOKUP(H2;MANNR_TABLE!$A$1:$B$76;2;FALSE)"
End Sub
Bon je pense bien, ma macro n'est pas belle a voir, merci l'enregistreur ...
J'explique la où je coince,
Pour les 2 dernières lignes de la macro, je souhaite copié la formule VLOOKUP dans une colonne (ici la colonne I, mais je ne commence que à partir de la ligne 2) jusqu'a la fin de mon tableau, la longueur du tableau varie, donc je ne peux pas prendre une ligne pour référence.
Si quelqu'un pourrait m'aider ce serait sympa.
Merci d'avance
Dernière édition: