Probleme position bouton

Bonjour,

Dans un tableau excel lorsque que j'ajoute une ligne via macro j’intègre un bouton upload:

Set Btn = ActiveSheet.Buttons.Add(950, Range("A" & derlign).Top, 37, 9)
'
'
With Btn
    .Caption = "Upload"
    .name = "Upload"
    ' you can modify other properties as well
    .Font.Bold = True
    .OnAction = "Upload_Click"
    .Left = Cells(derlign, 12).Left + 5
    .Top = Cells(derlign, 12).Top + 3

End With

Worksheets("Ecriture").Range("A13:L" & derlign).Sort key1:=Worksheets("Ecriture").Range("A13"), order1:=xlDescending, Header:=xlYes

Cela fonctionne bien et ensuite suivant la date le tableau se réorganise

je récupère la position du bouton via:

Set Sh = ActiveSheet.Shapes(Application.Caller) 'recupere le bouton cliqué
 ligne = Sh.TopLeftCell.Row          'N° ligne du bouton
colonne = Sh.TopLeftCell.Column 'N° colonne du bouton

Salut Darkangel,

Perso, je n'aurais absolument pas mis 1 bouton par ligne

Simplement un bouton au dessus de l'entête du tableau et selon la ligne sélectionné on upload tel ou tel document

A+

bah si car en fait le bouton upload permet d’ajouter un fichier au dossier et intègre ensuite le chemin dans une cellule de la même ligne

Alors,

bonne chance pour "comment mettre à jour le positionnement des boutons apres tri ?"

A+

j'ai trouvé tout seul il suffit de faire une sauvegarde

en gros création bouton, tri puis backup = ligne à jour!

ThisWorkbook.Save

mais ca se trouve je dois aussi pouvoir y arriver via l’actualisation mais je ne me souviens plus comment faire via vba :(