bonjour, depuis pas mal de temps je cherche a modifier le format texte en nombre quand je fais ma saisie avec un userform.
Je suis débutant et je galère!!!!
la saisie fonctionne mais il y a un message d erreur de format
A L'AIDE!!!
Private Sub valider_Click()
Dim LastRow As Object
Set LastRow = liste.Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = gencode
LastRow.Offset(1, 1).Value = reference
LastRow.Offset(1, 2).Value = designation
LastRow.Offset(1, 3).Value = prixachat
LastRow.Offset(1, 4).Value = taille
LastRow.Offset(1, 5).Value = couleur
LastRow.Offset(1, 6).Value = marque
LastRow.Offset(1, 7).Value = quantite
LastRow.Offset(1, 8).Value = prixvente
MsgBox "Enregistrement dans la liste"
response = MsgBox("Nouvel saisie?", _
vbYesNo)
If response = vbYes Then
gencode = ""
reference = ""
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
Je suis débutant et je galère!!!!
la saisie fonctionne mais il y a un message d erreur de format
A L'AIDE!!!
Private Sub valider_Click()
Dim LastRow As Object
Set LastRow = liste.Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = gencode
LastRow.Offset(1, 1).Value = reference
LastRow.Offset(1, 2).Value = designation
LastRow.Offset(1, 3).Value = prixachat
LastRow.Offset(1, 4).Value = taille
LastRow.Offset(1, 5).Value = couleur
LastRow.Offset(1, 6).Value = marque
LastRow.Offset(1, 7).Value = quantite
LastRow.Offset(1, 8).Value = prixvente
MsgBox "Enregistrement dans la liste"
response = MsgBox("Nouvel saisie?", _
vbYesNo)
If response = vbYes Then
gencode = ""
reference = ""
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