Probleme sur texbox

[Stefan_matlos]

Bonjour a out le forum,

Mon probleme se situe au remplissage automatique d'un textbox.
Je m'expliue. J ai un formulaire nommé suivi devis, dans lequel j'ai cinq texbox, et je voudrais que ces textebos soit renseigné pr la sheet devis. j ai fait ce code, mais cela ne marche pas.
Private Sub Label1_Click()
Dim a As Long
a = Worksheet("Devis").Range("B9")
texbox1.Value = a
End Sub
Pour essayer de donner la valeur B9 a la text box puis ce code pour l'ecrire dans la sheet suivi devis, mais rien ne se passe.
Private Sub CommandButton1_Click()
Dim der_ligne As Integer
With sheets("Etat Devis")
der_ligne = .Range("A65536").End(xlUp)(2).Row
.Range("A" & der_ligne) = TextBox1.Value
.Range("B" & der_ligne) = TextBox2.Value
.Range("C" & der_ligne) = TextBox3.Value
.Range("D" & der_ligne) = TextBox4.Value
.Range("E" & der_ligne) = ComboBox1.Value
.Range("F" & der_ligne) = TextBox5.Value
End With
Unload Me
End Sub
Ce code est correct
par avance merci.

 

[Excel_lent]

Re : Probleme sur texbox

Bonsoir à tous et aux autres,

teste ces corrections et dis nous :

Private Sub Label1_Click()
Dim a As Long
a = Worksheet[COLOR=Red][B]s[/B][/COLOR]("Devis").Range("B9")
Tex[B][COLOR=Red]t[/COLOR][/B]Box1.Value = a
End Sub

 

[Stefan_matlos]

Re : Probleme sur texbox

Merci je fais trop de fautes de frappe, je vais etre desormais plus vigilant