Discussion :

[HABILER]

Bonjour à tous,


Le code suivant me retourne un code erreur 9 subsrcipt out of range. Pourtant l(orthographe de la table et du sheet1 sont bons.
IL stoppe sur Bibi.

Quelqu'un sait de quoi il retourne ?

Merci d'avance

Habiler

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub PopupAvecDonnéesTable()
 
    ' Define variables
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim tblRange As Range
    Dim popupText As String
 
    ' Définition table et variables
    Set ws = ActiveWorkbook.Worksheets("Sheet1") 'Emplacement de la table
    Set tbl = ws.ListObjects("Bibi") ' Nom de la table
 
    ' Set de la table range variable
    Set tblRange = tbl.Range
 
    ' Parcourt les rangées et colonnes et construit le popup
    For i = 1 To tblRange.Rows.Count
        For j = 1 To tblRange.Columns.Count
            popupText = popupText & tblRange.Cells(i, j).Value & vbTab
        Next j
        popupText = popupText & vbCrLf
    Next i
 
    ' Affichage du popup avec les données de la table
    MsgBox prompt:=popupText, Title:="Données de ...."
 
End Sub

[Tête de chat]

Bonjour,

Chez moi ceci fonctionne :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Set ws = ActiveWorkbook.Worksheets("Feuil2") 'Emplacement de la table
    Set tbl = ws.ListObjects("Bibi") ' Nom de la table
    Debug.Print tbl.Name
End Sub

Tu es sûr que Activeworkbook est bien le classeur que tu imagines ?

[HABILER]

J' essayé avec un fichier test sheet1 sheet2 et même book1 sans résutltats

Book1.xlsm

[Tête de chat]

Bonjour,

ton tableau s'appelle Table1. C'est la colonne qui s'appelle Bibi.



Pour modifier le nom du tableau, cliquer dedans et sélectionner "Création de tableau" dans le ruban, à droite.

[HABILER]

Re,

Ok cela marche en test mais en réel j'ai à nouveau le même problème.

J'ai en feuille "BaremesIndexed" la tabke Ech_24k et en feuille fonctions différents calculs.
J'ai donc le code suivant qui me renvoie Subscript out of range soit avec ou sanc code error 9.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub PopupAvecDonnéesTable()
 
    ' Define variables
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim tblRange As Range
    Dim popupText As String
 
    ' Définition table et variables
    Set ws = ActiveWorkbook.Worksheets("BaremesIndexed") 'Emplacement de la table
    Set tbl = ws.ListObjects("Ech_24k") ' Nom de la table
 
    ' Set de la table range variable
    Set tblRange = tbl.Range
 
    ' Parcourt les rangées et colonnes et construit le popup
    For i = 1 To tblRange.Rows.Count
        For j = 1 To tblRange.Columns.Count
            popupText = popupText & tblRange.Cells(i, j).Value & vbTab
        Next j
        popupText = popupText & vbCrLf
    Next i
 
    ' Affichage du popup avec les données de la table
    MsgBox prompt:=popupText, Title:="Données de ...."
 
End Sub

[Tête de chat]

Re.

Tu ne dis pas quelle est la ligne qui plante. Le set ws ou le set tbl ou autre ?

Tu n'a pas répondu à "Tu es sûr que Activeworkbook est bien le classeur que tu imagines ?"

Sinon tu as essayé de mettre un debug pour tracer ws.ListObjects.count ou ws.ListObjects(1).name ?

[Philippe Tulliez]

Bonjour,
La dernière image publiée ne semble pas être un tableau structuré.
Vous avez peur de quoi avec ces images partielles où l'on ne visualise pas le minimum pour vous aider

Je partage le questionnement de "Tête de chat", si c'est vraiment un tableau structuré, le classeur où il se trouve ne doit pas être le classeur actif

[HABILER]

Bonsoir à tous,

Ce n'était effectivement pas une table structurée.

Un SUPER merci

Habiler