Voici les codes que je possède dans mon userform :
Private Sub Userform7_Activate()
Call CommandButton826_Click
Me.CommandButton1.Caption = Sheets("BDD").Range("B62")
UserForm7.Controls("CommandButton2").Caption = Sheets("BDD").Range("B63").Value
UserForm7.Controls("CommandButton3").Caption = Sheets("BDD").Range("B64").Value
UserForm7.Controls("CommandButton4").Caption = Sheets("BDD").Range("B65").Value
UserForm7.Controls("CommandButton5").Caption = Sheets("BDD").Range("B66").Value
UserForm7.Controls("CommandButton6").Caption = Sheets("BDD").Range("B67").Value
UserForm7.Controls("CommandButton7").Caption = Sheets("BDD").Range("B68").Value
UserForm7.Controls("CommandButton8").Caption = Sheets("BDD").Range("B69").Value
UserForm7.Controls("CommandButton9").Caption = Sheets("BDD").Range("B70").Value
UserForm7.Controls("CommandButton10").Caption = Sheets("BDD").Range("B71").Value
UserForm7.Controls("CommandButton11").Caption = Sheets("BDD").Range("B72").Value
UserForm7.Controls("CommandButton12").Caption = Sheets("BDD").Range("B73").Value
UserForm7.Controls("CommandButton13").Caption = Sheets("BDD").Range("B74").Value
UserForm7.Controls("CommandButton14").Caption = Sheets("BDD").Range("B75").Value
UserForm7.Controls("CommandButton15").Caption = Sheets("BDD").Range("B76").Value
End Sub
Private Sub CommandButton1_Click()
CommandButton1.Caption = Sheets("BDD").Range("B62").Value
UserForm1.TextBox1 = Sheets("BDD").Range("B62")
End Sub
Private Sub CommandButton2_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B63")
CommandButton2.Caption = Sheets("BDD").Range("B63").Value
End Sub
Private Sub CommandButton3_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B64")
CommandButton3.Caption = Sheets("BDD").Range("B64").Value
End Sub
Private Sub CommandButton4_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B65")
CommandButton4.Caption = Sheets("BDD").Range("B65").Value
End Sub
Private Sub CommandButton5_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B66")
CommandButton5.Caption = Sheets("BDD").Range("B66").Value
End Sub
Private Sub CommandButton6_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B67")
CommandButton6.Caption = Sheets("BDD").Range("B67").Value
End Sub
Private Sub CommandButton7_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B68")
CommandButton7.Caption = Sheets("BDD").Range("B68").Value
End Sub
Private Sub CommandButton8_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B69")
CommandButton8.Caption = Sheets("BDD").Range("B69").Value
End Sub
Private Sub CommandButton9_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B70")
CommandButton9.Caption = Sheets("BDD").Range("B70").Value
End Sub
Private Sub CommandButton10_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B71")
CommandButton10.Caption = Sheets("BDD").Range("B71").Value
End Sub
Private Sub CommandButton11_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B72")
CommandButton11.Caption = Sheets("BDD").Range("B72").Value
End Sub
Private Sub CommandButton12_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B73")
CommandButton12.Caption = Sheets("BDD").Range("B73").Value
End Sub
Private Sub CommandButton13_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B74")
CommandButton13.Caption = Sheets("BDD").Range("B74").Value
End Sub
Private Sub CommandButton14_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B75")
CommandButton14.Caption = Sheets("BDD").Range("B75").Value
End Sub
Private Sub CommandButton15_Click()
UserForm1.TextBox1 = Sheets("BDD").Range("B76")
CommandButton15.Caption = Sheets("BDD").Range("B76").Value
End Sub