cellule active

[Von]

Bonjour à tous !

Un petit problème me tracasse.
Je ne sais pas remonter les coordonnées de la cellule active d'une feuille.

Le but à atteindre étant de définir une zone d'impression de A1 à la cellule active sachant que cette dite cellule se retrouve à un endroit imprévu car résultante d'une macro.

Y-a-t-il une solution ?

Celle d'activer une "région" n'est pas bonne car elle déborde sur du texte avoisinant.

Merci pour votre réponse et bonne après midi à tout

 

[@+Thierry]

Bonsoir Von et le Forum

Pas très difficile çà ! (où alors quelque chose m'a échappé !! lol)

Sub ZoneCellActive()
Dim ActiveCellAdresse As String
ActiveCellAdresse = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & ActiveCellAdresse
End Sub

On doit probablement pouvoir lier ce code directement au tien qui laisse la cellule active à un endroit imprévu !!

Bonne Soirée
@+Thierry

 

[Von]

Bonsoir Thierry,

Sans nul doute pour toi, effectivement il s'agit d'une ligne hyper fastoche que tu maîtrise depuis longtemps !!

Mais pour le petit nouveau du VBA que je suis il s'agissait d'un vrai blocage.

Et comme à chaque fois que je lis la solution d'un problème ça parait pourtant terriblement évident.

Il est donc grand temps que je détaille au moins toutes les instructions contenues dans l'aide. Car sur ce coup là, ma copine F1 m'a trompée
Ca promet un dimanche plutôt studieux derrière l'écran.

Merci donc mille fois pour cette ligne que je m'empresse d'adapter dans
ma macro jusqu'alors bancale.

Bonne soirée à toi et à tous !