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

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
 

Robert

XLDnaute Barbatruc
Repose en paix
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...
 

Praveena

XLDnaute Nouveau
Bonsoir Robert,

Merci de ta réponse, pourtant tout est bon je trouve, j'ai mis les données nécessaires...

Voici le fichier...

Merci beaucoup de votre aide
Praveena
 

Pièces jointes

  • 3 - suivie-de-compte-bancaire.xlsm
    243.4 KB · Affichages: 9

Robert

XLDnaute Barbatruc
Repose en paix
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...
 

Discussions similaires

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