Discussion :

[gstn_lgff]

Bonjour le forum,

Voici l'exposé de mon problème.

J'utilise les super outils proposés par #Laurent Ott# de gestion des tableaux structurés.

J'ai un tableau structuré possédant pas mal de lignes. Pour gagner en rapidité d'exécution, je filtre le tableau avec la fonction TS_Filtres_Poser

Je souhaite parcourir mes lignes filtrées et en lire les valeurs, mais je ne parviens pas à récupérer l'index de chacune des lignes de mon tableau filtré. Cet index m'est très utile pour lire les informations (fonction TS_InfoCellule) ou pour en rechercher une (fonction TS_Rechercher), sachant que je ne veux passer en paramètre que les lignes filtrées.

Voici ma question :

Comment parcourir mon tableau structuré filtré pour lire chaque ligne et comment obtenir le numéro d'index de la ligne en cours de traitement ?
Existe-t-il une formule pour lire l'index d'une ligne d'un tableau filtré ou, à défaut, un petit programme qui le ferait ?
Sachant que je ne cherche pas le numéro de ligne absolue de la cellule, mais sa positon relative dans ma table structurée.

Et une question subsidiaire : comment savoir si une cellule (qui a été modifiée par exemple) appartient à un tableau structuré et comment obtenir ses coordonnées relatives dans le tableau (le numéro d'index et le numéro de colonne), par exemple la cellule C24 est à la 10ème ligne et la 2ème colonne de mon tableau structuré.

Je vous remercie par avance des réponses que vous pourriez me donner.

JM

PS : j'utilise la version 16 d'Excel pour Mac, mais je souhaite que la ou les solutions proposées soient compatibles avec des versions antérieures fonctionnant sur Windows 10 (Office 2013 version 15)

[Mr l'Ashanti]

Bonjour à vous

Je proposerais d'utiliser la boucle for each pour parcourir de bout à bout les cellules

[gstn_lgff]

Bonjour à vous

Je proposerais d'utiliser la boucle for each pour parcourir de bout à bout les cellules

C'est une solution que j'avais envisagé, mais ma table sera conséquente et je souhaitais parvenir à une solution plus rapide.

Après maintes recherches, j'ai fait ce petit code qui fonctionne :

[Index de ma cellule] = Cellule.Row - [Mon tableau].Cells(1).Row + 1

soit le numéro de ligne physique de ma cellule - le numéro de ligne de la première cellule du tableau + 1
avec un système de gestion d'erreur si le tableau est vide et et de test d'appartenance de ma cellule avec mon tableau (avec la commande intersect).

Et ça semble fonctionner...

En tout cas, merci de votre réponse.

[jurassic pork]

Hello,

Et une question subsidiaire : comment savoir si une cellule (qui a été modifiée par exemple) appartient à un tableau structuré et comment obtenir ses coordonnées relatives dans le tableau (le numéro d'index et le numéro de colonne), par exemple la cellule C24 est à la 10ème ligne et la 2ème colonne de mon tableau structuré.

Peut-être que ma fonction CellActiveTS(NomTableau) qui se trouve ici, peut t'aider pour cela.

Ami calmant, J.P

[laurent_ott]

Bonjour,
Une fonction pour parcourir les lignes visibles d'un tableau "Tableau1" :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Boucle_Sur_Lignes_Visibles()
 
Dim TS As Range
Set TS = Range("Tableau1")
 
Dim r As Range
For Each r In TS.ListObject.DataBodyRange.SpecialCells(xlCellTypeVisible)
    Debug.Print r.Row - TS.Row + 1
Next r
 
End Sub

La fonction de jurassic pork est très pratique également.

Bonne programmation.

[Invité]

Bonjour le fil

@laurent_ott, petite modification à ton code si je puis me permettre

Permet de ne parcourir que les cellules de la 1ère colonne

Code :

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

1
2
3
4
5
6
Sub Boucle_Sur_Lignes_Visibles()  Dim TS As Range, r As Range
  Set TS = Range("Tableau1")
  For Each r In TS.ListObject.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
    Debug.Print r.Row - TS.Row + 1
  Next r
End Sub

A+

[laurent_ott]

Bonjour le fil

@laurent_ott, petite modification à ton code si je puis me permettre

Permet de ne parcourir que les cellules de la 1ère colonne

Code :

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

1
2
3
4
5
6
Sub Boucle_Sur_Lignes_Visibles()  Dim TS As Range, r As Range
  Set TS = Range("Tableau1")
  For Each r In TS.ListObject.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
    Debug.Print r.Row - TS.Row + 1
  Next r
End Sub

A+

Effectivement, et en gérant le cas où aucune cellule est visible :

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Boucle_Sur_Lignes_Visibles()
 
Dim TS As Range
Set TS = Range("Tableau1")
 
Dim r As Range, c As Range
On Error Resume Next
Set c = TS.ListObject.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
If Not c Is Nothing Then
    For Each r In c
        Debug.Print r.Row - TS.Row + 1
    Next r
End If
On Error GoTo 0
End Sub

Bonne programmation.