Discussion :

[marion1857]

Bonjour,

Alors voila mon problème
A1 : 3955
A2 3955
A3 : 3955

J'aimerai obtenir grâce à une macro que lorsque les cellules sont identiques
alors ces cellules s'incrémentent c'est à dire :
A1 : 3955-1
A2: 3955-2
A3: 3955-3

Existe-il une macro me permettant de réaliser cela ?


Cordialement

[goldstar]

Bonjour,

un truc du genre

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
 
 
Sub test()
    Dim Cell As Range
    Dim i As Integer
    Dim Un As New Collection
    Dim cpt_agregat As Integer
    Dim laDonnee As String
 
    On Error Resume Next
        'Recherche les doublons dans la plage A1:A15
        For Each Cell In Range("A1:A11")
            'Utilise la propriété "Key" des collections qui
            'n'acceptent que des valeurs uniques.
            Un.Add Cell, CStr(Cell)
        Next Cell
    On Error GoTo 0
 
    For i = 1 To Un.Count
        'Afiche le résultat sans doublon dans la colonne B
        laDonnee = Un.Item(i)
        cpt_agregat = 0
 
        For Each Cell In Range("A1:A11")
            If Cell.Value = laDonnee Then
                cpt_agregat = cpt_agregat + 1
                Cell.Value = laDonnee & "-" & cpt_agregat
            End If
        Next Cell
 
 
        Cells(i, 2) = Un.Item(i)
    Next i
End Sub