Problemme avec la procedure de validation

Bonjour à tous, je suis débutant en VBA

J'ai un soucis. Je souhaite que lorsque je valide mon formulaire, je cherche la date qui ce trouve dans ma textbox 1, je la recherche dans une plage de cellule de ma feuil. Si ma date correspond alors je copie mes textbox ou autres dans la colonne correspondante à la ligne ou ce trouve ma date. Mon blocage ce fait à "Set plage" . Merci à tous pour votre aide

Voici mon code:

Private Sub Valider_Click()

Feuil2.Activate

ActiveSheet.Unprotect

Dim plage As Range

Set plage = Worksheets("Feuil2").Range("A5:A35")

mavaleur = TextBox1 'a definir suivant la recherche

For Each cell In plage

If cell.Value = mavaleur Then

Range("B").Value = TextBox27

Range("C").Value = TextBox28

Range("D").Value = (Val(TextBox19) + Val(TextBox21) + Val(TextBox25))

Range("E").Value = (Val(TextBox20) + Val(TextBox22) + Val(TextBox26))

Range("F").Value = (Val(TextBox23) + Val(TextBox24))

Range("G").Value = TextBox17

Range("H").Value = TextBox18

Range("I").Value = TextBox14

Range("J").Value = TextBox15

Range("K").Value = TextBox16

End If

Next cell

ActiveSheet.Protect

Feuil1.Activate

Range("A1").Select

Unload UserForm1

'Sauvegarde du classeur

ThisWorkbook.Save

'Réactiver le rafraichissement de l'écran

Application.ScreenUpdating = True

'Affichage du message de bon déroulement

Select Case MsgBox("La saisie et l'enregistrement se sont bien déroulés.", vbInformation + vbOKOnly, "Félicitations")

Case vbOK

End Select

End Sub

Bonjour et bienvenue sur le forum

Ce serait plus facile si tu joignais ton fichier complet...

Bye !

Bonjour, désoler c'est un fichier que je prépare pour ma boite donc confidentiel.

Je peut mettre que ceci. Merci

Exemple dans BAF je met 34. Pour l’enregistrer je cherche la date dans ma plage A5 a A35 une date qui correspond a la date de mon userform. Si la date est trouver je l'enregistre dans la colonne correspondante. Cdt