Récupérer les numéros des lignes sélectionnées

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #2

Re : Récupérer les numéros des lignes sélectionnées

Bonjour Mesdames, Messieurs

Si j'ai bien compris

Code:

Sub Masquer()
Selection.Columns.Hidden = True
End Sub

 

Vote positif 0 Vote négatif

C

caritijak

Guest

• 22 Septembre 2011

• #3

Re : Récupérer les numéros des lignes sélectionnées

Bonjour,

Non, pas tout à fait : l'utilisateur va cliquer sur une ou plusieurs cellules (avec shit ou CTRL) et je veux récupérer les lignes sur lesquelles il a sélectionné une cellule.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #4

Re : Récupérer les numéros des lignes sélectionnées

Et avec cette macro ?

Code:

Sub Macro1()
Dim p As Range, a, i As Byte
Set p = Selection
a = Split(p.Address(0, 0), ",")
For i =0 To UBound(a)
MsgBox a(i)
Next i
End Sub

 

Dernière édition: 22 Septembre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #5

Re : Récupérer les numéros des lignes sélectionnées

Modifiée pour avoir les numéros de ligne:

Code:

Sub Macro2()
Dim p As Range, a, i As Byte
Set p = Selection
a = Split(p.Address, ",")
For i = 0 To UBound(a)
MsgBox Range(a(i)).Row
Next i
End Sub

 

Vote positif 0 Vote négatif

C

caritijak

Guest

• 22 Septembre 2011

• #6

Re : Récupérer les numéros des lignes sélectionnées

Jôôôli !

Ca marche parfaitement.

Je ne comprends pas tout (pour l'instant) mais j'achète.

Merci bien.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2011

• #7

Re : Récupérer les numéros des lignes sélectionnées

Bonjour caritijak, TempusFugit,

Cette solution :

- limite la recherche des lignes au UsedRange

- permet la sélection multiple de plages constituées de plusieurs lignes

- ne prend pas en compte les lignes en doublon.

Code:

Sub Lignes()
Dim sel As Range, d As Object
Set sel = Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
If sel Is Nothing Then Exit Sub
Set d = CreateObject("Scripting.Dictionary")
For Each sel In sel.Rows
  d(sel.Row) = sel.Row
Next
MsgBox "N° des lignes sélectionnées :" & vbLf & vbLf & Join(d.keys, "-")
End Sub

A+

 

Dernière édition: 22 Septembre 2011

Vote positif 0 Vote négatif