probleme saisie d une userform

[hmorad]

bonjour,
un probleme que je n arrive pas à résoudre, je saisie dans un userform plusieurs informations qui sont envoyées dans une feuille sauf une qui ne
s inscris pas. (designation)
Pouvez vous m aider? je galere...

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub TextBox1_Change()
[a3] = UserForm1.gencode
IsNumeric (gencode)
End Sub

Private Sub TextBox2_Change()
[b3] = UserForm1.reference
End Sub



Private Sub TextBox4_Change()
[g3] = UserForm1.marque
End Sub

Private Sub TextBox5_Change()
[e3] = UserForm1.taille
End Sub

Private Sub TextBox6_Change()
[f3] = UserForm1.couleur
End Sub

Private Sub TextBox7_Change()
[h3] = UserForm1.quantite
End Sub

Private Sub quitter_Click()

End Sub

Private Sub designaton_Change()
[c3] = designation
End Sub

Private Sub gencode_Change()

End Sub

Private Sub quitter_USERFORM_Click()
Unload SAISIE_ARTICLE
End Sub

Private Sub TextBox8_Change()
[d3] = UserForm1.prixachat
End Sub

Private Sub TextBox9_Change()
[L3] = UserForm1.prixvente
End Sub

Private Sub UserForm_Click()

End Sub



End Sub





Private Sub valider_Click()





Dim LastRow As Object

Set LastRow = liste.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = Val(gencode)
LastRow.Offset(1, 1).Value = Val(reference)
LastRow.Offset(1, 2).Value = designation
LastRow.Offset(1, 3).Value = Val(prixachat)
LastRow.Offset(1, 4).Value = Val(taille)
LastRow.Offset(1, 5).Value = couleur
LastRow.Offset(1, 6).Value = marque
LastRow.Offset(1, 7).Value = Val(quantite)
LastRow.Offset(1, 9).Value = Val(prixvente)

MsgBox "Enregistrement dans la liste"

response = MsgBox("Nouvel saisie?", _
vbYesNo)

If response = vbYes Then
gencode = ""
reference = ""
designation = ""
prixachat = ""
taille = ""
couleur = ""
marque = ""
quantite = ""
prixvente = ""


gencode.SetFocus

Else
Unload Me
End If


gencode.Value = ""
reference.Value = ""
designation.Value = ""
prixachat.Value = ""
taille.Value = ""
couleur.Value = ""
marque.Value = ""
quantite.Value = ""
prixvente.Value = ""


End Sub

 

[skoobi]

Re : probleme saisie d une userform

Bonjour,

A quoi correspond "designation"?
A un controle, apparement, mais on y verra plus clair avec le fichier.

 

[hmorad]

Re : probleme saisie d une userform

merci de prendre le temps.....
mon fichier est trop lourd!
designation est une information que je saisie dans le userform et je voudrais quelle soit transmise sur une feuille (liste) toute les autre information passe sauf celle ci......
code ref designation pa pv etc....

 

[skoobi]

Re : probleme saisie d une userform

mon fichier est trop lourd!

Essaye de le réduire si tu peux, d'y laisser un minimum d'infos car sans ce fichier ça sera dur.
En plus j'ai pas ma boule de cristal sur moi

 

[hmorad]

Re : probleme saisie d une userform

je peux te l envoyer en mail il est vraiment trop lourd......
merci

 

[skoobi]

Re : probleme saisie d une userform

Sur Accueil de Cjoint.com tu peux aller jusqu'à 500 ko je crois.