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
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