Aide sur code macro VBA Offset

[Soleil11]

Bonjour le forum,

J'ai un petit probleme avec le code ci-dessous dernière ligne "Offset".

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveRange.Offset(-1, 0).Select

J'aimerais qu'il remonte d'une ligne lorsque ma selection est faite mais cela n'a pas l'air de fonctionner.

J'ai un message d'erreur il ne reconnait pas l'objet.

Merci pour votre aide.

Soleil11🙂

 

[Pierrot93]

Re : Aide sur code macro VBA Offset

Bonjour Soleil,

cette ligne devrait suffire, enfin si j'ai bien compris, mais renverra un message d'erreur si nouvelle feuille sans données. Perso je n'utilise pas "SpecialCells(xlLastCell) car une cellule effacée reste tout de même la dernière cellule... :

Range(Range("A1"), Range("A1").SpecialCells(xlLastCell).Offset(-1, 0)).Select

bonne soirée
@+

 

[Soleil11]

Re : Aide sur code macro VBA Offset

Merci de votre aide cela marche parfaitement.

Bonne soirée.

soleil 11