Quelle macro pour insérer une ligne après la dernière ligne?

[ludo2179]

Bonjour à tous,

Depuis deux jours, je m'arrache les cheveux pour trouver la bonne macro pour insérer une ligne, respectant la mise en forme, en dessous de la dernière ligne utilisée.

En cherchant sur le forum, j'ai réussi à créer un userform et en copier le contenu dans le tableau. Mais j'aimerais qu'en plus, en appuyant sur le bouton "ajouter" du userform, une ligne s'insère.

Sur ce point, je n'arrive pas à trouver la solution. La ligne s'ajoute soit au dessus de celle remplie grâce au userform soit au dessus du tableau...

Merci d'avance à celles ou ceux qui se pencheront sur le problème.

 

[Robert]

Re : Quelle macro pour insérer une ligne après la dernière ligne?

Bonjour Ludo et bienvenu, bonjour le forum,

Peut-ête comme ça :

Private Sub Valider_click()
Dim ligne As Long

With Sheets("recours")
    ligne = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1
    .Rows(ligne).Insert shift:=xlShiftDown
    .Cells(ligne, 1) = Me.TextBox1
    .Cells(ligne, 2) = Me.TextBox2
    .Cells(ligne, 3) = Me.ComboBox1
    .Cells(ligne, 4) = Me.TextBox3
    .Cells(ligne, 5) = Me.TextBox4
    .Cells(ligne, 6) = Me.TextBox5
End With
Unload Me
End Sub

 

[Pierrot93]

Re : Quelle macro pour insérer une ligne après la dernière ligne?

Bonjour,

pas ouvert ton fichier, mais essaye peut être ceci, la dernière ligne est déterminée à partir de la colonne A, à adapter à ton projet :

Range("A65536").End(xlUp).EntireRow(2).Insert

bon après midi
@+

Edition :bonjour Robert🙂

 

[ludo2179]

Re : Quelle macro pour insérer une ligne après la dernière ligne?

Super! En ajoutant deux lignes supplémentaires au tableau vierge, ça fonctionne parfaitement, en gardant la mise en forme.
Sinon, sans cet ajout, la mise en forme n'est pas repectée.

Pour garder un tableau sans ligne vide, je les ai tout simplement masquées.

Merci pour la solution!