Discussion :

[Subkill]

Mon problème est le suivant:

Si je sélectionne en cliquant sur la cellule A9 et que je descends jusqu'à A11.

j'utilise les formules suivante:

Code :

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

1
2
3
4
5
6
7
'1ere ligne
LigneDelSupp = ActiveCell.Row
 
'Derniere ligne
Dim str() as string
str = Split(Selection.Rows.Address, "$")
LigneDelInf = str(UBound(str))

LigneDelSupp = 9
LigneDelInf = 11
Comme ça tout fonctionne bien MAIS:

Si je sélectionne en cliquant sur la cellule A11 et que je monte jusqu'à la cellule A9 alors:

LigneDelSupp = ActiveCell.Row qui est égale à 11! et
LigneDelInf = 11!!!!

Comment faire dans ce cas pour que j'aille les bons nombres? Ou avez-vous une autre solution?

Merci bcp!!

[mordrhim]

Code :

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

1
2
3
4
    Dim str() As String
    str = Split(Replace(Selection.Rows.Address, ":", ""), "$")
    LigneDelSupp = str(2)
    LigneDelInf = str(UBound(str))