[XL-2007] numérotation selon une critère

Bonsoir,

Je te propose le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Doublon()
Dim test As Range
Dim val As Integer
Dim flag As Boolean
 
With Worksheets("Feuil6")
    val = 0
    flag = True
    For i = 0 To .Range("A65536").End(xlUp).Row - 1
        Set test = .Range("A1").Offset(i, 0)
        If flag Then
            val = val + 1
        End If
        flag = False
 
        For j = 0 To .Range("A65536").End(xlUp).Row - 1 - i
            If test.Offset(j, 0) = test Then
                If test.Offset(0, 1) = "" Then
                    If test.Offset(j, 1) = "" Then
                        test.Offset(j, 1) = val
                        flag = True
                    End If
                Else
                    If test.Offset(j, 1) = "" Then
                        test.Offset(j, 1) = test.Offset(0, 1)
                    End If
                    If val <= test.Offset(0, 1) Then
                        val = test.Offset(0, 1)
                        flag = True
                    End If
                End If
            End If
        Next j
    Next i
 
 
End With
 
End Sub

Puisque tu n'as pas donné beaucoup de précision je me suis permi d'imaginer que tu pouvais ajouter des lignes après avoir executé une fois ta macro.

Dis moi si celle-ci te conviens et si tu trouves dans bug dans son fonctionnement ! :ccool: