Incrementation sous condition probleme de macro

[cpeens]

Bonsoir

c'est une macro qui me permet d'incrémenter la colonne A selon si je renseigne la colonne B




mon problème est simple la macro fonctionne uniquement quand je rentre manuellement les donnée dans la colonne B

mais quand je remplie la colonne B par mon USF ou un (copier collé) le numéro qui s'affiche reste le même

ma question est comment faire pour que les numéros incrémente avec mon USF merci

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
Dim i As Integer
Dim L As Integer

r = Target.Row
L = Cells(Cells.Rows.Count, "B").End(xlUp).Row

    If Target.Count = 1 And Target.Column = 2 And Target.Row > 2 Then
        Target.Offset(0, -1) = Target.Offset(0, -1) + 1
        If IsEmpty(Target) Then Target.Offset(0, -1).ClearContents
    End If
        
   
End Sub

 

[Fred0o]

Re : Incrementation sous condition probleme de macro

Bonsoir cpeens,

J'ai testé ton code et il fonctionne, même avec un copier / coller et une macro qui rajoute des données à la fin de la liste. Je ne l'ai pas testé evec un USF.

Pour que ce soit plus clair, fais nous passer un fichier exemple evec l'USF concerné.

Merci

 

[cpeens]

Re : Incrementation sous condition probleme de macro

soucis regler

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Integer
Dim i As Integer
Dim L As Integer

r = Target.Row
L = Cells(Cells.Rows.Count, "B").End(xlUp).Row

    If Target.Count = 1 And Target.Column = 2 And Target.Row > 2 Then
        Target.Offset(0, -1) = Target.Offset([COLOR="Red"]0[/COLOR], -1) + 1
        If IsEmpty(Target) Then Target.Offset(0, -1).ClearContents
    End If
        
   
End Sub

faillais le remplacer le 0 par 1


mais mon nouveau soucis est le suivant


Dans la colonne A le titre est le mot NUM

QUAND JE TENTE DE COMMENCER A INCRÉMENTER la ligne en dessous de NUM
provoque un debogage mais si je commence par la deuxième ligne sa fonctionne serais vous pourquoi svp