Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Faire afficher un texte présent dans une cellule dans un Textbox 1

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Praveena

XLDnaute Nouveau
Bonjour le forum,

Pour éviter que les informations du compte bancaire soit visible à toutes œil (je travaille sur un fichier de suivi de compte bancaire pour mon patron) j'ai crée un UserForm où on peut visualiser les données qu'en cliquant sur le bouton.

Sauf, qu'on vient de me demander s'il pouvait modifier quand il voulait. Du coup, j'ai pensé à intégrer les informations dans des cellules sur la page "Données".
Or, je souhaiterais du coup remplir les Textbox de ses informations pour qu'ils se mettent automatiquement à jours. J'ai essayé ce code mais je n'ai pas eu de résultat.

VB:
Private Sub Visualiser_Activate()

TextBox1 = Sheets("Données").Range("B21")
TextBox2 = Sheets("Données").Range("B22")
TextBox3 = Sheets("Données").Range("B23")
TextBox4 = Sheets("Données").Range("B24")

End Sub

Est - ce que vous pouvez m'aider s'il vous plaît?

Cordialement
Praveena
 
Bonsoir Praveena, bonsoir le forum,

Ton code est bon en théorie mais sans le fichier qui va avec on ne peut pas savoir, en pratique...
Vérifie bien le contenu de la plage B21:B24 de l'onglet Données...
 
Bonjour Praveena, bonjour le forum,

Tes Texboxes ne portent pas le bon numéro et je te recommande plutôt Initialize que Activate. Mais dans les deux cas il ne faut jamais mettre le
nom de l'UserForm mais juste UserForm_
VB:
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Données").Range("B21").Value
TextBox5.Value = Sheets("Données").Range("B22").Value
TextBox4.Value = Sheets("Données").Range("B23").Value
TextBox3.Value = Sheets("Données").Range("B24").Value
End Sub
Les Value sont une manie que j'ai, ils ne sont pas obligatoires...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…