Déplacer une zone de texte sur cellule

[christian.bedere]

Bonsoir

Je souhaiterai pouvoir déplacer par macro et pas manuellement,
une zone de texte afin que celle-ci puisse aller se caser automatiquement sur la dernière cellule écrite de mon tableau (ici f6), ainsi lors de l'impression, ma ZDT serait prise en compte sur mon papier.

Je vous remercie beaucoup
Bonne soirée

Kiki

 

[Pierrot93]

Re : Déplacer une zone de texte sur cellule

Bonsoir Christian

essaye peut être comme ceci :

With Sheets("Feuil1").Shapes(1)
    .Top = Cells.SpecialCells(xlCellTypeLastCell).Top
    .Left = Cells.SpecialCells(xlCellTypeLastCell).Left
End With

bonne soirée
@+

 

[christian.bedere]

Re : Déplacer une zone de texte sur cellule

Salut Pierreot93

Merci pour cette aide, je pensais que c'était un peu plus simple j'ai du mal à adapter à mon classeur mais je vais essayer avec la dernière cellule saisie du classeur.

Merci et à bientôt, je n'en doute pas

Bonne soirée
Kiki