Interdire doublon dans un textbox

Bonjour

Je voudrais saisir 5 numéro différents dans les textbox.

Pour minimiser les erreurs je voudrais qu'il ne soit pas possible que deux textbox aient le même numéro. C'est à dire que la tabulation ne soit pas possible s'il ya un doublon.

Merci par avance pour votre aide

Ci joint le fichier

Bonjour,

Ceci:

Private Sub TextBox1_Change()
    If TextBox1.Value = TextBox2.Value Or _
    TextBox1.Value = TextBox3.Value Or _
    TextBox1.Value = TextBox4.Value Or _
    TextBox1.Value = TextBox5.Value Then TextBox1.Value = ""
End Sub
Private Sub TextBox2_Change()
    If TextBox2.Value = TextBox1.Value Or _
    TextBox2.Value = TextBox3.Value Or _
    TextBox2.Value = TextBox4.Value Or _
    TextBox2.Value = TextBox5.Value Then TextBox2.Value = ""
End Sub
Private Sub TextBox3_Change()
    If TextBox3.Value = TextBox1.Value Or _
    TextBox3.Value = TextBox2.Value Or _
    TextBox3.Value = TextBox4.Value Or _
    TextBox3.Value = TextBox5.Value Then TextBox3.Value = ""
End Sub
Private Sub TextBox4_Change()
    If TextBox4.Value = TextBox1.Value Or _
    TextBox4.Value = TextBox2.Value Or _
    TextBox4.Value = TextBox3.Value Or _
    TextBox4.Value = TextBox5.Value Then TextBox4.Value = ""
End Sub
Private Sub TextBox5_Change()
    If TextBox5.Value = TextBox1.Value Or _
    TextBox5.Value = TextBox2.Value Or _
    TextBox5.Value = TextBox3.Value Or _
    TextBox5.Value = TextBox4.Value Then TextBox5.Value = ""
End Sub

Cdlt

bonjour. Merci pour la réaction prompt.

j' ai testé. Je vois que vous m'avez bien compris. Ici la difficulté c'est qu'on ne peut saisir que de 0 à 9. Je voudrais possible saisie jusqu'à 10 .

bonjour Arturo83,Sawtappo,

il s'appèle comment votre textbox10 ? Il faut 10 fois ce Sub Textbox1_Change et 1 fois cette macro "Comparer_Textboxes"

Private Sub TextBox1_Change()
     Comparer_Textboxes 1
End Sub

Sub Comparer_Textboxes(n°)
     If Me.Controls("Textbox" & n°).Value <> "" Then
          For i = 1 To 5
               If i <> n° Then
                    b = Me.Controls("Textbox" & i).Value = Me.Controls("Textbox" & n°).Value
                    If b Then
                         MsgBox "contenu est égal à textbox " & i
                         Me.Controls("Textbox" & n°).Value = ""
                         Exit Sub
                    End If
               End If
          Next
     End If
End Sub

Merci. Beaucoup

Je n'ai toujours pas compris ou je dois mettre les deux codes.

Il n'y a pas de textbox 10 car il sont seulement 5

Je voulais dire que avec ce code , si je saisie 1 par exemple, je ne peux plus saisir 10,11,12,...

Si je saisie 2 je ne peux plus saisir 20,21,22,...

Car on ne peut pas saisir un chiffre deux fois.

Alors que je voudrais que quand je saisie par exemple 35 au niveau de textbox1, et au niveau d'un autre textbox je saisi encore 35, que je puisse pas me déplacer avec la touche entrée parce que les deux textbox ont les mêmes valeurs.

alors il faut choisir une autre event au lieu du change, attendez ...

ca marche très bien c'est exactement ce que je voulais.

Merci grandement