N
nicole
Guest
Bonjour à tous,
je commence ma semaine avec un petit problème et espère que vous pourrez me conseiller.
voila, j'ai crée sur une feuille un bouton auquel j'ai affecté une macro. Cette macro copie des élts sur la feuille 4 de mon classeur et les colle sur la feuille 2. J'ai effectué et non écris la macro en faisant en choisissant l'option "enregistrer". Seulement j'ai du code excédentaire qui se rajoute automatiquement et fais planter le système. Comment puis-je faire pour l'effacer ?
je joins une page word contenant mon code ici car n'ai pas pu la mettre en pj
Sub BoutonSuivicompte_QuandClic()
' BoutonSuivicompte_QuandClic Macro
Sheets("Feuil4").Select
Range("A60:L65").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A34").Select
ActiveSheet.Paste
code suplémentaire ajouté automatiquement
Range("F44").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=3
Application.Run "nouvelleficheclient2.xls!BoutonGaranties_QuandClic"
ActiveWindow.SmallScroll Down:=-30
Application.Run "nouvelleficheclient2.xls!BoutonCoface_QuandClic"
ActiveWindow.SmallScroll Down:=-18
Application.Run "nouvelleficheclient2.xls!BoutonRisque_QuandClic"
ActiveWindow.SmallScroll Down:=9
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Down:=9
Range("J51").Select
ActiveWindow.SmallScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=-39
ActiveWindow.SmallScroll ToRight:=2
ActiveSheet.Shapes("Button 21").Select
Selection.ShapeRange.IncrementLeft 6#
Selection.ShapeRange.IncrementTop -153.75
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Shapes("Button 4").Select
Selection.ShapeRange.IncrementLeft 3#
Selection.ShapeRange.IncrementTop 116.25
ActiveSheet.Shapes("Button 21").Select
Selection.ShapeRange.IncrementLeft -2.25
Selection.ShapeRange.IncrementTop 33.75
Range("N9").Select
ActiveSheet.Shapes("Button 3").Select
Selection.ShapeRange.ScaleWidth 0.94, msoFalse, msoScaleFromBottomRight
Range("N10").Select
ActiveSheet.Shapes("Button 16").Select
Selection.ShapeRange.ScaleWidth 0.92, msoFalse, msoScaleFromBottomRight
Range("N12").Select
ActiveSheet.Shapes("Button 16").Select
Selection.ShapeRange.ScaleWidth 1.05, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.96, msoFalse, msoScaleFromBottomRight
Range("N14").Select
ActiveSheet.Shapes("Button 4").Select
Selection.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromBottomRight
Range("N15").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=27
ActiveWindow.SmallScroll ToRight:=-2
Range("H42").Select
Sheets("Feuil4").Select
ActiveWindow.SmallScroll Down:=-12
Range("A32").Select
Selection.Font.Italic = False
Range("A25").Select
Selection.Font.Italic = False
Range("A41").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=9
Range("A52").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=12
Range("A60").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=-42
Range("A9").Select
Selection.Font.Italic = False
Range("G20").Select
ActiveWindow.SmallScroll Down:=-3
Range("A25").Select
ActiveWindow.SmallScroll Down:=21
Range("B33:G38").Select
Selection.Interior.ColorIndex = 2
Range("H33").Select
ActiveWindow.SmallScroll Down:=9
Range("A43:G48").Select
Selection.Interior.ColorIndex = 2
ActiveWindow.SmallScroll Down:=6
Range("A54:H56").Select
Selection.Interior.ColorIndex = 2
Range("H43:H48").Select
ActiveWindow.SmallScroll Down:=-30
Range("A27:E29").Select
Selection.Interior.ColorIndex = 2
Range("F26").Select
ActiveWindow.SmallScroll Down:=12
Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=-6
ActiveWorkbook.Save
Application.Run "nouvelleficheclient2.xls!FermerApplication"
Range("H52").Select
ActiveWindow.SmallScroll Down:=-21
Application.Run "nouvelleficheclient2.xls!BoutonSuivicompte_QuandClic"
ActiveWindow.SmallScroll Down:=-3
Application.WindowState = xlMinimized
End Sub
Merci et bon appétit à ceux qui vont partir en pause .
je commence ma semaine avec un petit problème et espère que vous pourrez me conseiller.
voila, j'ai crée sur une feuille un bouton auquel j'ai affecté une macro. Cette macro copie des élts sur la feuille 4 de mon classeur et les colle sur la feuille 2. J'ai effectué et non écris la macro en faisant en choisissant l'option "enregistrer". Seulement j'ai du code excédentaire qui se rajoute automatiquement et fais planter le système. Comment puis-je faire pour l'effacer ?
je joins une page word contenant mon code ici car n'ai pas pu la mettre en pj
Sub BoutonSuivicompte_QuandClic()
' BoutonSuivicompte_QuandClic Macro
Sheets("Feuil4").Select
Range("A60:L65").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A34").Select
ActiveSheet.Paste
code suplémentaire ajouté automatiquement
Range("F44").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=3
Application.Run "nouvelleficheclient2.xls!BoutonGaranties_QuandClic"
ActiveWindow.SmallScroll Down:=-30
Application.Run "nouvelleficheclient2.xls!BoutonCoface_QuandClic"
ActiveWindow.SmallScroll Down:=-18
Application.Run "nouvelleficheclient2.xls!BoutonRisque_QuandClic"
ActiveWindow.SmallScroll Down:=9
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Down:=9
Range("J51").Select
ActiveWindow.SmallScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=-39
ActiveWindow.SmallScroll ToRight:=2
ActiveSheet.Shapes("Button 21").Select
Selection.ShapeRange.IncrementLeft 6#
Selection.ShapeRange.IncrementTop -153.75
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Shapes("Button 4").Select
Selection.ShapeRange.IncrementLeft 3#
Selection.ShapeRange.IncrementTop 116.25
ActiveSheet.Shapes("Button 21").Select
Selection.ShapeRange.IncrementLeft -2.25
Selection.ShapeRange.IncrementTop 33.75
Range("N9").Select
ActiveSheet.Shapes("Button 3").Select
Selection.ShapeRange.ScaleWidth 0.94, msoFalse, msoScaleFromBottomRight
Range("N10").Select
ActiveSheet.Shapes("Button 16").Select
Selection.ShapeRange.ScaleWidth 0.92, msoFalse, msoScaleFromBottomRight
Range("N12").Select
ActiveSheet.Shapes("Button 16").Select
Selection.ShapeRange.ScaleWidth 1.05, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.96, msoFalse, msoScaleFromBottomRight
Range("N14").Select
ActiveSheet.Shapes("Button 4").Select
Selection.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromBottomRight
Range("N15").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=27
ActiveWindow.SmallScroll ToRight:=-2
Range("H42").Select
Sheets("Feuil4").Select
ActiveWindow.SmallScroll Down:=-12
Range("A32").Select
Selection.Font.Italic = False
Range("A25").Select
Selection.Font.Italic = False
Range("A41").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=9
Range("A52").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=12
Range("A60").Select
Selection.Font.Italic = False
ActiveWindow.SmallScroll Down:=-42
Range("A9").Select
Selection.Font.Italic = False
Range("G20").Select
ActiveWindow.SmallScroll Down:=-3
Range("A25").Select
ActiveWindow.SmallScroll Down:=21
Range("B33:G38").Select
Selection.Interior.ColorIndex = 2
Range("H33").Select
ActiveWindow.SmallScroll Down:=9
Range("A43:G48").Select
Selection.Interior.ColorIndex = 2
ActiveWindow.SmallScroll Down:=6
Range("A54:H56").Select
Selection.Interior.ColorIndex = 2
Range("H43:H48").Select
ActiveWindow.SmallScroll Down:=-30
Range("A27:E29").Select
Selection.Interior.ColorIndex = 2
Range("F26").Select
ActiveWindow.SmallScroll Down:=12
Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=-6
ActiveWorkbook.Save
Application.Run "nouvelleficheclient2.xls!FermerApplication"
Range("H52").Select
ActiveWindow.SmallScroll Down:=-21
Application.Run "nouvelleficheclient2.xls!BoutonSuivicompte_QuandClic"
ActiveWindow.SmallScroll Down:=-3
Application.WindowState = xlMinimized
End Sub
Merci et bon appétit à ceux qui vont partir en pause .