numéroter tableau

[sams96]

Bonjour un tous
je cherche un code vba pour numéroter les lignes de mon tableau à partir de la colonne B2
j'ai mis ci-joint le résultat que je souhaite avoir

 

[JHA]

Bonjour à tous,

Un essai sans VBA

=NB.SI($A$2:$A2;">0")

Copier vers le bas

J'ai mis les données sous mode tableau, si tu ajoutes une date la formule se recopie automatiquement.

JHA

 

[cp4]

Bonjour Sams96, JHA,

un essai en vba

Option Explicit
Sub Numeroter()
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1")
i = 2
    Do While .Cells(i, 1) <> ""
        .Cells(i, 2) = i - 1
    i = i + 1
    Loop
End With
Application.ScreenUpdating = True
End Sub

@+

 

[klin89]

Bonsoir à tous,

Ou ceci :

Option Explicit
Sub incrementation()
    With Sheets("Feuil1")
        With .Range("a2", .Range("a" & .Rows.Count).End(xlUp)).Offset(, 1)
            .Formula = "=row(a1)"
            .Value = .Value
        End With
    End With
End Sub

klin89

 

[Staple1600]

Bonsoir le fil, le forum

Ou cela

Sub incremente()
With [B2]
    .Value = 1: .DataSeries 2, -4132, 1, 1, _
    Cells(Rows.Count, 1).End(3).Row - 1
End With
End Sub

 

[sams96]

Merci Staple1600 c'est le code que recherchais