Evènement : ajout ligne automatique

[J-F Zanette]

Bonjour,
Je voudrais qu'une ligne s'ajoute automatiquement à la fin d'un tableau dès que j'atteins la dernière ligne existante. Je pense que c'est passible avec une macro évènementielle mais je n'y parviens pas.
Qui peut m'aider ?
Merci.

 

[Zon]

Salut,

Je le comprends comme cela , si la derniére ligne de ton tableau est A10, si on change la valeur de 10 alors on rajoute une ligne compléte en A11

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A10")) Is Nothing Then Rows(Target.Offset(1, 0).Row).Insert
End Sub

A+++

 

[Michel_M]

Bonjour, ou bonne nuit svt l’heure

Ci dessous une macro événementielle renommant le tableau "zone" avec une ligne supplémentaire

Ton tableau va de la colonne A à D

La macro se déclenche quand tu valides la dernière ligne utilisée de la colonne D


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lig As Long

lig = Range("A1").End(xlDown).Row


If Intersect(Target, Range("D" & lig)) Is Nothing Then: End

ActiveWorkbook.Names.Add Name:="zone", RefersTo:="=A1😀" & (lig + 1)


End Sub


Bonne nuit, j’vas au dodo

Michel.Béziers