[RESOLU]_Table: Parcourir cellules d'une colonne et trouver N° de ligne?

[Gdal]

Bonjour,

J'ai un code qui parcourt les cellules d'une colonne:

    Dim rgCellule As Range
        
    ' Parcourir les cellules de la colonnes
    For Each rgCellule In Range("Tbl_FormLuminaire").ListObject.DataBodyRange.Columns(2).Cells
    
        Debug.Print rgCellule.Value
    
    Next rgCellule

Y a-t-il une méthode pour connaître la ligne courante de la table? Je parle bien de la ligne de ma table, pas celle que l'on peut lire à gauche du tableau Excel.

Merci

Gdal

 

[flyonets44]

Re : Table: Parcourir cellules d'une colonne et trouver N° de ligne?

bonjour
Voici un code à adapter à ton besoin

Sub ici
Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Row, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With
End sub

Cordialement
Flyonets

 

[Guest]

Re : Table: Parcourir cellules d'une colonne et trouver N° de ligne?

Bonjour,

Pour retourner le numéro d' index de ligne de rgCellule dans la table

NumRow= rgCellule.Row - rg.Cellule.ListObject.HeaderRowRange.Row

Retournera 0 si rgCellule est dans l'entête de la table (ListObject)

A+

 

[Gdal]

Re : Table: Parcourir cellules d'une colonne et trouver N° de ligne?

Re,

J'étais en train de poster un message avec un fichier exemple, et Hasco est arrivé entre temps.
J'ai donc modifié mon fichier en insérant sa solution.
Regarde la pièce jointe Classeur1.xlsm

Merci beaucoup

Gdal

 

[Guest]

Re : Table: Parcourir cellules d'une colonne et trouver N° de ligne?

Re,

Pour un besoin particulier j'avais fait cette fonction qui retourne pour la cellule active ou la cellule passée en paramètre
-1 quand n'est pas dans le tableau
0 quand la cellule est dans l'entête
numéro d'index dans l'ordre ListRows quand la cellule est dans les données de la table

Function TableRowNum(Optional R As Range) As Long
    TableRowNum = -1
    If R Is Nothing Then Set R = ActiveCell Else Set R = R.Cells(1, 1)
    If Not R.ListObject Is Nothing Then
        TableRowNum = R.Row - R.ListObject.HeaderRowRange.Row
    End If
End Function

A+