Salut tout le monde,

SVP pourriez-vous m’expliquer l’effet de l’argument AlwaysInsert de la methode Add sur la collection Listrows d’un objet ListObject ?
Mon code donne le meme resultat que je mette AlwaysInsert= False ou AlwaysInsert= True.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub TableAlwaysInsert()
 
'jai un tableau 6lignes*2colonnes qui contient de valeurs numeriques.
'la 1ere colonne a pour etiquette x, et la 2è colonne a pour etiquette y.
 
        Worksheets("table").Activate
        Dim aFeuil As Worksheet
        Set aFeuil = Worksheets("table")
 
        Dim Plage As Range
        Set Plage = aFeuil.Range("A11:B16") 'la plage qui contient mon tableau.
 
'creation de mon tableau.
        aFeuil.ListObjects.Add(xlSrcRange, Plage, , xlYes).Name = "Familia"
 
        Dim T As ListObject: Set T = aFeuil.ListObjects("familia")
 
 
 
 
' XLigne prend la place de la 1ere ligne.ici alwaysinsert:=True
    Dim XLigne As ListRow
    Set XLigne = T.ListRows.Add(Position:=1, alwaysinsert:=True)
    XLigne.Range.Cells(1, 1).Value = 888: XLigne.Range.Cells(1, 2).Value = VBA.Rnd + 888
 
'YLigne prend la place de la 1ere ligne.ici alwaysinsert:=False
    Dim YLigne As ListRow
    Set YLigne = T.ListRows.Add(Position:=1, alwaysinsert:=False) 'prend la place de la 1ere ligne.
    YLigne.Range.Cells(1, 1).Value = 444: YLigne.Range.Cells(1, 2).Value = VBA.Rnd + 444
 
'Je ne vois pas l'effet de l'argument  alwaysinsert.
'en plus,j'ai remarqué que  je n'ai pas "AlwaysInsert" c-a-d que  l'argument ne se comporte pas comme un mot clef.
End Sub