Incrementation spécifique

Bonjour à tous,

Je souhaite incrémenter en utilisant une formule car dans mon cas je ne peux pas incrémenter de façon simple en étirant, il me faut une formule ou une macro.

Quelqu'un a t il une solution?

Mon fichier en PJ

Merci

Bonsoir,

Met ce code dans le module de "Feuil1". Teste en double cliquant dans la cellule :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
        Target = Format(Right(Target.Offset(-1, 0), 4) * 1 + 1, "_0000")
    End If
End Sub

NB : copie par incrémentation marchera aussi

Bonjour,

Une deuxième proposition à étudier.

La procédure s'exécute avec un double-clic en colonne C.

Cdlt.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As String
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Cancel = True
        x = Me.Cells(Rows.Count, "C").End(xlUp).Value
        x = Format(Replace(x, "_", "") + 1, "_0000")
        Me.Cells(Rows.Count, "C").End(xlUp)(2).Value = x
    End If
End Sub

Bonjour,

Merci beaucoup, c'est parfait. J'adapte à mon tableau et ça a l'air de fonctionner sur toutes les colonnes.

Bonne journée!