Discussion :

[Bonero]

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

[Duddy]

Bonjour le forum,

Je suis assez étonné de ne pas trouvé de majuscules dans la ligne de ton code.

Add(Position:=1, alwaysinsert:=True)

J'ai cherché dans l'aide EXCEL "alwaysinsert" et il ne donne pas de réponse.

Es-tu sur de la commande?

[Bonero]

Salut ,
Je suis sur de mon code. Si tu veux tu peux jeter un coup d oeil sur ce site de tuto:

http://www.jkp-ads.com/articles/Excel2007TablesVBA.asp

ca serait gentil si quelqu un peut m aider a comprendre l effet de l argument AlwaysInsert. jai remarque qu il n y avait pas de majuscule dans la commande et meme mentionne dans mon premier post.

Merci d avance.

[sabzzz]

bonjour Bonero,

est ce celle-ci fonctionne ?

Code :

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

1
2
Dim oNewRow As ListRow
Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)