Bonjour à toutes et tous,
Je fais appel à vous car je ne parviens pas à obtenir un fonctionnement correct de cette macro (elle est supposer vérifier que le contenu d'une TextBox ne se trouve pas déjà sur la feuille)
Je fais appel à vous car je ne parviens pas à obtenir un fonctionnement correct de cette macro (elle est supposer vérifier que le contenu d'une TextBox ne se trouve pas déjà sur la feuille)
Code:
Private Sub CommandButton1_Click()
Dim val1
val1 = TextBox1.Value
With Sheets("Base")
For Each Cell In .Range("A2:C" & .Range("A65536").End(xlUp).Row)
Next
'Devrait m'afficher vrai lorsque la cellule a le même contenu que la TextBox1
MsgBox Cell = val1
'Et pourtant lorsque c'est le cas cela affiche "Faux"
If Cell = val1 Then
MsgBox ("Impossible d'enregistrer plusieurs fois les mêmes données.")
Exit Sub
Else
Num = Sheets("Base").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Activate
Range("A" & Num).Value = TextBox1.Value
Range("B" & Num).Value = TextBox2.Value
End If
End With
End Sub