Incrémenter une zone nommée d'une colonne

Bonjour,

Comme expliqué dans ma présentation, je plane en Vba :

Je désirerais que sur modification de la cellule J1 sur Excel 2016 , une plage nommée "entree" puisse s'incrémenter.

Cette plage "entree" allant de A10 à A37.

C'est à dire:

J1 passe à une valeur de 125; 125 se retrouve en A10 si cette cellule est vide.

Puis si J1 passe à la valeur 456; 456 se retrouve en A11, si cette cellule est vide.

Et ainsi de suite jusquà A37 ...sans dépasser...

Avant de venir poster, j'ai essayé de "patouiller" un peu en piquant des exemples de droite à gauche; dans le code de ma feuille (base), j'ai mis ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j1")) Is Nothing Then
Range("A10:A37").End(xlUp)(1).Value = Target.Value
End If
End Sub

Quand je modifie J1

ça me copie J1 dans la bonne colonne, mais pas entre A10 et A37, et donc ce n'est pas le résultat désiré.

En plus, ça doit être basique...excusez moi je démarre..

Merci d'avance de m'aider à décoller.

Bonjour,

Utilise ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, isect
If Target.Count = 1 Then
   Set isect = Application.Intersect(Target, Range("J1"))
   If Not isect Is Nothing Then
      i = Cells(65535, 1).End(xlUp)(2).Row
      If Not i > 37 Then Cells(i, 1) = Target.Value
   End If
End If
End Sub

Nota : Nécessite que la cellule A9 ne soit pas vide...

A+

Merci, ça fonctionne..

Je vais modifier ma feuille pour que A9 ne soit pas vide, ce n'est pas ce que j'avais prévu, mais ça ne pose pas de problèmes à adapter.

Encore merci et A+