Copie/Déplacement de boutons

Bonjour à tous,

J'essaie dans un programme de décaler l'emplacement d'un bouton, dés la création d'une nouvelle ligne.

J'ai récemment modifié mon code en supprimant la plupart des manipulations du type .activate et .select.

La procédure en question :

Sub deplacerBouton(nom As String, cellule As String)

With Workbooks("Fi-Flash.xlsm").Sheets("Analyse").Shapes(nom)

.Top = Range(cellule).Top

.Left = Range(cellule).Left

End With

End Sub

Dans cette configuration le bouton en question est systématiquement placé en dehors de la zone souhaitée.

En revanche si j'ajoute : Workbooks("Fi-Flash.xlsm").Sheets("Analyse").activate

avant la boucle with, le bouton est bien déplacé dans la cellule choisie.

Pourriez vous m'expliquer comment m'affranchir de la méthode .activate tout en assurant le déplacement correct du bouton?

Merci!

Bonjour,

Sub deplacerBouton(nom As String, cellule As String)
    With Workbooks("Fi-Flash.xlsm").Sheets("Analyse")
        .Shapes(nom).Top = .Range(cellule).Top
        .Shapes(nom).Left = .Range(cellule).Left
    End With
End Sub

Cordialement.

Super tout fonctionne! Merci beaucoup MFerrand