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

[ptit_ange69]

Bonjour,
Je coince au niveau de l'ajout d'une nouvelle ligne pour que dans ma colonne A soit incrémenter un texte + un numéro qui change à chaque fois.
Dans ma colonne K, je scannerai le code barre d'un produit et de ce fait ajoute une nouvelle ligne dans mon tableau. Cependant je n'arrive pas à changer le numéro dans la colonne A. Je voudrais que les numéros changent à chaque nouvelle ligne. (DIRECT_0001 , DIRECT_0002.....)

Merci par avance de votre aide.

 

[Victor21]

Bonjour.
Une proposition en pj

 

[ptit_ange69]

Bonjour.
Une proposition en pj

merci pour votre proposition mais j'ai oublié de préciser que je ne voulais pas de formule dans la colonne mais souhaite passer par VBA.

 

[Dan]

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

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

 

[ptit_ange69]

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

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

Bonjour Dan,
Merci infiniment pour votre aide, c'est exactement ce que je cherchais. 🙂