Macro pour incrémenter les doublons d'une colonne

[Nuadhu]

Bonjour à vous tous,

Je viens vers vous car j'aurai besoin d'une petit coup de pouce.
En effet j'aimerai créer une macro qui me permet d'ajouter une valeur (0.001) au doublons présent dans une colonne donnée.
L'idéal serrait que la macro agisse dans la colonne de la cellule sélectionnée.
J'ai besoin de cette macro car la colonne en question est utilisée par d'autre programmes qui buguent si deux valeurs strictement identiques sont présentes dans la même colonne.

Au final si cette même macro pouvait scruter chaque colonne de mon tableau ça serrait parfait.

PS: Je pensais qu'utilisé un objet "Dico" serrait judicieux mais étant relativement Novice je me perds dans l'écriture du code

Merci d'avance de vos réponses

 

[tototiti2008]

Re : Macro pour incrémenter les doublons d'une colonne

Bonjour Nuadhu,

Bienvenue sur XLD,

En admettant que tes valeurs sont en colonne A et commencent à la ligne 1

Sub test()
Dim i As Long
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        Range("A" & i).Value = Range("A" & i).Value + Application.CountIf(Range("A1:A" & i - 1), Range("A" & i).Value) * 0.001
    Next i
End Sub

 

[Nuadhu]

Re : Macro pour incrémenter les doublons d'une colonne

Simple et rapide je n'y avait pas pensé.
Merci à toi c'est parfaitement ce qu'il me fallait =)