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
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
Code:
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