Incrémenter un compteur

[jamespatagueul]

Bonsoir le forum,

je cherche depuis hier matin à incrémenter un compteur particulier.

j'ai une colonne C avec des ref en C2, C3, C4, C5 ....+++

la macro existante fonctionne bien car elle indique les doublons en les colorant, ces doublons sont toujours l'un en dessous de l'autre.

J'aimerai en plus de la coloration, faire un compteur dans A à partir de A3 (A2 est rempli a la main) qui si
soit valeur A du dessus +1
soit A du dessus = A du dessus

et tous ca sur x lignes


Merci de votre aide

 

[Lone-wolf]

Re : Incrémenter un compteur

Bonsoir jamespatagueul,

Une proposition, si j'ai bien compris:

'Pas besoin d'inscrire 1 en A2

   For Each Cel In Plage
    If Application.CountIf(Plage, Cel.Value) > 1 Then
         Cel.Interior.ColorIndex = 3
End If
         Cel.Offset(1, -2).Value = Cel.Offset(0, -2).Value + 1
Next Cel

A+

 

[jamespatagueul]

Re : Incrémenter un compteur

Bonsoir Lone-wolf,
et merci.
Le résultat est un compteur normal.
Je souhaiterai le même résultat que dans le fichier écrit en rouge.

Merci

je bloque sur la condition.

 

[Lone-wolf]

Re : Incrémenter un compteur

Re,

et comme ceci?

For Each Cel In Plage
    If Application.CountIf(Plage, Cel.Value) > 1 Then
         Cel.Interior.ColorIndex = 3
        Cel.Offset(0, -2).Value = Cel.Value
End If

A+

 

[Lone-wolf]

Re : Incrémenter un compteur

Re,

une autre proposition pour ne pas avoir des doublons en colonne A.

For Each Cel In Plage
    If Application.CountIf(Plage, Cel.Value) > 1 Then
         Cel.Interior.ColorIndex = 3
                 Cel.Offset(0, -2).Value = Cel.Value
  If Cel.Offset(-1, -2).Value = Cel.Offset(0, -2).Value Then Cel.Offset(0, -2).ClearContents
End If
Next Cel

'Et rajoute  ceci
With Feuil2
    .Range("a2:a10000").ClearContents
        Set Plage = .Range(.Cells(2, 3), .Cells(.Rows.Count, 3).End(xlUp))
    End With

A+

 

[jamespatagueul]

Re : Incrémenter un compteur

Bonsoir Lone-wolf ,
merci de ton aide.
cependant, ce code copie les doublon de C dans A.
Je cherche a faire :

A B C
1 x ref1
1 x ref1
2 x ref2
3 x ref3

x etant une valeur sans interet
ref etant different ou identique

si la ref du dessus est differentes alors compteur +1.
si ref = celle du dessus alors valeur A ligne du dessus.

Merci

 

[Victor21]

Re : Incrémenter un compteur

Bonjour.

sans macro, en a2 :

=SI(C3=C2;A2;A2+1)

 

[jamespatagueul]

Re : Incrémenter un compteur

Bonsoir le forum, victor21

Super, simple mais efficace.
J'ai retranscrit en vba.

Un grand merci

 

[Lone-wolf]

Re : Incrémenter un compteur

Bonsoir Victor,

D'après son exemple en VBA.

Sub Doublon()
Dim Plage As Range, C As Range
Dim Cel(1 To 3) As Range
    
With Feuil2
    .Range("a2:a10000").ClearContents
        Set Plage = .Range(.Cells(2, 3), .Cells(.Rows.Count, 3).End(xlUp))
    End With
    
   For Each C In Plage
   C.Interior.ColorIndex = xlNone
    Set Cel1 = C.Offset(1, 2)
   Set Cel2 = C.Offset(0, 2)
 Set Cel3 = C.Offset(0, -2)
    If Application.CountIf(Plage, C.Value) > 1 Then
    C.Interior.ColorIndex = 3
If Cel1.Value = Cel2.Value Then
Cel3.Value = Cel3.Value + 1
Else
Cel3.Value = Cel3.Value
End If
End If
Next Cel
End Sub

A+