macro : sélectionner lignes

[gdel45]

bonour,

quelqu'un est-il en mesure de me fournir la macro permettant de sélectionner les lignes actives d'un tableau, c'est-à-dire de la ligne1 jusqu'à la dernière ligne utile, sachant que des lignes intermédiaires peuvent être vides.
merci d'avance pour votre aide

 

[Pierrot93]

Re : macro : sélectionner lignes

Bonjour gdel

essaye peut être le code ci-dessous, si j'ai bien compris :

Option Explicit
Sub test()
Dim p As Range, i As Long
For i = 1 To Cells.Find("*", , xlValues, , 1, 2, 0).Row
    If Application.CountA(Rows(i)) > 0 Then
        Set p = Union(IIf(p Is Nothing, Rows(i), p), Rows(i))
    End If
Next i
p.Select
End Sub

bonne soirée
@+

 

[gdel45]

Re : macro : sélectionner lignes

Merci beaucoup Pierrot, cela fonctionne parfaitement.
Bonne soirée