D
daniel
Guest
Bonjour le Forum !
Voici mon nouveau problème… que j'essaie en vain de résoudre avec l'évènment Wroksheet_Change
Dans une colone, j'ai un grand nombre de codes uniques. Lors de la saisie de nouveaux codes, je voudrais qu'il ne puisse pas y avoir de doublons : jusqu là pas de problème (vous m'avez déjà fourni la solution !).
Mais là où ça se corse, c'est que je voudrais incrémenter le code que je saisis, si celui-ci existe déjà !
Exemple : j'ai dans ma colone le code :TOTO. Si je saisis de nouveau TOTO, je voudrais que celui-ci devienne automatiquement TOTO-2. Jusqu'à ce niveau, j'ai réussi… avec le code suivant :
Mais si je rentre de nouveau TOTO, j'aimerais qu'il devienne TOTO-3 et ainsi de suite… Et là, pas moyen…
Merci pour vos suggestions…
Daniel
Voici mon nouveau problème… que j'essaie en vain de résoudre avec l'évènment Wroksheet_Change
Dans une colone, j'ai un grand nombre de codes uniques. Lors de la saisie de nouveaux codes, je voudrais qu'il ne puisse pas y avoir de doublons : jusqu là pas de problème (vous m'avez déjà fourni la solution !).
Mais là où ça se corse, c'est que je voudrais incrémenter le code que je saisis, si celui-ci existe déjà !
Exemple : j'ai dans ma colone le code :TOTO. Si je saisis de nouveau TOTO, je voudrais que celui-ci devienne automatiquement TOTO-2. Jusqu'à ce niveau, j'ai réussi… avec le code suivant :
Code:
If Application.WorksheetFunction.CountIf(Range('A:A'), Target.Value) > 1 Then
Target.Value = Target & '-' & Application.WorksheetFunction.CountIf(Range('A:A'), Target.Value)
End If
Mais si je rentre de nouveau TOTO, j'aimerais qu'il devienne TOTO-3 et ainsi de suite… Et là, pas moyen…
Merci pour vos suggestions…
Daniel