Code VBA pour effacer les données d'une cellule avec combobox

Bonjour,

J'ai ce code VBA pour effacer les données d'une cellule suite au valeur combobox2, j'ai ajouté un textbox1 qui se remplie automatiquement avec combobox2.

je veux modifier ce code pour qu'il vérifie si la valeur du textbox1 est la même que dans la cellule avant d'effacer les données si non ne rien faire.

Merci d'avance

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect 
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim L As Long
Dim coderech As String
Dernligne = Sheets("Source").Range("A" & Rows.Count).End(xlUp).Row
coderech = ComboBox2.Value
With Sheets("Source")
Set plage = .Range("A2:A" & Dernligne)
For Each Cell In plage
 If Cell.Value = coderech Then
  .Cells(Cell.Row, 2).ClearContents
 End If
Next Cell
End With
ComboBox2.Value = ""
MsgBox "sortie effectuée"
With Sheets("Source")
L = Dernligne + 1
.Cells(L, 2).ClearContents
End With
Unload Me
ActiveSheet.Protect 
UserForm2.Show
End Sub

Bonjour,

je veux modifier ce code pour qu'il vérifie si la valeur du textbox1 est la même que dans la cellule

j'ai ajouté un textbox1 qui se remplie automatiquement avec combobox2.

Si TextBox1 = comboBox2 alors, ta condition est vérifiée ici :

coderech = ComboBox2.Value
With Sheets("Source")
Set plage = .Range("A2:A" & Dernligne)
For Each Cell In plage
 If Cell.Value = coderech Then '******************** ICI *********************