Bonjour,
Solution par code VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Dim prem As String
Dim c
Dim j As Integer
If Not Intersect(Target, Range("A:A")) Is Nothing Then
With Range("B:B")
Set c = .Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
prem = c.Address
Do
j = j + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> prem
End If
Select Case j
Case Is = 0: Target.Offset(0, 1) = Target.Value & Format(j + 1, "0000")
Case Is < 10: Target.Offset(0, 1) = Target.Value & Format(j + 1, "0000")
Case 11 To 99: Target.Offset(0, 1) = Target.Value & Format(j + 1, "000")
End Select
End With
End If
End Sub
Code à place dans la feuille.
- Clique droite sur l'onglet et choisir "visualiser le code"
- Dans la fenêtre, coller le code ci-dessus
Dès que vous inscrivez une donnée en colonne A, elle sera incrémentée
Si ok, merci de cloturer le fil en cliquant sur la case à cocher verte à coté du bouton EDITER
Cordialement