Saisir sans doublons

[pat76]

Bonjour à tous,

Voilà mon problème,lorsque je saisis plusieurs valeurs sur une ligne, je ne voudrais pas qu'il y ait de doublon.
exemple saisie : 4 7 2 7 3 4
resultat recherché : 4 7 2 8 3 5

si une valeur se répète, je veux qu'elle devienne x+1 (un deuxième 7 deviendra 8, un troisième 7 deviendra 9)

j'espère avoir été clair et je vous remercie d'avance pour votre collaboration.

PAT

 

[david84]

Re : Saisir sans doublons

Bonsoir,
ci-joint une possibilité ce que j'en ai compris.
Si pas cela, reviens avec un fichier expliquant ta demande.
A+

 

[JCGL]

Re : Saisir sans doublons

Bonjour à tous,

Sur une deuxième ligne mais je sens que tu vas "souhaiter" lors de la saisie (avec tes données en A1 et suivantes) :

=SI(NB.SI($A$1:A1;A1)>1;A1+1;A1)

A+ à tous

Édition : Salut David, même idée mais je crains qu'il faille du code pour notre ami. A++

 

[pat76]

Re : Saisir sans doublons

Merci mais ça ne correspond pas à ma demande.
Il me faudrait qu'une seule ligne et sans doublons ni triplons .. car pour DAVID84 si je saisi 1 2 2 2 je devrais avoir 1 2 3 4 et là j'obtiens 1 2 3 3 !

@ plus

PAT

 

[david84]

Re : Saisir sans doublons

Re,
la solution proposée cadrait avec ton exemple initial, d'où la nécessité de présenter ta demande sur un fichier exposant fidèlement ta requête avec les résultats attendus...
A+

 

[pat76]

Re : Saisir sans doublons

Pour plus de clarté, je vous envoie ma demande sur fichier.

Merci pour votre aide !!

 

[tototiti2008]

Re : Saisir sans doublons

Bonjour à tous,

en B6 à recopier vers la droite :

=B2+NB.SI($B$2:B2;B2)-1

 

[ninbihan]

Re : Saisir sans doublons

Bonjour à tous,

Un essai avec l'objet dictionnary. Tu sélectionnes la plage contenant les doublons à traiter (dans ton exemple B2:J2) et tu lances la macro ci-dessous.

Sub test()
Set Tablo = CreateObject("Scripting.dictionary")
On Error Resume Next
For Each cell In Selection
Do
Err = 0
Tablo.Add cell.Value, cell.Value
If Err <> 0 Then
cell.Value = cell.Value + 1
End If
Loop Until Err = 0
Next cell
On Error GoTo 0
End Sub

Bonne fin d'après midi

Ninbihan