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

[Praveena]

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.

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]

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]

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

 

[Robert]

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_

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

 

[Praveena]

Bonjour,

AH j'ai confondu avec un autre fichier...désolé...

Merci beaucoup!