Boucle sur lignes tableau structuré

Version imprimable

10/12/2019, 09h46
LG-69

Boucle sur lignes tableau structuré
Bonjour,

Je me suis lancé dans une macro mais je m'y perds un peu...

J'ai un tableau structuré qui se nomme "Export_jira", il a pas mal de colonnes, celles qui m'intéressent sont :
- en position 62 : "Anciennete"
- en position 2 : "reference"

Ce que je veux faire c'est boucler sur mon tableau, chaque fois que la valeur en colonne "Anciennete" prend la valeur "Nouvelle", je vais déclencher une action en récupérant la valeur de la colonne "reference" (dans l'exemple je fais juste une Msgbox mais j'aurai d'autres actions à faire)

J'ai fait le code ci-dessous qui fonctionne mais je mets "en dur" les positions des colonnes, ce qui est nul sachant que mes colonnes ont de vrais noms mais je n'arrive pas à remplacer par des noms, je ne sais pas quelles fonctions/attributs utiliser
Code:

1 2 3 4 5 For Each ligne In Range("Export_jira").Rows If ligne.Cells(62).Value = "Nouvelle" Then MsgBox (ligne.Cells(2)) End If Next
Je ne fais que très peu de VBA et ne suis pas très habitué à la notion "d'objet" alors je m'y perds un peu quand ça devient compliqué... j'ai trouvé des infos sur les Listobjects, les range,... mais je m'y perds...
Je suis donc preneur pour un petit coup de main pour adapter ma macro.

Bonjour LG, bonjour le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
Dim C As Range
 
For Each C In Range("Export_jira[Anciennete]")
   If C.Value = "Nouvelle" Then
        MsgBox (C.Offset(0, -60).Value)
   End If
Next

10/12/2019, 10h57
Philippe Tulliez

Bonjour,

Citation:

J'ai fait le code ci-dessous qui fonctionne mais je mets "en dur" les positions des colonnes, ce qui est nul sachant que mes colonnes ont de vrais noms mais je n'arrive pas à remplacer par des noms, je ne sais pas quelles fonctions/attributs utiliser

Pour connaître le numéro de colonne d'un tableau structuré en indiquant le nom de l'étiquette, on utilise la propriété Index de la collection ListColumns
Exemple

Code:

MsgBox ThisWorkbook.Worksheets("db").ListObjects(1).ListColumns("civil").Index

Je vous remercie tous les deux,

J'ai transformé mon code pour récupérer les index des deux colonnes qui m'intéressent, puis en replaçant mes valeurs en dur par les index que j'ai trouvé. Ca fonctionne :
Code:

1 2 3 4 5 6 7 colonne_nouvelle = Worksheets("general_report").ListObjects("Export_jira").ListColumns("Anciennete").Index colonne_réference = Worksheets("general_report").ListObjects("Export_jira").ListColumns("reference").Index For Each ligne In Range("Export_jira").Rows If ligne.Cells(colonne_nouvelle).Value = "Nouvelle" Then MsgBox (ligne.Cells(colonne_réference)) End If Next
Je me serais attendu à pouvoir récupérer directement la bonne cellule en nommant la colonne concernée sur ma ligne mais sans doute que ce n'est pas le bon type d'objet. Après l'important c'est d'avoir quelque chose qui fonctionne avec un code compréhensible.

J'ai quand même une question complémentaire : on est obligé de préciser la feuille (worksheet) sur laquelle est le tableau ? Si je ne mets pas, que j'utilise directement "Listobjects", ça plante. Pourtant mon tableau est bien déclaré au niveau du classeur, pas au niveau de la feuille de calcul me semble-t-il ?

10/12/2019, 13h28
Philippe Tulliez

Bonjour,

Citation:

J'ai quand même une question complémentaire : on est obligé de préciser la feuille (worksheet) sur laquelle est le tableau ? Si je ne mets pas, que j'utilise directement "Listobjects", ça plante. Pourtant mon tableau est bien déclaré au niveau du classeur, pas au niveau de la feuille de calcul me semble-t-il ?

La collection ListObjects est lié à la feuille tout comme PivotTables donc oui, il faut préciser l'objet feuille. C'est d'ailleurs ainsi que l'on peut savoir si une feuille contient un ou plusieurs tableaux en utilisant la propriété Count
10/12/2019, 17h34
LG-69

ok merci pour votre aide et réponses
Je peux donc clore ce sujet.

Salut

Il est possible d'utiliser With pour allègre l'écriture

Code:

1
2
3
4
5
6
7
8
9
10
    'On pointe le tableau
    With Worksheets("general_report").ListObjects("Export_jira")
        colonne_nouvelle = .ListColumns("Anciennete").Index
        colonne_réference = .ListColumns("reference").Index
        For Each ligne In .ListRows.Count
           If ligne.Cells(colonne_nouvelle).Value = "Nouvelle" Then
                MsgBox (ligne.Cells(colonne_réference))
           End If
        Next
    End With

++
Qwaz

Syntaxe ?

Bonjour…

Pour alléger l’écriture, il est aussi possible d’utiliser une syntaxe de base générale
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [Export_jira].Columns(62)) Is Nothing And Target.CountLarge = 1 Then If Target = "Nouvelle" Then Macro(Target(1, -59)) 'appel d'une sous routine End If End Sub Sub Macro(n As Long) MsgBox "selon la ligne contenant" & n, vbInformation, "Action..." End Sub
Nota : bien sûr, ce code doit être écrit dans la fenêtre de code de l'onglet où le Tableau a été créé. Par la suite (s'il y en a une le concernat), il ne sera pas nécessaire de préciser cette référence.