' Copies all the customers info to the Orders sheet
' Date
Sheets("Consult_Offers").Range("F4").Copy
Sheets("Orders").Range("a4").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
''''' ici j'ai coupé une série de ligne répetitive
'''' qui ne serve à rien pour votre réponse
' copying products, prices, quantities and totals
' Copies info from Consult_Offers to Orders in a "One row" format
Sheets("Consult_Offers").Select
For Each c In Worksheets("Consult_Offers").Range([C13], [C53].End(xlUp))
Sheets("Orders").Select
For Each d In Worksheets("Orders").Range([a1], [EA1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
Selection.Pastespecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
' Copies PROFIT from j48 to ds4
Sheets("Consult_Offers").Range("I53").Copy
Sheets("Orders").Range("EB4").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(m_s).Select
Range(m_c).Select
Application.ScreenUpdating = True
' this prints to PDF file not used for now
' Application.ActivePrinter = "CutePDF Writer on CPW2:"
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
' "CutePDF Writer on CPW2:", Collate:=True
End If
' Copies all the customers info to the Orders sheet
' Date Sheets("Consult_Offers").Range("F4").Copy Sheets("Orders").Range("a4").Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
''''' ici j'ai coupé une série de ligne répetitive '''' qui ne serve à rien pour votre réponse
' copying products, prices, quantities and totals
' Copies info from Consult_Offers to Orders in a "One row" format
Sheets("Consult_Offers").Select For Each c In Worksheets("Consult_Offers").Range([C13], [C53].End(xlUp)) Sheets("Orders").Select For Each d In Worksheets("Orders").Range([a1], [EA1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy Selection.Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
' Copies PROFIT from j48 to ds4 Sheets("Consult_Offers").Range("I53").Copy Sheets("Orders").Range("EB4").Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
Sheets(m_s).Select Range(m_c).Select
Application.ScreenUpdating = True
' this prints to PDF file not used for now
' Application.ActivePrinter = "CutePDF Writer on CPW2:" ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "CutePDF Writer on CPW2:", Collate:=True End If
End Sub
Et tant que j'y suis
Par la même occasion peut-on ajouter sur la feuille "Offers" une info sur la
ligne référencier en $A$2???
Encore merci et à bientôt
Rex
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: u9huQpgyHHA.5584@TK2MSFTNGP02.phx.gbl...
Bonjour à toutes et tous
Une question un peu plus compliqué cette fois
Dans un fichier de plusieurs feuilles
Feuille "Offers" contient une série d'offre
Elles sont chacune sur une ligne et 50 colonnes
Feuille "Consulte offers" je retrouve l'info d'une offre dans un tableau
Ceci ce fait grâce à vous et la formule
=INDEX(INDIRECT("Offers!D4:D3015");$A$2)
Sur cette feuille un bouton associé à une macro qui fait un peu de tout
Ce que je voudrais c'est que la ligne référée en $A$2 soit couper
et coller sur une ligne insérée sur une feuille "Accepted Offers"
Ci-dessous la macro tel quelle est maintenant
J'espère avoie été assez clair et que les Excelgénies vont encore frapper
A bientôt
Rex
Macro créée grâce à vous, bien entendu
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Enregistrer_Commande()
If MsgBox("Enregistrer la Commande?", vbYesNo, "OUI") = vbYes Then
' Copies all the customers info to the Orders sheet
' Date
Sheets("Consult_Offers").Range("F4").Copy
Sheets("Orders").Range("a4").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
''''' ici j'ai coupé une série de ligne répetitive
'''' qui ne serve à rien pour votre réponse
' copying products, prices, quantities and totals
' Copies info from Consult_Offers to Orders in a "One row" format
Sheets("Consult_Offers").Select
For Each c In Worksheets("Consult_Offers").Range([C13],
[C53].End(xlUp))
Sheets("Orders").Select
For Each d In Worksheets("Orders").Range([a1], [EA1].End(xlToLeft))
If d = c Then
d.Offset(3, 0).Select
Range(c.Offset(0, 1), c.Offset(0, 3)).Copy
Selection.Pastespecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
' Copies PROFIT from j48 to ds4
Sheets("Consult_Offers").Range("I53").Copy
Sheets("Orders").Range("EB4").Pastespecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse
Sheets(m_s).Select
Range(m_c).Select
Application.ScreenUpdating = True
' this prints to PDF file not used for now
' Application.ActivePrinter = "CutePDF Writer on CPW2:"
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
' "CutePDF Writer on CPW2:", Collate:=True
End If
' Copies all the customers info to the Orders sheet
' Date Sheets("Consult_Offers").Range("F4").Copy Sheets("Orders").Range("a4").Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
''''' ici j'ai coupé une série de ligne répetitive '''' qui ne serve à rien pour votre réponse
' copying products, prices, quantities and totals
' Copies info from Consult_Offers to Orders in a "One row" format
Sheets("Consult_Offers").Select For Each c In Worksheets("Consult_Offers").Range([C13], [C53].End(xlUp)) Sheets("Orders").Select For Each d In Worksheets("Orders").Range([a1], [EA1].End(xlToLeft)) If d = c Then d.Offset(3, 0).Select Range(c.Offset(0, 1), c.Offset(0, 3)).Copy Selection.Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
' Copies PROFIT from j48 to ds4 Sheets("Consult_Offers").Range("I53").Copy Sheets("Orders").Range("EB4").Pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
Sheets(m_s).Select Range(m_c).Select
Application.ScreenUpdating = True
' this prints to PDF file not used for now
' Application.ActivePrinter = "CutePDF Writer on CPW2:" ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "CutePDF Writer on CPW2:", Collate:=True End If