XL 2010 [RESOLU]Numero colonne entete tableau structuré

[cp4]

Bonjour,

J'ai ce type de tableau structuré, je voudrais mettre dans une variable le numéro de colonne des entêtes.
Afin de pouvoir le réutiliser dans une procédure car le tableau pourrait évoluer (ajout de colonnes à l'intérieur du tableau).

En vous remerciant par avance.

ps: initialement, il n'y avait pas de colonne Monnaie

Bonne soirée à vous.

Edit: Je me suis noyé dans un verre d'eau. Finalement, j'ai trouvé

Range("tableau1" & "[crédit]").Column

 

[laurent950]

Bonjour cp4,
Range("tableau1" & "[crédit]").Column
"tableau1" = Cprrespond à quoi ?
"[crédit]" = Correspond à quoi ?

J'ai ce type de tableau structuré, soit le tableau Structuré "tableau1"
A4 = Date
B4 = Crédit
C4 = Débit
D4 = Solde
E4 = Observation

ps: initialement, il n'y avait pas de colonne Monnaie, qu'elle est le rapport avec "[Monnaie]"

• les données d’une colonne : Range("tableau1[crédit]") ;
• toute une colonne, en ce compris les lignes d’entête à derniére ligne : Range("tableau1[[#All],[crédit]]") ;
• https://fauconnier.developpez.com/tutoriels/exceltableauxstructuresvba/#

 

[Jacky67]

Bonjour,

J'ai ce type de tableau structuré, je voudrais mettre dans une variable le numéro de colonne des entêtes.
Afin de pouvoir le réutiliser dans une procédure car le tableau pourrait évoluer (ajout de colonnes à l'intérieur du tableau).
Regarde la pièce jointe 1067455

En vous remerciant par avance.

ps: initialement, il n'y avait pas de colonne Monnaie

Bonne soirée à vous.

Edit: Je me suis noyé dans un verre d'eau. Finalement, j'ai trouvé

Range("tableau1" & "[crédit]").Column

Bonjour,
Sans concaténer
MsgBox [Tableau1[crédit]].Column 'OU MsgBox Range("tableau1[crédit]").Column

 

[cp4]

Bonjour cp4,
Range("tableau1" & "[crédit]").Column
"tableau1" = Cprrespond à quoi ?
"[crédit]" = Correspond à quoi ?

J'ai ce type de tableau structuré, soit le tableau Structuré "tableau1"
A4 = Date
B4 = Crédit
C4 = Débit
D4 = Solde
E4 = Observation

ps: initialement, il n'y avait pas de colonne Monnaie, qu'elle est le rapport avec "[crédit]"

Salut Laurent950, pourquoi es-tu dans cet état alors qu'on est dimanche.

Tableau1 est le nom du tableau
Crédit est le nom de l'entête

Pour ton ps:
Dans ma procédure évènementielle j'avais ceci: If Target.Column = 2 And Ligne = 5 Then (colonne 2 était Crédit) en insérant une colonne ma procédure ne pouvait plus fonctionner. Est-ce que ça te suffit comme réponse.

Bonne soirée et repose-toi bien, il me semble que tu es fatigué en cette fin de journée.

 

[cp4]

Bonjour,
Sans concatener
MsgBox [Tableau1[crédit]].Column 'OU MsgBox Range("tableau1[crédit]").Column

Salut Jacky67,
Je viens de testé, ça fonctionne du tonnerre.
Merci beaucoup.
Bonne soirée.

 

[laurent950]

Salut Laurent950, pourquoi es-tu dans cet état alors qu'on est dimanche

Hello cp4 content de ta réponse, j'ai trouvé sympa cette ligne de code et j'avais envie de comprendre je chercher simplement sans trouver de réponse. Merci à toi cp4.
J'ai ajouter 2 réponses dans mon poste #2 dont une en complément de jacky67

Laurent

 

[cp4]

Hello cp4 content de ta réponse, j'ai trouvé sympa cette ligne de code et j'avais envie de comprendre je chercher simplement sans trouvé de réponse. Merci à toi cp4.
J'ai ajouter 2 réponses dans mon poste #2 dont une en complément de jacky67

Laurent

Merci beaucoup.

Bonne soirée.

 

[laurent950]

Re,
Il n'y a pas une possibilité de faire une boucle pour récupérer les nom des entêtes des tableaux structuré ? je viens de penser a cela ?
Peux être si tu me laisse le code ici je regarde, j'utilise jamais les tableaux structuré, juste pour voir si je m'en sort aussi et un peux d'entrainement sur quelque choses e nouveau

 

[cp4]

Re,
Il n'y a pas une possibilité de faire une boucle pour récupérer les nom des entêtes des tableaux structuré ? je viens de penser a cela ?
Peux être si tu me laisse le code ici je regarde, j'utilise jamais les tableaux structuré, juste pour voir si je m'en sort aussi et un peux d'entrainement sur quelque choses e nouveau

Pour le moment, je voulais me casser la tête et ouvrir une discussion en cas de blocage.
Comme tu veux t'entrainer, je te joint une copie du fichier. Tu y trouveras un descriptif de mon casse-tête pour découvrir et apprendre.
Le code en question est dans le module de la feuille1.

Bon courage.

 

[laurent950]

Merci cp4 je vais me pencher sur les tableaux structuré

 

[eriiic]

Bonjour à tous,

tu peux récupérer le libellé, ça auto-commentera le code :

    With ActiveWorkbook.Worksheets("Feuil1").ListObjects(1)
        MsgBox Intersect(.HeaderRowRange, Target.EntireColumn).Value
    End With

eric

 

[cp4]

B

Bonjour à tous,

tu peux récupérer le libellé, ça auto-commentera le code :

    With ActiveWorkbook.Worksheets("Feuil1").ListObjects(1)
        MsgBox Intersect(.HeaderRowRange, Target.EntireColumn).Value
    End With

eric

Bonsoir Eric , impeccable. Juste changer .Value par .Column et c'est bon pour moi.

1000 mercis. Bonne soirée.

 

[eriiic]

Juste changer .Value par .Column

?????
Mais non.
Le but était de tester if ... = "Crédit" then
plus parlant que if column=2 then
eric

 

[cp4]

?????
Mais non.
Le but était de tester if ... = "Crédit" then
plus parlant que if column=2 then
eric

Encore merci. Je suis confus, je n'y avais pas pensé.

 

[laurent950]

Re,
J'ai fait un test par rapport à ton fichier : les tableaux structures vba

Sub tableSheetForEach()

    Dim sh As Worksheet
        Set sh = ThisWorkbook.Worksheets("Feuil1")
    Dim tbl As ListObject

    ' Boucle à travers toutes les tables de la "Feuil1"
        For Each tbl In sh.ListObjects
            If tbl.Name = "Tableau1" Then
                ' Mise en mémoire
                    Dim Tableau1 As ListObject
                    Debug.Print tbl.Name
                    Set Tableau1 = tbl
                Exit For
            End If
        Next tbl
    ' Boucle sur tbl = tableau1
        Dim cel As Range
            For Each cel In Tableau1.Range
               ' Exemple "Crédit"
                If cel = "Crédit" Then
                    MsgBox cel.Value
                    MsgBox cel.Address
                    MsgBox cel.Column
                    MsgBox cel.Row
                    Exit For
                End If
            Next
End Sub

Excel: Les tableaux structurés en VBA

Excel: Les tableaux structurés en VBA

fauconnier.developpez.com

VBA Loop through Tables - EXCELCISE

VBA code how to loop through tables on a worksheet and/or all sheets of a workbook using For Each loop or ListObjects.Count.

www.excelcise.org

ListObject : boucler sur une colonne dont on connait le nom - Macros et VBA Excel

J'aimerais boucler sur toutes les cellules d'une colonne d'un ListObject; en sachant que je connait le nom de la colonne sur laquelle je souhaite boucler. Pour mon code ne fonctionne-t-il pas ? Code : - 1 2 3 4

www.developpez.net