Déplacer un bouton toujours sous la dernière ligne non vide
Bonjour à toutes et à tous,
Je souhaiterais qu'un bouton (un shape + macro) se déplace à mesure que les lignes de mon tableau se remplissent de façon à garder ce bouton toujours légèrement sous la dernière ligne non vide. J'ai testé avec le code ci-dessous mais le bouton se déplace trop lentement (peut-être par pixel au lieu de ligne ?).
Sub Plaque1_Cliquer()
Dim Derligne As Long
Derligne = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.Shapes("Plaque 1").Top = Derligne
End Sub
Serait-il possible de récupérer directement la position de la dernière cellule sous forme de range car lorsque je mets :
ActiveSheet.Shapes("Plaque 1").Top = [A15].Top
Cela fonctionne mais je n'ai pas trouvé comment transposer la position de la cellule qui est une variable dans les crochets.
Le fichier est en PJ.
Je vous remercie pour votre aide
Bonjour,
une solution avec votre recherche de dernière ligne non vide :
ActiveSheet.Shapes("Plaque 1").Top = Range("A" & Derligne + 1).Topj'ajoute 1 car vous demandez : "de façon à garder ce bouton toujours légèrement sous la dernière ligne non vide."
@ bientôt
LouReeD
Bonjour LouReed,
Exactement ce que je recherchais, merci !
A bientôt
Dul
Merci pour votre retour et remerciement !
@ bientôt
LouReeD