XL 2013 Bouton de macro qui s'élargit sur un click

DJISA

XLDnaute Occasionnel
Salut, le forum!
J'ai un bouton de macro qui s'élargit dés que je clique dessus. J'ai essayé ceci en vain:
1- Mode création
2- J'ai sélectionné le bouton
3- J'ai fait un clic droit
4- J'ai sélectionné format de contrôle
5- Ensuite j'ai choisi Propriétés
6- Et enfin j'ai choisi Déplacer et dimensionner avec les cellules
Cette procédure n'a pas résolu le problème
Merci d'avance pour votre soutien!
 

DJISA

XLDnaute Occasionnel
Bonjour Sylvanu, le forum!
Voilà la macro
VB:
 ActiveSheet.Shapes("Button 19").IncrementLeft -13.5
    ActiveSheet.Shapes("Button 19").IncrementTop -6.75
    ActiveSheet.Shapes("Button 19").ScaleWidth 1.7164179104, msoFalse, _
        msoScaleFromBottomRight
    
    Sheets("APAEL").Range("A2:G2").Select
    Selection.Copy
    Sheets("Absences").Select
    Range("A1").End(xlDown).Offset(1, 0).Select
  
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Absences").Select
    Range("D4").Select
    Sheets("APAEL").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 9
    Range("AK5:AL5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("AK7:AL7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AK9:AL9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AK11:AL11").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AN9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AN7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AN5").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AB2").Select
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD

JFVeneau

XLDnaute Nouveau
Bonjour,
Je ne suis pas sur de répondre à la problématique, mais voici, au cas où, un bout de code qui permet de "jouer" sur la taille d'un bouton.
Sub btn_behavior()
' cette macro donne un effet lors de l'appuis sur la forme :
' => la forme r?tr?cie l?g?rement pendant 1/10 de seconde
Dim sngEnd As Single
' ActiveSheet.Shapes("btn_macro").Width < 94 Then
ActiveSheet.Shapes("btn_macro").IncrementLeft 4
ActiveSheet.Shapes("btn_macro").IncrementTop 3
ActiveSheet.Shapes("btn_macro").ScaleWidth 0.952380952380952, msoFalse, msoScaleFromCenter
ActiveSheet.Shapes("btn_macro").ScaleHeight 0.952380952380952, msoFalse, msoScaleFromCenter
sngEnd = Timer + 0.1 ' en secondes
' boucle d'attente :
While Timer < sngEnd
DoEvents
Wend
ActiveSheet.Shapes("btn_macro").IncrementLeft -4
ActiveSheet.Shapes("btn_macro").IncrementTop -3
ActiveSheet.Shapes("btn_macro").ScaleWidth 1.05, msoFalse, msoScaleFromCenter
ActiveSheet.Shapes("btn_macro").ScaleHeight 1.05, msoFalse, msoScaleFromCenter
End Sub


En pj le fichier exemple correspondant : il suffit d'appuyer sur le bouton pour se rendre compte de l'effet.
 

Pièces jointes

  • bouton_macro.xlsm
    16.9 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO