Plantage excel lors de l'ajout d'un enregistrement dans un tableau structuré

Question

je crée un tableau à partir de lignes recherchées dans une feuille excel

'''''''''''''''''''''''

' ligne variable globale

'''''''''''''''''''

With Worksheets("ENFANT").Range("A1:A500")

    Set c = .Find(ligne, LookIn:=xlValues) 

    If Not c Is Nothing Then ' le dossier est trouvé 

        firstAddress = c.Address 

        Do 

            Worksheets("PARAMETRE").Cells(i, 9) = Worksheets("ENFANT").Cells(c.Row, 1).Value 'dossier 

            Worksheets("PARAMETRE").Cells(i, 10) = Worksheets("ENFANT").Cells(c.Row, 2).Value 'Nom 

            Worksheets("PARAMETRE").Cells(i, 11) = Worksheets("ENFANT").Cells(c.Row, 3).Value 'prenom 

            Worksheets("PARAMETRE").Cells(i, 12) = Worksheets("ENFANT").Cells(c.Row, 4).Value 'Age 

            Worksheets("PARAMETRE").Cells(i, 13) = Worksheets("ENFANT").Cells(c.Row, 5).Value 'genre 

            Worksheets("PARAMETRE").Cells(i, 14) = c.Row 'numéro ligne de la feuille 

            i = i + 1 

            Set c = .FindNext(c) 

        Loop While Not c Is Nothing And c.Address <> firstAddress

Puis je redimensionne ce tableau pour n'avoir que les lignes utiles en supprimant les lignes vides pour lier ce tableau à une listbox sans ligne vide (le nombre d'enregistrement étant variable suivant mon critère de recherche lors de recherches successives) jusque là tout va bien.

je peux modifier les enregistrements existants dans ce tableau (ça marche aussi)

Le PROBLEME se produit lorsque je veux ajouter un enregistrement à ce tableau

Bdd = "BddENFANT"

Set tb = Worksheets("PARAMETRE").ListObjects(Bdd)

Dim l As ListObject

Dim r As ListRow

Dim i As Long

Set l = Range(Bdd).ListObject

        If Range(Bdd).ListObject.ListRows.Count = 0 Then 'créer un nouveau enregistrement quand table est vide 

            Set r = l.ListRows.Add.Range 

        Else 

            Set r = l.ListRows.Add ' Ajoute une ligne en bas du tableau 

        End If

ALORS Là BADABOUM Excel reboot

n'étant pas sûr de ma syntaxe, j'ai essayé d'ajouter manuellement un enregistrement en saisissant une valeur dans la 1ere colonne de la 1ere ligne sous le tableau et là encore BADABOUM Excel reboot

Quelqu'un a-t-il une idée

Answer 1

Bonjour,

Ton classeur doit être corrompu. Essaie de le réparer.

Daniel