index dans boucle for each - tableau structuré

Bonjour,

Une question pour les experts.

J'ai un tableau structuré "Année"
Je boucle sur chaque ligne

Code:

---

1 2 3 4

for each ligne in range("Année").Rows ...blablabla... c'est ici que je veux savoir si on traite la ligne 1, 2, 3 ou 4.... Next ligne

---

Dans ma boucle "for each", j'aurai besoin de connaître le positionnement de ma ligne en cours de traitement dans son tableau d'origine "Année" ?
Dans ma boucle, comme je traite un seul objet ligne, il n'est plus "rattaché" à mon tableau du coup un truc du genre ligne.index ne marche pas, et si je suis en dehors de ma boucle, je ne sais pas quelle ligne je traite....

J'ai trouvé une solution un peu bricolo, j'ai un compteur initialisé à 0 et je l'incrémente de 1 à chaque itération de ma boucle "for each", je m'en sors ainsi mais je me demandais s'il n'y avait pas un moyen plus "propre", sans devoir gérer ce compteur manuellement, de savoir quel est l'index de la ligne en cours de traitement dans son tableau d'origine.

Code:

---

1 2 3 4 5 6

compteur = 0 for each ligne in range("Année").Rows compteur = compteur + 1 ...blablabla... c'est ici que je veux savoir si on traite la ligne 1, 2, 3 ou 4.... => c'est compteur Next ligne

---

Par avance merci

Bonjour,

Code:

---

Range("Année[#Headers]").Row

---

te donne la ligne des en-têtes de ton tableau. Ensuite il n'y a plus qu'à faire une soustraction avec la ligne de la cellule que tu traites.

