Incomptabilité de types
Bonjour
j'ai un problème avec les userforms , j'ai une petite application pour la classification des fournisseurs
le problème c'est lorsque j'entre un fournisseur avec le userform et je fais le calcul il m'affiche un message d'incomptabilité de types alors lorsque j'entre le fournisseur manuellement (sans userform) il y aura pas de problèmes
ci joint le fichier (on entre le fournisseur avec le bouton à gauche (entrer un fournisseur) et on fait le calcul avec le bouton (mesure de facteurs objectifs)
S'il vous plait j'ai vraiment besoin d'aide pour mon PFE
Merciii d'avance
bonjour,
essaie ceci.
Private Sub Commandajouter_Click()
'procédure permettant d'ajouter un nouvel enregistrement
Sheets("fournisseur").Activate
Range("A3").Select
'Selection.End(xlDown).Select
Range("A" & Rows.Count).End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveCell = Textnom.Value
ActiveCell.Offset(0, 1).Value = Textmatricule
ActiveCell.Offset(0, 2).Value = CDbl(Replace(Textprix, ",", "."))
ActiveCell.Offset(0, 3).Value = CDbl(Replace(Textlot, ",", "."))
ActiveCell.Offset(0, 4).Value = CDbl(Replace(Textlivraison, ",", "."))
ActiveCell.Offset(0, 5).Value = CDbl(Replace(Textpaiement, ",", "."))
MsgBox "le fournisseur est ajouté"
Unload Me
End Subj'ai essayé ça
le problème persiste, seules le nom et le matricule s'ajoutent, les autres variables non et il m'affiche toujours un problème d’incomparabilité de types
Bonjour,
Essaie ainsi :
'procédure permettant d'ajouter un nouvel enregistrement
Private Sub Commandajouter_Click()
Dim ws As Worksheet, rw As Long, arr(5) As Variant
arr(0) = Textnom.Value
arr(1) = Textmatricule
arr(2) = Textprix
arr(3) = Textlot
arr(4) = Textlivraison
arr(5) = Textpaiement
Set ws = Worksheets("fournisseur")
With ws
rw = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(rw + 1, 1).Resize(, 6).Value = arr
End With
MsgBox "le fournisseur est ajout?"
Unload Me
End Sub