Eviter la saisie de doublons par le formulaire

Bonjour,

je n'arrive pas à programmer mon formulaire pour obtenir un message d'alerte en cas de saisie d'un doublon dans mon tableau d'ingrédients.

merci pour votre aide

Bonjour,

Une proposition

A+

Bonsoir Frangy,

En plein dans le mille, ça marche nickel.

Je débute et j'essaie de bien comprendre pour ne pas appliquer les formules bêtement, sans être capable de les reproduire.

J'ai aussi utiliser le nom du tableau que j'avais insérer : tableau1

Peux tu me dire si je traduis bien ?

Et encore merci pour ton aide.

Private Sub CommandButton1_Click() 'Enregistrer

With Worksheets("PRIX INGREDIENTS")

If Application.CountIf([tableau1], Me.TextBox1.Text) = 0 Then 'si nombre de message textbox1 dans tableau1 =0,alors, Me reprend le nom du formulaire ??

.Rows("2:2").Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove 'insère une ligne

[A2] = TextBox1.Text 'inscrire textbox1

[B2] = TextBox2.Text 'inscrire textbox2

[C2] = TextBox3.Text 'inscrire textbox3

Else

MsgBox "Cet ingrédient est déjà inscrit dans la liste" 'sinon,inscrire "message"

End If

Unload UserForm1 'ferme le formulaire

End With

End Sub

Bonsoir,

Peux tu me dire si je traduis bien ?

Oui, tout à fait.

Pour le formuler différemment :

Si l'ingrédient saisi dans le formulaire n'a pas été noté dans le tableau1, alors

on affiche un message

A+

Rechercher des sujets similaires à "eviter saisie doublons formulaire"