Récuperer la valeur d'une cellule dans une textbox
Bonjour,
Je rencontre un problème que je ne comprend pas. j'ai créer une userform avec 6 textbox, qui me permette de récuperer la valeur des cellules auxquelles elle sont assignés. le problème que je rencontre est lorsque je met une valeur dans la cellule k10 de la meme feuille que le bouton qui fait apparaitre mon userform et que la textbox1 recupere la valeur en k10, cela marche, avec le code suivant :
Sub Bouton1_Cliquer()
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Range("K10")
End Sub
Mais lorsque je veux que ma textbox1 récupère la valeur de la cellule E10 dans la feuil4, ça m'affiche "erreur d'execution '438' : Propriété ou méthode non gérée par cet objet". alors je clique sur débogage, il met sur ligne en jaune la ligne suivante :
Sub Bouton1_Cliquer()
UserForm1.Show
End Sub
le code que j'ai utilisé pour que la textbox recupere une valeur dans une autre feuil est :
Private Sub UserForm_Initialize()
TextBox1 = sheets("paul jean").Range("K10")
End Sub
Pouvez-vous m'aider à comprendre et à résoudre mon problème s'il vous plait.
merci
Bonjour,
Fichier ?
Re bonjour
Merci à ceux qui on commencer a se pencher sur mon problème. j'ai trouvé le problème et résolu. il me suffisait juste d'écrire :
Private userform_initialize()
textbox1= feuil4.range("K10") au lieu de textbox1=feuil4("paul jean").range("K10")
End sub.
Merci à vous.
Mon second problème est :
comment arrondir (avoir 2 chiffre après la virgule) la valeur de ma textbox4 et indiquer que la valeur de ma textbox8 est un pourcentage.
Merci
Déjà, ce que tu cites 2 fois est différent !
Tu n'as pas l'air de bien savoir ce que tu écris, ni ce que cela signifie.
Alors, si fichier fourni, on peut regarder l'état, et te faire quelques propositions (simples) !
Sinon, pas de temps à perdre... !
Bonjour,
j'ai réussi à résoudre mon problème. le code ci-dessous :
Option Explicit
Dim pos As Integer
Private Sub form_load()
Dim A As Single
A = 1234.5678
'pour attribuer une valeur au TextBox avec seulement 2 décimales
TextBox4 = Format(A, "#0.00")
TextBox8 = Format(A, "#0.00")
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub textbox4_change()
Dim A As Single
A = Feuil4.Range("N10")
TextBox4 = Format(A, "#0.00")
End Sub
Private Sub textbox8_change()
Dim A As Single
A = Feuil4.Range("R10")
TextBox8 = Format(A, "#0.00")
End Sub
j'obtien au final 2016-11-29_101701.png en pièce jointe.
avant le code j'avais 2016-11-29-083423.png en pièce jointe
