Bouton macro se double

iskmali Messages postés 108 Statut Membre -
iskmali - 29 oct. 2015 à 18:23

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

Afficher la suite

A voir également:

96.75-12.75
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

Réponse 1 / 2
diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872

Bonjour,

Pourrais-tu mettre le code de ta macro ? Histoire de pouvoir voir ce qui peut ne pas aller
0
1. iskmali Messages postés 108 Statut Membre 1
  
  Sub Prepare_Jnl()
  '
  ' 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
  
  0
2. iskmali Messages postés 108 Statut Membre 1
  
  j'ajoute qu'il y au moins 3 autres macros dans le meme classeur
  
  0
Réponse 2 / 2
diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872

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
0
1. iskmali Messages postés 108 Statut Membre 1
  
  Alors comment je pourrais corriger?
  
  0
2. diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872
  
  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
  
  0
3. iskmali
  
  Merci diablo13800, en fait j'ai là macro avec l'enregistreur de macro dans développeur. J'ai un niveau plus tôt de base en Excel.
  
  0

Bouton macro se double

2 réponses

Discussions similaires

Newsletters