Afficher la valeur d'une cellule dans un UserForm

Bonjour,

Comme le titre l'indique je cherche à faire apparaître la valeur d'une cellule dans un UserForm.

Je voudrais que la valeur qui se trouve deux case à gauche par rapport à la cellule active s'affiche dans mon UserForm.

J'ai trouvé cette macro qui fonctionne bien mais pour une cellule bien précise, la A1

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheets(1).Range("A1").Value
End Sub

J'ai testé en adaptant la macro avec ça mais ça fonctionne pas

Private Sub TextBox1_Change()
Me.TextBox1.Value = Selection.Offset(0, -2).Value
End Sub

Auriez vous une solution pour résoudre mon problème ?

Merci d'avance.

Addaex

Bonjour Addeax, bonjour le forum,

Ton code devrait fonctionner ou alors, il manque des informations...

Essaie comme ça :

Private Sub UserForm_Initialize()
Sheets(1).Select
If ActiveCell.Column > 2 Then Me.TextBox1.Value = ActiveCell.Offset(0, -2).Value
End Sub

Finalement mon code fonctionne bien, en revanche pour que la valeur s'affiche je dois cliquer dans la zone de texte du UserForm et essayé de saisir quelque chose. A ce moment là la valeur apparaît, pas très pratique.

Du coup j'ai passé mon code en UserForm_Initialize() et ça fonctionne niquel.

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Selection.Offset(0, -1).Value
End Sub

Merci pour ton aide.