doublon oublié

[Olyxier]

Bonsoir le forum
ce code est censé reconnaître les doublons il classe une liste par ordre croissant et si il trouve un doublon le nomme avec le même numéro
exp 1=1. 2=2. 2=2. 3=3. 4=4

mais cela ne marche pas tout le temps y a t'il une raison
merci à vous

Dim i As Byte, lig As Integer
Dim Plage As Range, Cell As Range
For i = 156 To 168 Step 4


Set Plage = Range(Cells(4, i), Cells(23, i + 2))
Plage.Sort Key1:=Cells(4, i), Order1:=xlAscending
For Each Cell In Range(Cells(4, i), Cells(23, i))
If Application.CountIf(Plage, Cell) = 1 Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
If Cell <> Cell.Offset(-1, 0) Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
Cell.Offset(0, 2) = Cell.Offset(-1, 2)
End If
End If
Next Cell
Plage.Sort Key1:=Cells(4, i + 1), Order1:=xlAscending
Next i
End Sub

 

[Olyxier]

Re : doublon oublié

Personne ne peu resoudre mon probleme dommage bonne soirée

 

[Robert]

Re : doublon oublié

Bonsoir Olyxier, bonsoir le forum,

Olyxier je pense que beaucoup sont comme moi. On arrive à comprendre le code mais pour voir où ça plante, il faut les faire tourner et pour cela il faut s'enquiquiner (t'as vu je suis resté poli...) à créer un fichier avec des données qui correspondent à ta macro. P... (t'as vu j'ai craqué), tu peux pas joindre un fichier en pièce jointe !!!

Aide toi et le ciel t'aidera. Amen...

 

[Olyxier]

Re : doublon oublié

Bonsoir voila un fichier pour vous aider à m'aider
en rouge les chiffres trié par ordre croissant les cases rouge les doublons faut et en vert ce qui devrait etre dans la case rouge la correction quoi
merci à vous et bonne nuit

 

[Olyxier]

Re : doublon oublié

Bonjour le forum
je me dit que le probleme viens de la formule =extrait_nbre(A1) que J'utilise dnas ces colonnes ??
bonne journée à vous tous

 

[Olyxier]

Re : doublon oublié

Bonjour le forum
je me dit que le probleme viens de la formule =extrait_nbre(A1) que J'utilise dans ces colonnes ??
bonne journée à vous tous

 

[pierrejean]

Re : doublon oublié

bonjour Olyxier

je ne sais pas si ton probleme vient de de cette fonction mais pour ma part je n'en ais absolument pas saisi l'utilité

 

[Olyxier]

Re : doublon oublié

BONJOUR
et bien cette formule me sert car je copie des données dans d'autre cellules puis je les colles ces donnée ne sont pas que des chiffres donc j'enleve les lettres je garde les chiffres et je tris les chiffres voilà
@+