Bouton macro se double
iskmali
Messages postés
99
Date d'inscription
Statut
Membre
Dernière intervention
-
iskmali -
iskmali -
Bonjour,
Je fais fasse a un problème avec le bouton d'exécution de macro. J'ai fait une macro mais chaque fois j'exécute la macro après opération un autre bouton de macro se crée et se superpose sur le 1er rendant ce dernier inaccessible et le second bouton n'est pas associe à une macro.
Merci d'avance pour votre aide, elle m'est très précieuse !
Issaka
Je fais fasse a un problème avec le bouton d'exécution de macro. J'ai fait une macro mais chaque fois j'exécute la macro après opération un autre bouton de macro se crée et se superpose sur le 1er rendant ce dernier inaccessible et le second bouton n'est pas associe à une macro.
Merci d'avance pour votre aide, elle m'est très précieuse !
Issaka
A voir également:
- Bouton macro se double
- Double ecran - Guide
- Whatsapp double sim - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Double driver - Télécharger - Pilotes & Matériel
- Double appel - Guide
2 réponses
Ta macro a pour but de créer des Boutons (ActiveSheet.Buttons.Add(1611.75, 1.5, 96, 25.5).Select )
Il est donc possible que l'un des 9 boutons se crée sur celui avec lequel tu lance ta macro
Il est donc possible que l'un des 9 boutons se crée sur celui avec lequel tu lance ta macro
'
' Prepare_Jnl Macro
'
'
Sheets("Journal").Select
ActiveSheet.Buttons.Add(1611.75, 30, 95.25, 33).Select
ActiveSheet.Buttons.Add(243.75, 96.75, 12.75, 12.75).Select
ActiveSheet.Buttons.Add(243, 57, 12.75, 12.75).Select
ActiveSheet.Buttons.Add(1611.75, 1.5, 96, 25.5).Select
ActiveSheet.Buttons.Add(477.75, 3, 87, 33).Select
ActiveSheet.Buttons.Add(1611.75, 30, 95.25, 33).Select
ActiveSheet.Buttons.Add(243.75, 96.75, 12.75, 12.75).Select
ActiveSheet.Buttons.Add(243, 57, 12.75, 12.75).Select
ActiveSheet.Buttons.Add(1611.75, 1.5, 96, 25.5).Select
Sheets("Journal").Copy Before:=Sheets(7)
ActiveSheet.Range("$A$11:$AR$182").AutoFilter Field:=3, Criteria1:="="
Rows("13:183").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
Range("D12:Y24").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G16").Select
ActiveSheet.Range("$A$11:$AR$24").AutoFilter Field:=9, Criteria1:="="
Rows("15:23").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("J21").Select
ActiveSheet.ShowAllData
Range("I14").Select
ActiveWorkbook.Save
Calculate
End Sub