problème ajout ligne sur tableau structuré

Bonjour à tous,

Sans doute que les spécialistes des tableaux structurés vont me donner la réponse mais malgré les recherches et les tests je n'ai rien trouvé.

J'ai ce code qui introduit une nouvelle ligne dans un tableau :

Code:

---

1 2 3 4 5 6 7

lgl = Range("T_lieu[Numéro]").ListObject.ListRows.Count + 2 mxl = Application.Max(Range("T_Lieu[Numéro]")) + 1 Set wl = Sheets("Lieux").Cells(lgl, 1) wl.Offset(-1, 0).ListObject.ListRows.Add AlwaysInsert:=True wl.Value = mxl wl.Offset(0, 1).Value = CZI.TextBox5.Value wl.Offset(0, 2).Value = CZI.TextBox6.Value

---

Il fonctionne parfaitement sur les versions excel 7/10 mais en versions 13/16
il plante invariablement après l'insertion de la ligne et excel se ferme.

Quelle modification dois-je apporter pour qu'il fonctionne aussi sur ces versions ?

Merci d'avance pour vos suggestions.

Bonjour,
Voici un exemple d'une insertion de ligne dans le tableau structuré présent dans la feuille active.

Code:

---

1 2 3

Dim oList As ListObject Set oList = ActiveSheet.ListObjects(1) oList.ListRows.Add

---

Sans argument la méthode Add ajoute une ligne après la dernière.
Pour insérer une ligne avant la première c'est

Code:

---

oList.ListRows.Add 1

---

Bonjour,

Exemple si la table est nommée Client

Version Excel VBA 16

Code:

---

1 2 3 4 5 6 7 8 9 10

enreg = [client].Rows.Count + 1 [client].Item(enreg, 1) = Val(Me.Id) [client].Item(enreg, 2) = Me.Nom [client].Item(enreg, 3) = Me.Rue [client].Item(enreg, 4) = Me.Ville [client].Item(enreg, 5) = Me.CodePostal [client].Item(enreg, 6) = Me.Tph [client].Item(enreg, 7) = Me.Portable [client].Item(enreg, 8) = Me.Email [client].Item(enreg, 9) = Me.Remarques

---

Boisgontier

Bonjour et merci de vos réponses.

@boisgontierjacques j'ai essayé cette méthode mais en 2016 elle ne fonctionne pas dans mon cas car il suffisait de mettre en commentaire ma ligne "add".

@Philippe Tulliez j'avais aussi essayé cette méthode mais en 2016 elle plante aussi, je viens de tester à nouveau.

La création de ligne se fait à partir d'un second userform si elle n'existe pas dans le combobox du premier userform

Cela vient peut-être de là : je vais essayer de passer par un frame sur le premier userform.

Merci d'avoir répondu

Bonsoir,

J'ai enfin trouvé le problème, j'ai :
-créé une nouvelle feuille
-créé un nouveau tableau
-transféré mes données
-supprimé l'ancienne feuille
-renommé la feuille et le tableau
et ce qui fonctionnait en 2007/2010 fonctionne aussi en 2013/2016

Rien pourtant ne distingue apparemment l'ancienne et la nouvelle feuille qui a exactement les mêmes données.

Sans doute une erreur lors de la sauvegarde de la feuille détectée par les nouvelles versions ?

re
bonsoir
oui moi aussi les tableaux structurés enregistrés avec 2016 plantent chez moi avec Addrow et en le re sauvant avec 2007 il re fonctionnent

Bonsoir Patrick,

Merci pour l'info, je me sens moins seul.
Dans mon classeur concerné, il y a 5 tableaux structurés et seul le plus petit plantait Excel sur Add VBA et non en manuel.