Discussion :

[re]

Bonjour,

Je voudrais que lorsque je fais une saisie dans la TextBox, la macro me dise s'il y a un doublon et interdise de créer ce doublon.

J'y suis arrivé avec un petit code mais je le fait après le trie et non à la saisie

voir fichier joint avec le userform simplifié (juste pour la saisie)

Merci de votre aide

Excusez moi je n'ai pas posté dans VBA, je ne sais pas le déplacer

[mercatog]

Bonjour

Supprime dans propriété de ton textbox ControlSource la valeur Feuil1!A3

ce code recherche le mot saisi dans la textbox, s'il n'existe pas, il l'ajoute enfin de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Bouton_Valider_Click()
Dim c As Range, LastLig As Long
 
If Me.TextBox1_Fourn.Text <> "" Then
      With Sheets("Feuil1")
            LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
            Set c = .Range("A3:A" & LastLig).Find(Me.TextBox1_Fourn.Text, LookIn:=xlValues, lookat:=xlWhole)
            If c Is Nothing Then .Range("A" & LastLig + 1).Value = Me.TextBox1_Fourn.Text
            Set c = Nothing
            Me.TextBox1_Fourn.Text = ""
      End With
End If
End Sub
 
Private Sub Bouton_Terminer_Click()
 
Unload Me
End Sub

[re]

Merci beaucoup