Lone-wolf
XLDnaute Barbatruc
Bonjour à toutes et à tous
j'ai créé cette macro
Je ne comprends pas ce qui est faux dans celle-ci. Danns la cellule B2, il devrait inscire 1, mais ce n'est pas le cas.
j'ai créé cette macro
VB:
Option Explicit
Sub test()
Dim i&, num%, tbl, tablo()
Application.ScreenUpdating = False
tbl = Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row)
num = 1
ReDim Preserve tablo(1 To UBound(tbl), 1 To 1)
For i = 2 To UBound(tbl)
If tbl(i, 1) = tbl(i - 1, 1) Then
num = num + 1
tablo(i, 1) = num
Else
num = 1
tablo(i, 1) = num
End If
Next i
[B2].Resize(UBound(tbl), 1) = tablo
End Sub
Je ne comprends pas ce qui est faux dans celle-ci. Danns la cellule B2, il devrait inscire 1, mais ce n'est pas le cas.