sélectionner à partir de la cellule active toute les cellules au dessus de celle-ci

[nadem0068]

bonsoir à tous

je viens vers vous pour un petit PB qui parait simple mais je ne trouve pas la solution.

voila je cherche à sélectionner à partir de la cellule active toute les cellules au dessus de celle-ci jusque a la ligne 2

si quelqu'un à une idée merci d’avance🙂

 

[néné06]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

Bonsoir à tous,

Avec cette macro dans un module.

Sub Macro1()
If ActiveCell.Row > 1 Then
Range(Cells(2, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column)).Select
End If
End Sub

A+

René

 

[R@chid]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

Bonjour @ tous,
Si j'ai bien compris, tu veux que si la cellule active et H20, alors en cliquant sur un bouton on sélectionne la plage H2:H20 et ainsi de suite pour D15 sélectionner la plage D2😀15 ...
Voir PJ
Avec une Macro XL4


@ + +

Edit : Salut Néné 🙂

 

[nadem0068]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

re

merci ça marche nikel

par contre je n'est pas compris comment tu a fait r@chid

 

[R@chid]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

Re,
Voir : Gestionnaire de noms
où j'ai défini le nom de champ dynamique "MaPlage" par formule.

Puis j'ai fait à l'aide de Lien Hypertexte

@ + +

 

[nadem0068]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

re

ok bien vue je n'y aurais pas pensé merci🙄

 

[Staple1600]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

Bonsoir à tous

Une solution presque similaire à celle de néné06
(mais à mettre dans ThisWorkBook et pas dans un module)
(le code est donc valable sur n'importe quelle feuille)
Le souci c'est qu'ensuite on ne peut plus faire grand chose d'autre que:

sélectionner à partir de la cellule active toute les cellules au dessus

😉
Et à la longue, ca devient vite exaspérant. 😉
Mais au moins le code fait le job 😉 (et plus si on sélectionne plusieurs target*)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On error resume next
Range(Cells(2, Target.Column), Target).Select
End Sub

*: Dans ce cas, utilisez cette variante pour de la "mono-colonne" 😉

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 Then
Range(Cells(2, Target.Column), Target).Select
End If
End Sub

 

[Si...]

Re : sélectionner à partir de la cellule active toute les cellules au dessus de celle

salut

Bonsoir à tous

Une solution presque similaire à celle de néné06

Le souci c'est qu'ensuite on ne peut plus faire grand chose d'autre 😉
Et à la longue, ca devient vite exaspérant. 😉

on peut changer d'évènement (DoubleClic par exemple)

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  Range(Selection, Cells(1, R.Column)).Select
End Sub