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