Número de línea de una celda en VBA

¡Gracias!
Estaba escribiendo .Rows con una "s", así que creo que eso es por lo que no funcionaba.
Otra pregunta, ¿cómo podría acceder a la primera y a la última fila de un rango de celdas?
¿No habría algo como: Range("mi_rango").FirstRow?

Gracias

Re,

Quizás

Sub línea_rango() Dim l1, l2 Dim rango As Range Set rango = Range("A3:B6") With rango l1 = .Row l2 = l1 + .Rows.Count - 1 End With MsgBox l1 & " y " & l2 End Sub

--
106485010510997108

Hola :)

por otro lado..

Set rango = Range("A3:B6")
a = InStr(1, rango.Address, ":")
fila1 = Mid(rango.Address, a - 1, 1)
fila2 = Right(rango.Address, 1)
MsgBox "fila1=" & fila1 & " - fila2=" & fila2

Gracias jjsteing, pero si he nombrado mi rango de celdas, ¿no va a funcionar?

Sí, efectivamente, lo siento, funciona para mí.

genial.. entonces post resuelto ;):p

Por el contrario, mis rangos de celdas están ubicados en una gran tabla que puede variar todo el tiempo, por lo que mis rangos se "mueven". Pueden tener números de fila de 2 dígitos o de 3 dígitos, por lo que si pongo:

ligne2 = Right(plage.Address, 3) cuando mi número de rango tiene 2 dígitos no funciona (y quiero algo general que se adapte a estos 2 casos de figura...)

Si, por ejemplo, se trata de la línea 21, la celda en la que recupero este número tiene como valor 21 € !!!! No sé por qué aparece el signo € !!

Es cierto...

Entonces :
Set plage = Range("AA33:BA67")
CellAdd = plage.Address
a = InStr(2, CellAdd, "$")
b = InStr(1, CellAdd , ":")

ligne1 = Mid(CellAdd , a + 1, b - a - 1)

c = InStr(b + 2, CellAdd, "$")
ligne2 = Right(CellAdd , Len(CellAdd) - c)
MsgBox "ligne1=" & ligne1 & " - ligne2=" & ligne2

para tu signo € mira el formato de tu celda ;)

¡Funciona genial, muchas gracias! ¡Esto me permitirá aligerar considerablemente mi código!
He verificado mi formato de celda, estaba bien en formato estándar... es extraño. De todos modos, funciona, ¡así que es genial!
¡Gracias de nuevo! :-)

Hola, otro pequeño problema ....
Quisiera que después del código:

Set plage = Range("AA33:BA67")
CellAdd = plage.Address
a = InStr(2, CellAdd, "$")
b = InStr(1, CellAdd , ":")

ligne1 = Mid(CellAdd , a + 1, b - a - 1)

c = InStr(b + 2, CellAdd, "$")
ligne2 = Right(CellAdd , Len(CellAdd) - c)

hacer:

Rows("ligne1:ligne2").Select

pero no funciona, me devuelve un mensaje de error: "incompatibilidad de tipo"

¿Cómo puedo hacerlo???

Muchas gracias :-)

Hola,

Rows(línea1 & ":" & línea2).Select

--
106485010510997108

Re,

En realidad, línea1 y línea2 son variables que contienen un número.
Rows necesita los números de líneas y no cadenas de caracteres.
Cuando pones las comillas, VBA cree que las cadenas línea1 y línea2 son números, por eso tienes un error.
Lo que interesa es el contenido de línea1 y línea2.
--
106485010510997108

¡Super, gracias!