même principe...
Je suppose donc que c'est toujours en A, qu'on récupère le n° au-dessus (?) et que c'est l'année et le mois en cours (?).
Sans remise à 1 en début de mois (?)
Il faut être complète et précise dans les demandes. Une macro fait exactement ce qu'on lui demande et ne supporte pas l'approximation.
A tester :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Or Target.Row <2 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" And Target.Offset(-1) <> "" Then
Target = Format(Date, "yy") & "/" & Format(Date, "mm") & "/" & Format(Split(Target.Offset(-1), "/")(2) + 1, "0000")
Application.EnableEvents = False
Target.Offset(, 1).Select
Application.EnableEvents = True
End If
End Sub
Il faut que le 1er soit saisi manuellement.
Au passage ajoute également :
If Target.Count > 1 Then Exit Sub
au début de l'autre macro, j'avais oublié.
eric