Microsoft 365 Insertion texte + numéro qui change à chaque changement de ligne

Victor21 à dit:

Bonjour.
Une proposition en pj

Cliquez pour agrandir...

Dan à dit:

Bonjour,

EDIT : j'ai modifié le code

Lol tiens, la variable stpevt c'est moi qui avait mis cela dans mes codes... 😄

Bon pour votre demande remplacez simplement Tout le code par celui ci-dessous

Code:

Dim stpevt As Boolean
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or stpevt = True Then Exit Sub

With ListObjects(1)
    If Not Intersect(Target, .DataBodyRange) Is Nothing Then
        stpevt = True
        If WorksheetFunction.CountA(.DataBodyRange(Target.Row - .HeaderRowRange.Row, 9).Resize(, 1)) = 1 Then
            .DataBodyRange(Target.Row - .HeaderRowRange.Row, 2) = Format(CDate(Date), "dd/mm/yyyy")
            .DataBodyRange(Target.Row - .HeaderRowRange.Row, 16) = 1
            .DataBodyRange(Target.Row - .HeaderRowRange.Row, 3) = "Validé"
            .DataBodyRange(Target.Row - .HeaderRowRange.Row, 16) = 1
            .DataBodyRange(Target.Row - .HeaderRowRange.Row, 17) = "o"
            If .DataBodyRange(Target.Row - .HeaderRowRange.Row, 1) = vbNullString Then
                .DataBodyRange(Target.Row - .HeaderRowRange.Row, 1) = "DIRECT_" & Format(.ListRows.Count, "0000") 'Right("0000" & Trim(Str(NL - 1)), 4)
            End If
            '.DataBodyRange(Target.Row - .HeaderRowRange.Row, 1) = "DIRECT_" & Right("0000" & Trim(Str(NL - 1)), 4)
        End If
    End If
End With
stpevt = False
End Sub

Pour que vous voyiez j'ai désactivé une ligne à la fin du code. Vous pouvez la supprimer


Cordialement

Cliquez pour agrandir...