Private Sub Cmd_1_Click() 'action sur bouton OK nommé Cmd_1
Me.TB_1 = Sheets("Feuil1").Range("B8")
'La textBox (TB_1) du USF contenant le bouton (Cmd_1)(voir Me) = cellule B8 de la feuille "Feuil1"
Sheets("Base de données").Range("D4") = CLng(Me.TB_1)
'Feuille "Base de données" cellule D4 = convertion en numérique long (CLng) du texte que contient la TextBox(TB_1)
End Sub
Private Sub Cmd_2_Click() 'action sur bouton Annoler nommé Cmd_2
Me.TB_1 = ""
remplir la TB_1 avec un texte nul
Sheets("Base de données").Range("D4").Clear
'effacer la cellule D4
End Sub