Discussion :

[Grem974]

Bonjour,
Je cherche à ajouter une ligne dans un tableau existant (que je complète en partie automatiquement via un fichier et en partie manuellement).

Il s'agit de pouvoir ajouter une ligne dans la partie automatisée dans le tableau, me positionner dans la première colonne de la ligne ajoutée et de ranger ensuite ce tableau par ordre alphabétique.

Pour le moment j'ai une info :

Code :

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

 Worksheets(1).Range("data_NometPrenom").ListObject.ListRows.Add (1)

Apparemment ca permet d'ajouter une ligne mais j'ai pour cette ligne l'erreur : "Erreur définie par l'application ou par l'objet"

Je pensais définir une variable et lui attribuer la position de la première cellule de la ligne ajoutée avec (selon une aide du forum) :

Code :

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

 DerLig = .[A65536].End(xlUp)(2).Row

Avec juste ce dernier code et le reste permettant de remplir les cellules de la ligne ça marche (je remplis la dernière ligne). L'idée maintenant est de pouvoir rester dans l'objet tableau pour permettre les filtres (tableau dont je n'ai pas d'autre choix de l'utiliser).

Merci de votre aide!

[joe.levrai]

Bonjour,

déjà, je te conseille de mettre ton ListObject sous variable, pour pas recopier tout le temps son chemin
et ça te permet aussi de conserver la saisie intuitive dans ton code

voici une petite boite à outils, pioche ce qui t'intéresse

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
Sub MonBeauTableau()
 
Dim Tablo As ListObject
Set Tablo = ActiveSheet.ListObjects("Tableau1")
 
With Tablo
    ' ajout de ligne en fin de tableau
    .ListRows.Add
 
    ' écrire TOTO sur chaque cellule de la nouvelle ligne
    For j = 1 To .ListColumns.Count
        .Range(.ListRows.Count + 1, j) = "TOTO"
    Next j
 
    'sélectionner la cellule de la première colonne de la dernère ligne
    .Range(.ListRows.Count + 1, 1).Select
 
    ' tri ascendant de la colonne 1
    With .Sort
        .SortFields.Clear
        .SortFields.Add Tablo.ListColumns(1).Range, xlSortOnValues, xlAscending
        .Header = xlYes
        .MatchCase = True
        .Apply
    End With
End With
 
End Sub

[vinc_bilb]

Bonjour

ListRows.Add nécessite une table, pas un range à ma connaissance et Range("data_NometPrenom") retourne un range .... donc ça ne devrait pas pouvoir marcher

[Grem974]

salut,

J'ai testé ton code et j'obtiens l'erreur d'incompatibilité de type pour :

Code :

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

1
2
3
 
Dim Tableau As ListObjects
Set Tableau = ActiveSheet.ListObjects("Tableau1") 'erreur sur cette ligne

Je comprends pas

Merci

[joe.levrai]

C'était un exemple basique

tu dois adapter à ton ListObject

Code :

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

Set Tablo = Sheets("NomDeTaFeuille").ListObjects("NomDeTonTableau")

[Grem974]

Re,
c'est ce que j'ai fait le tableau s'appelle Tableau1 et la feuille est bien la feuille active dans le code.