VBA userform update automatique

Salut,

J'utiliser une userform qui affiche l'information d'une cellule dans une txtbox et je voudrais qu'en selectionnant une autre ligne avec mon curseur la macro remplace automatiquement le contenu de la txtbox par la valeur de la nouvelle sans fermer la userform
Voici le code de départ:

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change() Dim data As String data = Cells(1, 1).Value TextBox1.Value = data End Sub

---

merci pour votre aide

Bonjour le forum, :D

1er: La propriété SHOWMODAL du formulaire doit être à false.

Code:

---

1 2 3

Private Sub Workbook_Open() TonUserform.Show End Sub

---

Code:

---

1 2 3

Private Sub TonUserform_Initialize() TaTextBox.Value=Cells(1,1).Value End Sub

---

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) TonUserform.TaTextBox.Value=Activecell.Value TonUserform.Repaint End Sub

---

Je n'ai pas testé, mais je le ferai ainsi. Teste le et dis-nous si cela fonctionne.

bonjour

oui c'est ca mais pourquoi "me.repaint" pas neccessaire dans ce cas


au plaisir ...

merci beaucoup ça marche très bien !

Margault