bonjour amo , le forum j ai seulement changer ta fonction somme par =f26+f27 plus bloque un ligne de code ca marche ................Private Sub ok_Click()
Unload Me 'ou unload bd_pna
'BD_PNA.Hide'attention hide ne decharge pas usf a utiliser pour conserver les valeurs ou variables
Sheets('Feuil1').Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub TextBox1_Change()
'Range(RefEdit1).Value = TextBox1.Value
Sheets('Feuil1').Range('F26').Value = TextBox1
End Sub
Private Sub TextBox2_Change()
Sheets('Feuil1').Range('F27').Value = TextBox2
End Sub ' je vais essaye de te renvoyer ton fichier modifie pour voir!! hier impossible d envoyer un zip sur un autre post ;salutations [file name=Classeur1_20050810124912.zip size=12543]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050810124912.zip[/file]