Discussion :

[wided123]

Bonjour

Je cherche une formule dans Excel qui fait la numérotation de mes ligne selon une critère .

exemple :

N° dossier N°facture
10A11 1
10A12 2
10A13 3
10A11 1
10A15 4
10A13 3
10A11 1
10A11 1
10A11 1
1BZ333 5
10A12 2


la facture n°1 reçoit 1 ensuite sil le N° dossier se repete ecrire toujours 1 sinon ecrire 2 pour la valeur suivante , si cette dernierer se repete ecrire 2 et ainsi de suite ...

Merci

[Kimy_Ire]

Bonsoir,

Je te propose le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !