Discussion :

[frunch]

Bonjour à tous,

Quand on veut écrire à la derniére ligne d'une liste, le code

Code :

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

Range("B1000").End(xlUp).Row

fonctionne bien pour écrire à la 2éme ligne ou les autres, avec

Code :

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

Range("B1000").End(xlUp).Row+1

Mais avec un tableau c'est pas le cas, on écrit à la 3éme ligne.
Quelle est la solution svp ?
Merci

[Philippe Tulliez]

Bonjour,
Petit exemple on l'on écrit le texte "Ici" à la dernière ligne de la colonne "Ref" du tableau nommé "t_Data" à condition que l'option Ligne total ne soit pas cochée sinon, il faut adapter le code

Code :

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

1
2
3
4
5
6
7
8
Sub T()
  Dim oList As ListObject
  Set oList = Range("t_Data").ListObject
  With oList.ListColumns("Ref").DataBodyRange
  .Cells(.Rows.Count + 1, 1).Value = "Ici"
  End With
  Set oList = Nothing
End Sub

[frunch]

à condition que l'option Ligne total ne soit pas cochée..

Ou çà ?

[Philippe Tulliez]

Bonjour,

Ou çà ?

ici


Avec ce code, pas de souci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t()
  Dim oList As ListObject
  Dim flg As Boolean
  Set oList = Range("t_Data").ListObject
  With oList
   flg = .ShowTotals                        ' Stocke la propriété ShowTotals
  .ShowTotals = (flg And False)             ' Désactive la ligne total si elle est sélectionnée
   With .ListColumns("Ref").DataBodyRange   '
   .Cells(.Rows.Count + 1, 1).Value = "Ici" ' Ecrit à la dernière ligne
   End With
  .ShowTotals = flg                         ' Remet la propriété ShowTotals comme elle était avant l'écriture
  End With
  Set oList = Nothing
End Sub

A lire éventuellement Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

[frunch]

Ok, c'est pas coché, et le code adapté

Code :

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

1
2
3
4
5
6
7
8
Sub T()
  Dim oList As ListObject
  Set oList = Range("TBL_BDD").ListObject 'nom tablo
  With oList.ListColumns("Personne").DataBodyRange
  .Cells(.Rows.Count + 1, 1).Value = "Ici"
  End With
  Set oList = Nothing
End Sub

me donne

[Philippe Tulliez]

Bonjour,
Je teste tous les codes que je publie.
Il y a de forte chance que la première ligne n'était pas supprimée et donc forcément la propriété Count de la la collection Rows renvoie 1

[78chris]

Bonjour à tous

Pour tous les cas, tableau vide ou déjà rempli, ceci fonctionne et fait abstraction des lignes Excel et donc de l'emplacement du tableau sur l'onglet, du total activé on non

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub t()
  Dim oList As ListObject
  Dim flg As Boolean
  Set oList = Range("t_Data").ListObject
  With oList
    x = .ListRows.Add.Index
    .ListColumns("Ref").DataBodyRange.Rows(x) = "ici"
  End With
  Set oList = Nothing
End Sub