Sub Ouvrir()
[j5] = ActiveSheet.OLEObjects("TextBox1").Object
End Sub
Sub test()
Range("J5").Value = Me.TextBox1.Text
End Sub
... tu es certain que le code n'était pas dans un module!?Modeste à dit:... à placer dans la fenêtre de code de la "Feuil1"
Désolé, je n'avais pas fait attention. en effet, j'avais mis le code dans un module standard. D'autant plus que notre ami kadelmalin avait masqué les onlgets.... tu es certain que le code n'était pas dans un module!?