Donnes automatiques dans une userform

[ninanani]

Bonjour a tous.

J ai une userfrom qui fonctionne bien, seulement j aimerais l ameliorer.
Je souhaiterai que dans cette userfrom, lors de son ouverture, il y ait a un certain endroit des donnees qui viennent automatiquement de la feuille.

Par exemple sur ma feuille "Simple Invoice" en G37, j ai un chiffre.
Lorsque j ouvre mon userfrom, dans la textbox7 (par exemple), vienne automatiquement le chiffre que j ai en G37.

J espere avoir ete claire.

Merci de votre aide

 

[Gexk5]

Re : Donnes automatiques dans une userform

salut, essaye ca

Va dans visual vasic, clic sur ta textbox7, regardes dans propriete de la textbox, dans Donnée, controle source , ecris, Simple Invoice!G37

@+

 

[ninanani]

Re : Donnes automatiques dans une userform

Re,

Merci pour ta reponse, seulement lorsque j ecris cela la ou tu me l a indique.
Il m affiche un message d erreur :"Could not set the Control/source property. Invalid property value"

Que faire?

 

[MJ13]

Re : Donnes automatiques dans une userform

Bonjour ninanani,Gexk

Dans l'Userform_Initialize, il faudrait écrire:

textbox7.value=activesheet.sheets("Simple Invoice").range("G37").value

Si tu places ce code et que chaque propriété se met en majuscule, il est fort à parier que la syntaxe est bonne (sinon, il le met en rouge).

Enfin penser à la saisie intuitive. Si tu tapes Texbox7., il doit te présenter les propriétés adaptées et la tu peux choisir en fonction de ce que tu veux faire (tu peux même faire F1 sur un mot que tu ne comprends pas).

 

[ninanani]

Re : Donnes automatiques dans une userform

Re MJ13, merci de ta reponse.

Je ne vois pas trop ce que tu veux dire, ou dois je rajouter cette ligne?
Je te met ma macro, associe a l userform, est ce ici qu il faut le rajouter?

Option Explicit
Private Sub CommandButton1_Click()
Dim Derlig As Long

Derlig = Sheets("paiement").Range("B65536").End(xlUp).Row
With Sheets("paiement")
.Range("BG" & Derlig).Value = TextBox1
.Range("BH" & Derlig).Value = TextBox2
.Range("BI" & Derlig).Value = TextBox3
.Range("BJ" & Derlig).Value = TextBox4
.Range("BE" & Derlig).Value = TextBox5
.Range("BF" & Derlig).Value = TextBox6
End With

Gexk avait parle de rajouter directement l information dans les propriete de la textebox, est ce ici que je dois ecrire ton code?
Unload UserForm7
End Sub

 

[MJ13]

Re : Donnes automatiques dans une userform

RE bonjour

Habitue toi sur XLd a joindre un fichier qui reprend ton problème (surtout si tu débutes).
L'utilisation des USF est très sensible au codage. En plus on ne sait pas comment est organisé ton fichier?

 

[ninanani]

Re : Donnes automatiques dans une userform

Re le fil.

Je vous joint donc un petit fichier avec dedans des annotations pour expliquer mon probleme plus clairement.

(En passant merci Bernard pour cet userform qui fonctionne super bien.)

Voila le lient :http://cjoint.com/?csdofpqwJS

Merci bcp a vous.

 

[ninanani]

Re : Donnes automatiques dans une userform

Yooop,

Un petit coup de main??

 

[ninanani]

Re : Donnes automatiques dans une userform

Re le fil

C est bon j ai trouve la solution.
Merci quand meme de votre aide.