Fin de colonne dans macro
Bonjour à tous,
Encore une fois je bloque sur une macro pour étendre la formule jusqu'au bout de la colonne; dans l exemple suivant la dernière ligne est 68 mais le fichier évolue et chaque jour aura une ligne de fin différente et je voudrais que ma macro aille jusqu'à la fin :
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
ActiveCell.FormulaR1C1 = "immat"
Range("B2").Select
Cells.Replace What:=")", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],9)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B68")
Range("B2:B68").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = "=XLOOKUP(RC[-1],Feuil1!C[-2],Feuil1!C[7])"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C68")
Range("C2:C68").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "agence"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=XLOOKUP(RC[-2],Feuil1!C[-3],Feuil1!C[5])"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D68")
Range("D2:D68").Select
ActiveWindow.SmallScroll Down:=30
End Sub
Un énorme merci par avance
Bonjour,
sur quelle colonne doit-on se baser pour déterminer la dernière ligne ?
Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1") = "immat"
Cells.Replace What:=")", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2 ' utilité de cette instruction ?
dl = Cells(Rows.Count, "A").End(xlUp).Row ' dernière ligne sur base de la colonne A à adapter
Range("B2").FormulaR1C1 = "=RIGHT(RC[-1],9)"
Range("C2").FormulaR1C1 = "=XLOOKUP(RC[-1],Feuil1!C[-2],Feuil1!C[7])"
Range("D1") = "agence"
Range("D2").FormulaR1C1 = "=XLOOKUP(RC[-2],Feuil1!C[-3],Feuil1!C[5])"
Range("B2:D2").AutoFill Destination:=Range("B2:D" & dl)