Probleme sur mon scipte VBA

[kheiro]

salut
j’ai cree un scipte qui fait le reporting mes il ya un msg qui figure 1004.
poussible qu’un peut m’aide,?

[ouisansdoute]

Bonjour,

sur la page ci-dessous, quelques exemples de cause d’arreur 1004
https://fr.teamaftermarket.com/303-vba-1004-error

[kheiro]

Bonjour,
aussi j’ai cette anomalie quant je l’ansse application

' // AddData By Jean-Paul (Valtrase) le : 27/03/2022
' // Ajoute une ligne au tableau et y incris les valeurs passées en paramètres
Function AddData(Tablename As String, Map)
    Dim r As Long
    Dim i As Long
    Dim t As ListObject

    Set t = Range(Tablename).ListObject
    r = t.ListRows.Add.Index
    For i = LBound(Map) To UBound(Map) Step 2
        t.ListColumns(Map(i)).DataBodyRange(r).Value = Map(i + 1)
    Next i
    Set t = Nothing
End Function