(RESOLU)Incrémentation sous condition en VB

[chaelie2015]

Bonjour forum

Je souhaite avoir un code VB qui me permet incrémenter

Exemple : dans la feuille1, j’ai un tableau si la cellule B n’est pas vide afficher dans A un numéro (on commençant par 1) et ainsi de suite

salutations

 

[pierrejean]

Bonjour Charlie

Un essai

 

[Lone-wolf]

Bonjour Charlie 🙂, pierrejean 🙂

Ma cheriiie! Une autre façon de faire, dou staile (Christina Cordela) , ouuupps! De pierrejean 😀

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, derlig As Long, i As Long

    Application.EnableEvents = False

    derlig = Range("b" & Rows.Count).End(xlUp).Row
    Set plage = [A2:L65536]

    If Not Intersect(Target, [B2:B65536]) Is Nothing Then
        Target.Offset(0, -1) = Target.Offset(0, -1).Row - 1
        plage.Sort [B2], xlAscending
        For i = 2 To derlig
            Cells(i, 1) = i - 1
        Next i
    End If

    Application.EnableEvents = True
End Sub

 

[chaelie2015]

Bonjour pierrejean, lone-wolf
merci pour les réponses
souci résolut
a+