Le contenu de la cellule étant le même que celui de la textbox interdir saisie

laetitia90 à dit:

bonjour fb62840 , l'ami Pierrot🙂

je vois que tu tiens pas compte de la textbox2 ??
une facon de l'ecrire je cherche seulement sur colonne 1 a adapter

Code:

Private Sub CommandButton1_Click()
 Dim n As Long, a As Range
 With Sheets("Base")
 n = .Range("A65536").End(xlUp).Row
 Set a = .Range("A2" & ":A" & n).Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
 If Not a Is Nothing Then
 MsgBox ("Impossible d'enregistrer plusieurs fois les mêmes données.")
 Else
 .Range("A" & n + 1) = TextBox1.Value
 .Range("B" & n + 1) = TextBox2.Value
 End If
 End With
End Sub

Cliquez pour agrandir...

laetitia90 à dit:

re,

Code:

Private Sub CommandButton1_Click()
 Dim n As Long, a As Range, b As Range
 With Sheets("Base")
 n = .Range("A65536").End(xlUp).Row
 Set a = .Range("A2" & ":A" & n).Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
 Set b = .Range("B2" & ":B" & n).Find(What:=TextBox2, LookIn:=xlValues, LookAt:=xlWhole)
 If Not a Is Nothing Or Not b Is Nothing Then
 MsgBox ("Impossible d'enregistrer plusieurs fois les mêmes données.")
 Else
 .Range("A" & n + 1) = TextBox1.Value
 .Range("B" & n + 1) = TextBox2.Value
 End If
 End With
End Sub

dans certains plus simple de contrôler a la source & non en validant mais bon!!!

Cliquez pour agrandir...