petit soucis avec une mise à jour

bonsoir le forum
j'ai un petit soucis avec une mise à jour

quand j'essaye de faire une mise à jour à l'aide du boutton MAJ sur la feuille "recherche" rien ne se passe.
voila le code
Private Sub MAJ_Click()
With WsBase
.Range("c5" & NomLBindex).Value = TextBox1.Value
.Range("c7" & NomLBindex).Value = TextBox2.Value
.Range("c9" & NomLBindex).Value = TextBox3.Value
.Range("c13" & NomLBindex).Value = TextBox4.Value
.Range("c11" & NomLBindex).Value = TextBox5.Value
.Range("c15" & NomLBindex).Value = TextBox6.Value
.Range("c17" & NomLBindex).Value = TextBox7.Value
.Range("c29" & NomLBindex).Value = TextBox8.Value
.Range("c21" & NomLBindex).Value = TextBox9.Value
.Range("c31" & NomLBindex).Value = TextBox10.Value
.Range("c23" & NomLBindex).Value = TextBox11.Value
.Range("c25" & NomLBindex).Value = TextBox12.Value
.Range("c19" & NomLBindex).Value = TextBox13.Value
End With
Sheets("Recherche").Select
Unload Me

End Sub

merci
petchy

bonjour le forum

j'ai trouvé pour la mise à jour.

mais j'ai encore un petit probleme la mise à jour se fait dans le feuille "recherche",mais toutes les infos sont dans la feuille "amicale",comment faire pour que la mise à jour se fasse aussi dans la feuille"amicale" tous en gardant la feuille "recheerche".
j'espère avoir était clair

Bonsoir le Forum,
est il possible avec se genre de msgbox de mettre "oui" pour valider ou "non"pour anuler" tout en gardant cette procédure

MsgBox TextBox3 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "TITRE = " & vbTab & TextBox3 _
& vbCrLf & vbCrLf & vbTab & "ACTEURS = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "GENRE = " & vbTab & TextBox4 _
& vbCrLf & vbCrLf & vbTab & "SUPPORT = " & vbTab & TextBox5, _
vbInformation, "Vérivication avant de valider"
merci

bonsoir

As tu essayer :

MsgBox TextBox3 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "TITRE = " & vbTab & TextBox3 _
& vbCrLf & vbCrLf & vbTab & "ACTEURS = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "GENRE = " & vbTab & TextBox4 _
& vbCrLf & vbCrLf & vbTab & "SUPPORT = " & vbTab & TextBox5, _
vbyesno + vbInformation, "Vérification avant de valider"

Salut
Hervé

bonsoir Hervé

merci pour ta réponse,mais quand je réponds "non" il valide quand meme,est il possible que quand on click sur "non" il ferme le msgbox et je revient sur mon USF,sans valider.
merci d'avance
petchy

re

comme ca :

if MsgBox (TextBox3 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "TITRE = " & vbTab & TextBox3 _
& vbCrLf & vbCrLf & vbTab & "ACTEURS = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "GENRE = " & vbTab & TextBox4 _
& vbCrLf & vbCrLf & vbTab & "SUPPORT = " & vbTab & TextBox5, _
vbyesno + vbInformation, "Vérification avant de valider")=vbno then
exit sub
else
------------ton code-----------
end if

Salut
Hervé

Re

un grand merci Hervé,ça fonctionne super bien


@ plus
petchy