Discussion :

[anasecu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

oList.ListRows.Add 1

[boisgontierjacques]

Bonjour,

Exemple si la table est nommée Client

Version Excel VBA 16

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

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

[anasecu]

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 ?

[patricktoulon]

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