Formule export

JNP

XLDnaute Barbatruc

• 27 Février 2009

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

P

phildel

XLDnaute Nouveau

• 28 Février 2009

• #3

Re : Formule export

Merci beaucoup, j'ai pu avancé correctement

Bon week-end

philippe

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 1 Mars 2009

• #4

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 :

Code:

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

qui peut également s'écrire ainsi :

Code:

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

Bon Dimanche

 

Vote positif 0 Vote négatif