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

[DJISA]

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!

 

[sylvanu]

Bonsoir Djisa,
Vous n'auriez pas un petit fichier exemple ?

 

[DJISA]

Bonjour Sylvanu, le forum!
Voilà la macro

 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]

Bonjour Djisa,
Je ne comprends pas ce que vous voulez faire avec ces lignes :

    ActiveSheet.Shapes("Button 19").IncrementLeft -13.5
    ActiveSheet.Shapes("Button 19").IncrementTop -6.75

IncrementLeft : https://docs.microsoft.com/fr-fr/office/vba/api/excel.shape.incrementleft
IncrementTop : https://docs.microsoft.com/fr-fr/office/vba/api/excel.shaperange.incrementtop
Vous modifiez votre shape "Button 19", c'est normal qu'il bouge.🙂

 

[JFVeneau]

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.