Numerotation automatique avec condition sur une colonne

Bonjour à tout le monde.

Je dis merci pour tout ceux qui m'ont aidé a trouver une solution a mon souhait concernat le post précédent. En particilier à gmb.

Je crée une numerotation automatique d'une colonne avec la condition que la colonne suivante ne soit pas vide.

j'ai le nuero en A1 si B1 n'est pas vide. un code VBA. Merci pour tout. Voici un fichier joint

Bonjour,

Un essai ...

A+

C'est ce que je cherche. Cependant peux tu le réecrire en VBA.

La raison c'est que je veux attaquer cette colonne par un filtre ecrit en VBA mais elle me recopie aussi les formule ce qui derange mon resultat. je veux seulement recuperer la valeur de la cellule et nom aussi avec la formule

Voici la macro correspondante :

Sub Test()
Dim Ligne As Long
    Range("A8", Range("A8").End(xlDown)).ClearContents
    For Ligne = 8 To Range("B" & Rows.Count).End(xlUp).Row
        If Range("B" & Ligne).Value <> "" Then
            Range("A" & Ligne) = "NB_" & Format(Application.CountIf(Range(Range("B8"), Range("B" & Ligne)), "<>"), "00")
        Else
            Range("A" & Ligne) = ""
        End If
    Next Ligne
End Sub

A+

bonsoir

un essai :

Sub Test()
Dim c As Range, nb%, x%
Range("A8:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
nb = Range("B" & Rows.Count).End(xlUp).Row
For Each c In Range("B8:B" & nb)
If c.Value <> "" Then 'Ou If c.Value = "Non vide"  
x = x + 1
c.Offset(0, -1).Value = "NUM_" & Format(x, "00")
End If
Next
End Sub