Remonter à la première ligne

Bonjour à tous,

J'aimerais savoir si il y avait une formule simple en VBA pour que notre sélection remonte jusqu'à la ligne 1 (je n'ai pas trouvé sur le forum).

Par exemple si je suis en cellule D15 alors il me sélectionne D1.

Je vous remercie d'avance.

Bonjour

Pourquoi VBA : Ctrl + flèche haut le fait

Activecell.End(Xlup).select

si pas de trou dans le 2 cas

sinon

Cells(1, ActiveCell.End(xlUp).Column).Select

Super je te remercie la deuxième formule fonctionne pour mon cas, j'avais surtout besoin du VBA puisque je souhaite qu'avec un double clic il soit capable lui même de copier la première ligne pour réécrire ce texte dans une autre feuille.

Et par exemple si je veux faire l'inverse revenir en colonne A en conservant la ligne de départ ce serait cette formule ?

Cells(1, ActiveCell.End(xlUp).Row).Select

Bonjour Airdee, 78chris , le forum,

si je veux faire l'inverse revenir en colonne A en conservant la ligne de départ ?

Peut-être ainsi:

Cells(ActiveCell.Row, 1).Select

où

Range("A" & ActiveCell.Row).Select

Cordialement,

Bonjour

Mettre:

Application.Goto [A1], True

A+

Maurice

Re

archer a écrit :

Application.Goto [A1], True

Il ne s'agit pas d'aller en A1 mais sur la colonne A de la ligne en cours...

Bonjour à vous,

En effet la formule est différente de renvoyer à A1, xorsankukai je te remercie ta première formule convient tout à fait à ce que je recherchais.

Merci à tous d'avoir participé vous m'avez beaucoup aidé je vais pouvoir continuer mon code .

Cordialement,

Bonjour…

Comme d’habitude la demande ne décrit pas le contexte de façon précise.

« 1ère colonne, ligne de l’onglet ou d’un tableau* ? » se traitent différemment selon le cas :

‘pour un onglet
Sub HLi(): Cells(ActiveCell.Row, 1).Select: End Sub
Sub Hcol(): Cells(1, ActiveCell.End(xlUp).Column).Select: End Sub

‘pour un Tableau
Sub Htbc(): [Tbo].Item(1, ActiveCell.Column - [Tbo].Column + 1).Select: End Sub
Sub Htbl(): [Tbo].Item(ActiveCell.Row - [Tbo].Row + 1, 1).Select: End Sub

*je persiste à enfoncer le clou pour ceux qui ignorent les bienfaits de l’outil Tableau structuré (primordial dans toute gestion)