Textbox probleme d'affichage
Résolu
mariek888
Messages postés
8
Statut
Membre
-
mariek888 Messages postés 8 Statut Membre -
mariek888 Messages postés 8 Statut Membre -
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
A voir également:
- Textbox probleme d'affichage
- Affichage double ecran - Guide
- Problème affichage fenêtre windows 10 - Guide
- Windows 11 affichage classique - Guide
- Problème affichage facebook ✓ - Forum Facebook
- Problème affichage page internet google chrome ✓ - Forum Google Chrome
2 réponses
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
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
