Textbox probleme d'affichage
Résolu
Bonjour,
Je débute en VBA et j'ai quelques soucis ....
J'ai crée 2 userfom et plusieurs textBox mais voilà mon problème lorsque que je rentre le code suivant la valeur dans le TextBox ne s'affiche que si je clique dessus. Quelqu'un peut me dire pourquoi et comment faire pour que la valeur s'affiche d'elle même?
Private Sub TextBox1_Change()
TextBox1 = Sheets("Feuil2").Range("B2")
End Sub
Merci pour votre aide
Je débute en VBA et j'ai quelques soucis ....
J'ai crée 2 userfom et plusieurs textBox mais voilà mon problème lorsque que je rentre le code suivant la valeur dans le TextBox ne s'affiche que si je clique dessus. Quelqu'un peut me dire pourquoi et comment faire pour que la valeur s'affiche d'elle même?
Private Sub TextBox1_Change()
TextBox1 = Sheets("Feuil2").Range("B2")
End Sub
Merci pour votre aide
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
ModérateurBonjour,
L'évènement que tu as choisi pour faire "apparaitre" le contenu de ta cellule B2 dans ton textBox1 est : "TextBox1_Change()". Autrement dit, lorsque tu cliques sur ton textBox ou lorsque sa valeur change (saugrenue comme idée), il affiche la valeur que tu recherches.
Il te faut donc changer d'évènement.
Supposons que tu veuilles que cette valeur apparaisse en cliquant sur un bouton de commande :
Private Sub CommandButton1_Click()
TextBox1 = Sheets("Feuil2").Range("B2")
End Sub
Supposons que tu veuilles que cette valeur apparaisse au chargement de ton UserForm :
Private Sub UserForm_Activate()
TextBox1 = Sheets("Feuil2").Range("B2")
End Sub
Supposons que tu veuilles que cette valeur apparaisse si on clique sur OptionButton1 est que celui ci est coché :
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
TextBox1 = [A1]
Else
TextBox1 = ""
End If
End Sub
etc etc -
Super merci beaucoup !!!
