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