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

Statistiques des forums

Discussions
298 013
Messages
1 965 133
Membres
200 858
dernier inscrit
Unclebens