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

néné06

XLDnaute Accro

• 27 Avril 2014

• #2

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é

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Avril 2014

• #3

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é 🙂

 

Pièces jointes

• Nadem.xlsm

  10.2 KB · Affichages: 44

Dernière édition: 27 Avril 2014

Vote positif 0 Vote négatif

nadem0068

XLDnaute Junior

• 27 Avril 2014

• #4

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 27 Avril 2014

• #5

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

@ + +

 

Vote positif 0 Vote négatif

nadem0068

XLDnaute Junior

• 27 Avril 2014

• #6

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🙄

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Avril 2014

• #7

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

Cliquez pour agrandir...

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

Code:

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" 😉

Code:

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

 

Dernière édition: 27 Avril 2014

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Avril 2014

• #8

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

salut

Staple1600 à dit:

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. 😉

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif