Formule export

[phildel]

Bonsoir, je débute dans la programmation VBA, pourriez-vous me donner la formule pour réaliser la fonction ci-dessous :
- Exporter un nombre d'un cellule d'un feuille Excel dans une Zone texte d'un UserForm et aussi que l'on ne puisse pas modifier cette zone (lecture seule).

je vous en remercie d'avance.

Phildel

 

[JNP]

Re : Formule export

Bonsoir Phildel ,
Si tu utilises un Label (outil "A" tout seul), ton texte ne pourras pas être modifié. Pour le remplir au chargement de l'USF :

Private Sub UserForm_Initialize()
Label1 = Sheets("Feuil1").Range("A1")
End Sub

à adapter en fonction du nom de ton onglet et de la cellule que tu veux faire monter.
Bon courage

 

[phildel]

Re : Formule export

Merci beaucoup, j'ai pu avancé correctement

Bon week-end

philippe

 

[Excel-lent]

Re : Formule export

Bonsoir JNP, Phildel,

Sinon, tu peux également utiliser une TexBox, et dans ce cas, dans les propriétés sur la ligne : "Locked" mettre en face "True".

Et pour le code ça donne :

TextBox1 = Sheets("Feuil1").Range("A1")

qui peut également s'écrire ainsi :

TextBox1 = Sheets("Feuil1").[A1]

Bon Dimanche