Code erreur 9 - Set tbl = ws.ListObjects

Version imprimable

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:

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

Bonjour,

Chez moi ceci fonctionne :

Code:

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 ?

15/03/2023, 13h16
HABILER

1 pièce(s) jointe(s)

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

Pièce jointe 635816
15/03/2023, 13h45
Tête de chat

1 pièce(s) jointe(s)

Bonjour,

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

Pièce jointe 635826

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

2 pièce(s) jointe(s)

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.Pièce jointe 635838 Pièce jointe 635839

Code:

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

15/03/2023, 16h12
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 ?
15/03/2023, 17h10
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
15/03/2023, 21h43
HABILER

Bonsoir à tous,

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

Un SUPER merci

Habiler