Empêcher doublon VBA et effacer TextBox

Re : Empêcher doublon VBA et effacer TextBox

Salut meldja, le Forum

Essaye de décaler ton Exit Sub

A tester

Bonne Journée

Re : Empêcher doublon VBA et effacer TextBox

Merci,
En fait, je n'avais donné qu'un morceau du code pour ne pas faire trop long (vu que je débute, je fais des code super long parce que je ne sais pas faire de recherche). Dans mon fichier, il y a 5 colonnes différentes alors j'ai fait 5 petits codes) :

Dim n As Integer
For n = 3 To 50
If Col = "SDB PAF 4" And TextBox1.Value = Sheets("ListStagiaire").Range("A" & n).Value Then
MsgBox "Ce nom existe déjà dans la liste !", , "ATTENTION !"
Exit Sub

'Trois codes identiques au premier sont zappés

ElseIf Col = "SDB 7" And TextBox1.Value = Sheets("ListStagiaire").Range("E" & n).Value Then
MsgBox "Ce nom existe déjà dans la liste !", , "ATTENTION !"
Exit Sub
TextBox1.Value = ""

End If
Next n

J'ai zappé les 3 petits codes identiques au 2 que je viens de poster.
Quand je rajoute ton truc :
With textbox
.value = ""
.SetFocus

Ca me met un message d'erreur "Bloc If sans End If"
J'ai essayé de le mettre à plusieurs endroits mais toujours le même message.
Désolé, j'aurai dû être plus clair dés le début, mais je ne pensais pas que c'était aussi compliqué

Re : Empêcher doublon VBA et effacer TextBox

Désolé,
J'ai voulu faire trop vite, le problème est réglé pour le message d'erreur. Ce n'était pas "If sans End If", c'était "With sans End With".
J'ai réglé ça, mais ça ne marche pas non plus. Ma textbox n'est toujours pas vide.
Merci encore

Re : Empêcher doublon VBA et effacer TextBox

Promis,
J'arrête d'inonder le forum pour rien. C'est bon, ça marche très bien. Je l'avais placé après "Exit sub" c'est pour ça que ça marchait pas.
Pour éviter ça je recopierai l'ensemble du code qu'on m'envoie et je vérifierai mieux avant de blablater pour rien.
Encore désolé et merci