Discussion :

[chou-estelle]

Bonjour,
Je suis nouvelle sur le forum et complètement débutante sur le langage vba
J'essaye de créer une macro qui insère une ligne à la fin d'un tableau, et qui puisse se répéter. C'est à dire je cherche à pouvoir insérer une ligne à la fin d'un tableau plusieurs gois de suite en appuyant sur un bouton...
Oulala... je crois que je ne suis pas clair du tout... J'espère que vous comprendrez...
Je vous remercie d'avance de votre aide

[BRUNO71]

Bonjour,

Si cela peut te servir:
Cet exemple montre comment insérer une nouvelle ligne avant la ligne 4 de la feuille de données.

Code :

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

1
2
 
myChart.Application.DataSheet.Rows(4).Insert

Bien cordialement

[BRUNO71]

Une erreure...

Essaye ça

Code :

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

Rows(4).Insert

Désolé

[chou-estelle]

Merci pour cette réponse! Mais il faut que ca insert toujours à la fin de mon tableau... meme s'il s'agrandit, en fait j'essaye de faire un petit programme pour suivre mon compte bancaire!
J'ai trouvé une solution : j'ai nommé la dernière ligne de mon tableau, "dernière_ligne", puis j'ai fait une macro pour insérer une ligne avant "dernière_ligne". Je laissa toujours "dernière_ligne" vide. Ca fonctionne, mais je n'ai fait que contourner mon problème.
Enfin la j'ai une autre idée, je vais essayer!

[decondelite]

Ceci te renvoi le numéro de la dernière ligne suivant le contenu de la colonne 1:

Code :

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

Feuil1.Cells(Rows.Count,1).End(xlUp).Row

Attention: si tu as des données, cela te renvoie la ligne de la dernière donnée, mais si tu n'en as pas cela te renvoie 1. Mais comme je suppose que tu mets des titres dans tes colonnes, cela ne devrait pas te déranger.

[chou-estelle]

je viens d'essayer!
Ca ne fonctionne pas surement parce que je dois modifier un peu ce que tu as écris, seulement je ne sais pas.

Code :

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

Feuil1.Cells(Rows.Count,1).End(xlUp).Row

Dans cette "phrase" où dois je noter le nom de mon tableau?
Serait il possible de m'expliquer les termes de cette phrase...?
En tout cas merci de votre aide

[Didier Gonard]

Bonjour,

C'est vrai que c'est plus facile quand on sait ce qui se passe , vois aussi l'aide vba sur les termes

Feuil1 = le nom de la feuille Excel (objet éditeur VBA) dans le classeur.

Cells = collection de toutes les cellules de la feuille

( ligne, colonne) en rajoutant les coordonnées d’une cellule, on limite Cells à celle-ci

Rows = collection des lignes d’une Feuille

Count = propriété qui renvoie le nombre de ligne d’une collection (collection : Objet contenant un ensemble d'objets connexes. La position d'un objet dans la collection peut changer chaque fois que cette dernière est modifiée. Par conséquent, aucun objet n'a de position immuable dans une collection. Note perso : En gros ça peut-être une sélection exemple : ? selection.rows.count)

End = propriété (attention il existe d’autres formes de End) qui renvoie un objet Range qui représente la cellule à la fin de la zone qui contient la plage source

(xlUp) = Argument obligatoire de End qui indique la direction du déplacement (4 choix possibles).

Row = Propriété qui renvoie le numéro de la première ligne de la première zone de la plage (ne pas confondre avec Rows !).

cordialement,

Didier

[pgz]

Bonjour.

Au total cela devrait ressembler à cela:

Code :

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

1
2
3
With Application.ThisWorkbook.Sheets("NomFeuille")
    .Rows(.Rows(.Rows.Count).End(xlUp).Row).Insert
End With

Cordialement,

PGZ