Bonjour les amis, je cherche à coder un bouton qui me permet d'ajouter une ligne en plus à la fin de ma liste lorsque l'on click dessus.
Mon problème, c'est que la ligne se crée à chaque fois au dessus et non au dessous de la dernière ligne.
Pouvez vous m'aider ?

Bien cordialement. Ci joint le classeur avec le code inclus : BD_lab4.xlsm
Onglet : Index

et voici le 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
Sub ajouter()
 
Dim vnom As String, vrech As Range, derlign As Long
'nom du tableau
vnom = "N°"
'je recherche le nom dans la colonne A
Set vrech = Columns(1).Find(vnom)
'si je trouve le nom alors
If Not vrech Is Nothing Then
 'je récupère le n° de ligne de la fin du tableau correspondant
 derlign = Range("A" & vrech.Row).End(xlDown).Row
 
 
'Tableau 1
'faire une nouvelle ligne
Range("A" & derlign).EntireRow.Insert Shift:=xlDown
 
'copier la ligne du dessus
'Range("A" & derlign).Offset(-1, 0).EntireRow.Copy Cells(derlign, 1)
'On Error Resume Next
 
'effacer le contenu de la nouvelle ligne mais garder la forme
'Range("A" & derlign).EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
 
End Sub