Re : Problème confection macro: Assembler les feuilles et mise à jour.
bonjour,
à mon avis, il faudra passer par VB (et ce n'est pas dur à faire) mais sans voir votre fichier, on va tourner en rond pendant longtemps
merci de le joindre
Pour des raisons de condencialité je peux pas fournir le fichier exel. En revanche, je peux fournir notre macro actuelle et faire un fichier exel avec des donnés modifiées.
Voici la macro:
Sheets("Stock SKF Own Buck").Select
Range("B1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("copie stock").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("OF enregistrés").Select
Range("B1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("copie données").Select
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Selection.End(xlDown).Select
Range("A19").Select
Sheets("Suggestions").Select
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("copie données").Select
ActiveSheet.Paste
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy;@"
Columns("A:O").Select
ActiveWorkbook.Save
End Sub
Merci pour votre réactivité.