Macro pour atteindre la derniere ligne et copier
Bonjour à tous,
j'ai fait ce code, mais bien sur ça marche pas ...
je souhaitais lui dire de calculer le nombre de ligne remplie de la colonne à compter de la cellule A7 jusqu’à A....
et de pouvoir utiliser ce nombre de ligne dans la formule qui lui dit de copier une formule de calcul qui se trouve en D7 et de la recoller de D7 jusqu'en bas, enfin en fonction du nombre de ligne calculées précédemment.
voici mon code
' category_country
DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D6").Select
ActiveCell.FormulaR1C1 = "MCM CATEGORY COUNTRY"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'Cat Country'!C:C[7],8,FALSE)"
Range("D7").Select
Selection.Copy
Range("D7").Select
Range(Selection, DerniereLigne).Select
ActiveSheet.Paste
Range("A7").Select
Merci pour votre aide.
Bonne journée
Laurent
SLT
si tu ne met pas un fichier je doute que tu auras une réponse
++
hello,
mon souci, c'est que mon fichier va ouvrir un fichier sur le reseau de ma boite ... bref du coup, j'ai pris le temps de modifier le debut de la macro...
donc bon courage car pas forcement facile a comprendre