Salut Alex, le Forum
J'ai regardé tes péripéties, et donc heureux que tu aies trouvé par toi-même ta solution.
Ceci dit, vu que tu écris que c'est un horrible brouillon.... Je suppose que tu vas avoir beaucoup plus de textBox... Voici un moyen d'en gérer jusqu'à 999 avec une simple boucle au cas où ... Plutôt que d'écrire ceci :
TextBox1.Text = Sheets("Data").Range("B1").Value
TextBox2.Text = Sheets("Data").Range("B2").Value
TextBox3.Text = Sheets("Data").Range("B3").Value
TextBox4.Text = Sheets("Data").Range("B4").Value
TextBox5.Text = Sheets("Data").Range("B5").Value
Voici la boucle "magique" ! (lol) .... Seule condition tes TextBox s'appellent toutes TextBox avec un numéro... Et ce numéro sera celui de la celulle B(i)...
Option Explicit
Public Sub Valeurs_Change()
Dim CTRL As OLEObject
Dim i As Byte
For Each CTRL In Me.OLEObjects
If CTRL.ProgId = "Forms.TextBox.1" Then
Select Case Len(CTRL.Name)
Case 8: i = CByte(Right(CTRL.Name, 1))
Case 9: i = CByte(Right(CTRL.Name, 2))
Case 10: i = CByte(Right(CTRL.Name, 3))
End Select
With Sheets("Data")
CTRL.Object.Text = .Range("B" & i)
End With
End If
Next CTRL
End Sub
Si tu as beaucoup de TextBox sur ta Map....... Tu vas apprécier !!!
Bonne Nuit
@+Thierry