Excel 2007 VBA Obtenir le numéro de ligne d'une cellule active par rapport à sa position dans une gamme

J'ai été me battre à mort en essayant de comprendre cela, ma page de recherche google est rempli avec des liens visités comme je l'ai essayer libellé mes recherches dans des centaines de façons différentes sans succès!

J'ai une plage, dire A8:A17, et si la cellule active est A10. Comment puis-je obtenir le numéro de ligne de A10 par rapport à la première cellule de la plage, A8 (je m'attends à ce que le résultat soit 3)? Je veux utiliser cette valeur pour faire référence à une autre cellule à l'aide de Range(exRange).Cells(exRow, 1). La seule façon que je peux penser de le faire est de faire une boucle par la plage jusqu'à ce que le numéro de boucle est égale à la ligne de la cellule active, mais il doit y avoir une manière plus propre de le faire!

InformationsquelleAutor bafedm | 2013-09-08
  1. 3

    Utiliser le Ligne Propriété:

    Sub bafedm()
    Dim Tabl As Range, r As Range
    Set Tabl = Range("A8:A17")
    Set r = Range("A10")
    MsgBox r.Row - Tabl.Row + 1
End Sub

    Pour référence, voici un code pour d'autres propriétés et les dimensions typiques d'une plage rectangulaire:

    Sub range_reporter()
    Dim r As Range
    Dim nLastRow As Long, nLastColumn As Long
    Dim FirstRow As Long, nFirstColumn As Long

    ActiveSheet.UsedRange
    Set r = ActiveSheet.UsedRange

    nLastRow = r.Rows.Count + r.Row - 1
    MsgBox ("last row " & nLastRow)

    nLastColumn = r.Columns.Count + r.Column - 1
    MsgBox ("last column " & nLastColumn)

    nFirstRow = r.Row
    MsgBox ("first row " & nFirstRow)

    nFirstColumn = r.Column
    MsgBox ("first column " & nFirstColumn)

    numrow = r.Rows.Count
    MsgBox ("number of rows " & numrow)

    numcol = r.Columns.Count
    MsgBox ("number of columns " & numcol)
    End Sub
    • Merci bien monsieur!
    • bafedm: vous avez tout intérêt dans les autres dimensions d'un rectangle de gamme??
    • J'ai pu voir comment faire de même pour obtenir la position de la colonne sera important pour moi, car j'aller plus loin dans mon projet, mais je l'attends à la même juste à l'aide de .Columm à la place. Que pour trouver le début et la fin de gammes de Google semble l'avoir assez bien couvert.
    InformationsquelleAutor Gary's Student
  2. -1

    Comment sur:

    =MATCH(A10, $A$:$A18$, 0) //returns 3
    • Cette méthode donnera des résultats erronés si il y a plusieurs cellules de la plage avec la même valeur que A10, auquel cas il sera toujours retourner 3 (la première instance du match).
    InformationsquelleAutor Alex P