Textbox probleme d'affichage Résolu/Fermé

Question

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

pijaku · Answer

Bonjour,
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

mariek888 · Answer

Super merci beaucoup !!!

Textbox probleme d'affichage

2 réponses

Discussions similaires