Re : Fusion de doublons avec fonction MATCH et gestion d'erreur
Merci!
A priori ça fonctionne au poil!
Je suis impressionné par la faible longueur de ton code, il m'en faut 3 fois plus pour faire 2 fois moins de chose.
Mais, histoire de couper ton dernier cheveux en 4, peux tu me rajouter simplement 2 détails une fois la macro exécutée:
mettre en fond jaune toutes les cellules contenant un # et rajouter 0 dans toutes les cellules vides.
J'ai vu que dans ta fonction match tu "limitais" le range à 10000 lignes, je suppose qu'en remplaçant "A1:A10000" par "A1", Sheets("test_fusionne").Range("A65536").End(xlUp) je deviens complètement dynamique...
En te remerciant pour ce tour de passe-passe
EDIT: j'ai rajouté ce bout de code en fin de macro pour ajouter des "0" dans les cellules vides et colorer les cellules contenant "#"
Sheets("test_fusionne").Range(Range("A3", Range("A65536").End(xlUp)), Cells(2, Range("IV2").End(xlToLeft).Column).Offset(1, 0)).Select
For Each Cel In Selection
If Cel.Value = "" Then Cel.Value = "0"
If InStr(1, Cel.Value, "#") > 0 Then Cel.Interior.ColorIndex = 6
Next Cel
If Selection.Find("#") > 0 Then MsgBox "Vous avez des différences de lecture"
Tout à l'air OK
Merci encore!