Associé deux macro à un bouton
Bonsoir tous le monde,
j'ai enregistré deux macro une pour changer devis en facture et une autre facture en devis est il possible de les associer à un bouton quand j'appuye dessus ça me change devis en facture et j'appuye une deuxième fois ça fait l'inverse
merci
voila mes macros :
Sub changedevis()
'
' changedevis Macro
'
'
Range("E6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = " DEVIS"
Range("E8").Select
ActiveCell.FormulaR1C1 = "DE0000001"
Range("A47").Select
ActiveCell.FormulaR1C1 = ""
Sheets("les données").Select
Range("D26:D29").Select
Selection.Copy
Sheets("Devis Factures P1").Select
Range("A46").Select
ActiveSheet.Paste
Range("A54").Select
ActiveWindow.LargeScroll Down:=-1
ESub changefacture2()
'
' changefacture2 Macro
'
'
Range("E6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "FACTURE"
Range("E8").Select
ActiveCell.FormulaR1C1 = "FA0000001"
Range("A102").Select
ActiveCell.FormulaR1C1 = ""
Range("A104").Select
ActiveCell.FormulaR1C1 = ""
Range("A103").Select
ActiveCell.FormulaR1C1 = ""
Range("A105").Select
ActiveCell.FormulaR1C1 = ""
Range("A103").Select
Sheets("les données").Select
Range("D24").Select
Selection.Copy
Sheets("Devis factures P2").Select
Range("A103").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
End Sub
Bonjour
Je viens de faire cela pour Jsparo, il y a quelques minutes
Adapte le Code de ce fichier avec le tien
Cordialement
Merci beaucoup
je sais pas comment l'adapter tu peux me le faire si je t'envois le fichier
merci
cordialement
Meeerci NAD
franchement tu m'as fait un truc du fou depuis ce matin je cherché j'ai la téte qui tourne
Merci mille fois