Discussion :

[Oh!Tofocus]

Bonsoir...
Aprés avoir fait une selection sur ma feuille (ex: B3:C12)
je voudrais pouvoir lancer une macro qui recupère les numeros de lignes extrèmes. ( valeur 3 et 12 dans mon exemple )
pour la première ligne de selection j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

premiere_ligne = Selection.Row

mais pour la dernière je suis bloqué

mais je suis sur que vous avez la solution

[alsimbad]

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub test()
premiere_ligne = Selection.Row
NBdelignes = Selection.Rows.Count
derniereligne = premiere_ligne + NBdelignes
End Sub

[Oh!Tofocus]

Merci alsimbad

ça marche bien j'ai juste modifié derniereligne avec -1
pour determiner la derniere ligne de la selection effective

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derniereligne = premiere_ligne + NBdelignes - 1

A+