recup valeur cellule dans userform

[accoman]

Bonjour a tous mon projet a bien avancé grace a votre communauté un grand merci
la question a du etre posé mais je ne l'ai pas trouvé
Comment récupéré la valeur d'une cellule dans un userform
j'ai testé avec
Me.TextBox1 = Sheets("nom de ma feuille").Range("B5")
mais sa ne s'affiche pas dans l'userform
si quelqu'un peu me dire ce qui cloche
merci
amicalement

 

[Pierrot93]

Re : recup valeur cellule dans userform

Bonjour,

ce code devrait fonctionner, si placer dans le module de l'usf, et si la cellule est valorisée :

Me.TextBox1 = Sheets("nom de ma feuille").Range("B5")

sans plus de détails difficile de t'en dire plus, enfin pour moi...

bon après midi
@+

 

[accoman]

Re : recup valeur cellule dans userform

re bonjour
Voilà ci joint le lien pour le classeur
s'est sur la feuille patent
bouton consultation (userform2)
dans id patient (resultat C7)
Civilité (resultat B9)
Nom (resultat C9)
Prénom (resultat E9)
voilà ce que j'ai ecrit

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Param").Range("Nature").Value
ComboBox2.List = Sheets("Param").Range("Tarifs").Value
Me.TextBox3 = Sheets("Patient").Range("C7")
Me.TextBox4 = Sheets("Patient").Range("B9")
Me.TextBox5 = Sheets("Patient").Range("C9")
Me.TextBox6 = Sheets("Patient").Range("E9")
With Sheets("Bd consult")
ComboBox3.List = Application.Transpose(.Range("A4:M4").Value)
End With
IniCtl

End Sub

merci a tous
Amicalement

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Pierrot93]

Re : recup valeur cellule dans userform

Re, bonsoir cc

désolé, perso peux pas aller sur "cjoint", mais un tout petit fichier déposé sur le forum montrant uniquement le problème posé aurait du suffire...

 

[accoman]

Re : recup valeur cellule dans userform

bonjour Pierrot93
j'ai beau avoir réduit au maxi j'ai encore 70ko de fichier
le lien ne marche pas pour toi ?
amicalement

 

[Pierrot93]

Re : recup valeur cellule dans userform

Re,

non, problème de proxy.... peut être quelqu'un d'autre passera par là...

 

[accoman]

Re : recup valeur cellule dans userform

merci Pierrot93
de t'etre penché sur mon problème
amicalement
a+

 

[Staple1600]

Re : recup valeur cellule dans userform

Bonsoir à tous

accoman
Tu peux réduire beaucoup plus

Comme tu le dis toi-même

s'est sur la feuille patent
bouton consultation (userform2)

Vires toutes les autres feuilles sauf la feuille Patient
Effaces tous les userforms sauf UserForm2

Fais un Enregsiter sous -> Exemple.xlsm

Clic-droit sur ce fichier-> Envoyer vers Dossiers Compressés

Et postes-ici le fichier Exemple.zip obtenu.

 

[accoman]

Re : recup valeur cellule dans userform

re
bonsoir Staple1600
j'ai pu réduire a 55 ko peu pas plus temps pi

je trouverai peut etre la solution ailleur

merci a tous
amicalement

 

[accoman]

Re : recup valeur cellule dans userform

re
j'ai sa fait 3 h que je parcours google pour trouver une solution nada

si quelqu'un en a une sa serrai supperd
bonne soirée a tous
amicalement

 

[accoman]

Re : recup valeur cellule dans userform

Bonjour a tous
on dit que la nuit porte conseil
voilà la solution qui fonctionne, si ça peu servir a quelq'un

Private Sub TextBox3_Change()
TextBox3.Value = Range("nom de la cellule").Value

End Sub

et j'ai dut remettre la même chose pour

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Param").Range("Nature").Value
ComboBox2.List = Sheets("Param").Range("Tarifs").Value
TextBox3.Value = Range("C8").Value
TextBox4.Value = Range("B10").Value
TextBox5.Value = Range("C10").Value
TextBox6.Value = Range("E10").Value
With Sheets("Bd consult")
ComboBox3.List = Application.Transpose(.Range("A4:M4").Value)
End With
IniCtl

End Sub

Amicalement