Discussion :

[LG-69]

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 :

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

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.

[Thautheme]

Bonjour LG, bonjour le forum,

Peut-être comme ça :

Code :

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

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

[Philippe Tulliez]

Bonjour,

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 :

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

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

[LG-69]

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 :

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

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 ?

[Philippe Tulliez]

Bonjour,

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

[LG-69]

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