Discussion :

[mouftie]

Bonjour
J'ai créée une table Excel appelée TbNir.
Je voudrais ajouter une ligne de données à la fin de ma table
J'ai utilisé le code svt :

Code :

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

1
2
        'On crée une new entrée dans Accueil TbNir
        Sheets("Mod RDC").ListObjects("TbNir").ListRows(Range("tbnir").Rows.Count + 1).Range.Select

et je reçois le message d'erreur d'exécution "9" l'indice n'appartient pas la sélection, or ListRows(Range("tbnir").Rows.Count) me donne bien le nb de lignes de données de ma table.
est-ce que quelqu'un peut m'aider svp ? Merci

[joe.levrai]

Bonjour,

il faut redimensionner ton tableau, sinon tu dépasses sa plage

il y a des tonnes de méthodes, voici celle qui est la plus proche de ton code initial

Code :

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

1
2
3
4
With Sheets("Feuil1").ListObjects("Tableau1")
    .ListRows.Add
    .ListRows(Range("Tableau1").Rows.Count).Range.Select
End With

[mouftie]

Bonsoir Joe
Merci beaucoup, ça va beaucoup mieux...
Résolu !