Je te remercie pour ta réponse riaolle, mais le problème est justement de récupérer le positionnement de ma ligne (l'index) que je suis en train de traiter une fois que je suis à l'intérieure de ma boucle for each. Je ne sais pas dire (sauf en utilisant ma méthode de compteur que je ne trouve pas très élégante) si j'en suis à la 1ère, la 2ème, et ainsi de suite

Bonjour,
La propriété Row de l'objet Range, te donnera le numéro de la ligne dans la feuille mais pas dans le tableau.
Pour cela, il faut défalquer le numéro de la ligne que te donne la boucle par le numéro de la ligne où commence le tableau

Exemple 1 - Renvoie le numéro de la ligne de la feuille

Code:

---

1 2 3 4 5 6 7 8

Sub T() Dim Ligne As Range Dim compteur As Long For Each Ligne In Range("T_Target").Rows compteur = compteur + 1 Debug.Print Ligne.Row Next Ligne End Sub

---

Exemple 2 - Renvoie le numéro de la ligne dans le tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub t2() Dim oList As ListObject Dim Ligne As Range Dim compteur As Long Dim Start As Long Set oList = Range("T_Target").ListObject Start = oList.Range.Row For Each Ligne In oList.DataBodyRange.Rows compteur = compteur + 1 Debug.Print Ligne.Row - Start Next Ligne End Sub

---

Petites remarques

• Il est important de déclarer tes variables
• Il est inutile d'initialiser à 0 une variable numérique. Elle vaut 0 lors de sa déclaration
• Ayant le numéro de la ligne, je ne pense pas que tu aies besoin de la variable Compteur

Merci également Philippe.

En effet avec ta méthode plus besoin du compteur, mais à ce que je vois il n'est pas possible d'avoir directement la position de ma ligne dans le tableau, ce qui oblige à soustraire au positionnement de la ligne dans le classeur la position de ce même tableau dans le classeur... ça évite le compteur mais c'est pas vraiment plus simple et/ou plus lisible.

Je vais rester sur mon compteur je pense, mais merci, j'y vois plus clair et surtout je vois que je ne peux pas avoir directement la position dans le tableau :)

Hello,

Pour boucler un tableau je procède de la manière suivante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub BouclerContenu()   Dim ws As Worksheet Dim cel As Range Dim codeCherche As String Dim valRetour As String   Set ws = ActiveSheet codeCherche = "CP88"   For Each cel In ws.Range("TAB_Client[CodeClient]") If cel = codeCherche Then valRetour = ws.Cells(cel.Row, ws.Range("TAB_Client[Nom]").Column) Debug.Print valRetour End If Next   End Sub

---

L'avantage est que je peux facilement y ajouter un IF sur un certain contenu comme dans l'exemple (c'est en général l'objectif de boucler un tableau)-
En réalité je ne sais pas sur quelle ligne de tableau je me trouve, mais j'ai le numéro de ligne de ma feuille et cela suffit.

Pour la valeur de retour j'utilise ce numéro de ligne et le nom de la colonne du tableau (ws.Range("TAB_Client[Nom]").Column). L'avantage est que si je rajoute un jour une colonne avant cette colonne, mon code fonctionne toujours.

++

et pour supprimer un enregistrement du tableau, il est en effet nécessaire de connaitre son numéro. J'utilise cette méthode.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub SupprimerLigne()   Dim ws As Worksheet Dim cel As Range Dim codeCherche As String Dim num As Integer Dim oList As ListObject   Set ws = ActiveSheet Set oList = ws.ListObjects("TAB_Client") codeCherche = "CP88"   For Each cel In ws.Range("TAB_Client[CodeClient]") If cel = "CP88" Then oList.ListRows(cel.Row - oList.DataBodyRange.Row + 1).delete End If Next   End Sub

---

Merci à tous pour vos retour, je vais m'en sortir avec tout ça.
Je passe le sujet en résolu.

Bonjour,
Il est difficile d'apporter une réponse pertinente quand on ne connait pas la finalité d'un projet.
Par exemple dans la procédure ci-dessous, où on supprime la ligne d'un table nommée T_Target si la colonne dont l'étiquette est Qté a une valeur nulle, il n'y a pas de raison de chercher le numéro de la ligne puisque la variable RowNumber est ce numéro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub T() ' Déclaration Dim oList As ListObject Dim RowNumber As Long Dim ColumnNumber As Integer ' Affectation Set oList = Range("T_Target").ListObject ColumnNumber = oList.ListColumns("Qté").Index ' With oList.DataBodyRange For RowNumber = .Rows.Count To 1 Step -1 With .Rows(RowNumber) If .Cells(ColumnNumber).Value = 0 Then .Delete End With Next End With Set oList = Nothing End Sub

---

Bonjour Philippe,

Joli code, il m'ouvre une autre vision pour travailler avec les tableaux. Je vais "devoir" changer ma manière de faire car ce sera plus plus lisible.
Je n'avais pas pensé utiliser le positionnement des cellules dans le tableau ou plutôt j'avais essayé mais pas réussi. oList.DataBodyRange.cells().
Et grâce à cela on peut utiliser oList.ListColumns("Qté").Index et directement RowNumber .
Je m'incline ;-)

Beau Week-end

Bonjour,

La conversation a continué :)
Pour ma part j'ai vraiment besoin de stocker ce numéro de ligne dans le tableau car :
- je part d'un tableau "Année" contenant tout un tas d'événements sur toute l'année
- par macro je recopie dans un autre onglet la liste des événements du mois choisi pour afficher une sorte de planning mensuel (que l'identifiant + numéro de ligne)
- dans ce nouvel onglet j'ai de la mise en forme + récupération d'autres éléments dans le tableau d'origine, je fais ça avec la fonction excel INDEX et pour ce faire j'ai besoin de connaître la position des lignes récupérées dans leur tableau d'origine (Année)

Bien sûr je pourrai tout faire par macro au moment de la recopie mais ce serait bien compliqué alors que des fonctions excel le font très bien.

En tout cas merci pour tous ces éléments

Bonjour à tous

Avec un Tableau nommé MonTableau

Code:

---

1 2 3 4 5 6

With [MonTableau].ListObject For Each LR In .ListRows X = LR.Index 'donne la position de l'enregistrement dans le tableau Y = X + .Range.Row 'donne la ligne Excel Next End With

---