Evènement : ajout ligne automatique

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+++

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