petit soucis avec une mise à jour

[petchy]

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

 

[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

 

[petchy]

msgbox

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

 

[Hervé]

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é

 

[petchy]

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

 

[Hervé]

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é

 

[petchy]

Re

un grand merci Hervé,ça fonctionne super bien


@ plus
petchy