Bouton macro se double
Fermé
iskmali
Messages postés
102
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 janvier 2023
-
29 oct. 2015 à 17:33
iskmali - 29 oct. 2015 à 18:23
iskmali - 29 oct. 2015 à 18:23
A voir également:
- Bouton macro se double
- Double ecran - Guide
- Whatsapp double sim - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
diablo13800
Messages postés
2890
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
16 février 2024
1 844
29 oct. 2015 à 17:37
29 oct. 2015 à 17:37
Bonjour,
Pourrais-tu mettre le code de ta macro ? Histoire de pouvoir voir ce qui peut ne pas aller
Pourrais-tu mettre le code de ta macro ? Histoire de pouvoir voir ce qui peut ne pas aller
diablo13800
Messages postés
2890
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
16 février 2024
1 844
29 oct. 2015 à 17:45
29 oct. 2015 à 17:45
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
iskmali
Messages postés
102
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 janvier 2023
1
29 oct. 2015 à 17:55
29 oct. 2015 à 17:55
Alors comment je pourrais corriger?
diablo13800
Messages postés
2890
Date d'inscription
jeudi 2 juillet 2015
Statut
Membre
Dernière intervention
16 février 2024
1 844
29 oct. 2015 à 18:06
29 oct. 2015 à 18:06
Essaie de passer en mode développeur, puis utilise l'enregistreur de macro.
Crée un bouton par dessus le bouton de ta macro ( ou TRÈS TRÈS proche)
une fois la macro enregistrer , regarde les paramètres (Add(1611.75, 1.5, 96, 25.5)) Compare , et supprime la ligne qui crée le bouton par dessus
Crée un bouton par dessus le bouton de ta macro ( ou TRÈS TRÈS proche)
une fois la macro enregistrer , regarde les paramètres (Add(1611.75, 1.5, 96, 25.5)) Compare , et supprime la ligne qui crée le bouton par dessus
29 oct. 2015 à 17:42
'
' 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
29 oct. 2015 à 17:43