Discussion :

[margault]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Duddy]

Bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    TonUserform.Show
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

bonjour

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


au plaisir ...

[margault]

merci beaucoup ça marche très bien !

Margault