Microsoft 365 Item dans USERFORM

[eric72]

Bonjour à tous,
J'ai crée un Userform avec une listbox pour afficher mes devis, mais seul la date s'affiche dans la listbox et je ne comprends pas ou est l'erreur.
Cela concerne l'onglet "Prestations".
Y a t il mon sauveur parmi vous?
Merci pour votre aide
Eric

 

[eric72]

Bonjour,
Oula je n'avais pas vu ces dernières réponses, excusez moi, je vais faire le tri dans tout cela et je reviens vous dire si tout se passe bien.
Merci à tous
Eric

 

[eric72]

Bonjour Patrick TOULON,
J'ai tenu compte de vos modifications, cependant j'ai ajouté des éléments histoire de bien se compliquer la vie.
Lorsque j'ajoute la ligne, seul la quantité se remet à 0 dans la textbox et pas la désignation, de plus le prix de vente total n'a pas de décimal, avez vous une petite idée de la nouvelle boulette que j'ai faite.
Merci beaucoup
Eric

 

[eric72]

j'ai oublié la pièce jointe, désolé

 

[ChTi160]

Bonsoir eric
Bonsoir le Fil (Coucou particulier à Patrick) ,le Forum
Un fichier perfectible !
Je n'ai travaillé que sur le Userform "UsfPrepaDevis"
alimentation du Combobox des désignations , saisie etc
Pas sur l'enregistrement du Devis (Li
jean marie

 

[eric72]

Bonjour,
C'est juste génial, par contre j'ai juste oublié d'ajouter la T.V.A (à 10 ou 20%) selon les cas, avez vous une solution pour cela?
Merci beaucoup pour le bon boulot, un vrai pro!!!
Eric

 

[eric72]

Est ce normal, quand on exporte dans la feuille que les nombres se retrouvent en format texte?
Je suis vraiment un boulet!!!

 

[patricktoulon]

re
ta cellule=cdbl(tontextbox)
et non ceci
tacellule=tontextbox

 

[eric72]

Comme cela "Me.LstItem.List(NbItem, 5) = CDbl(Me.TxtPrixAchatUnite)"?

 

[ChTi160]

RE
un autre fichier
jean marie

 

[eric72]

bonjour
je regarde tout ça dès demain et je vous tiens au courant.

1000 MERCIS pour le travail accompli
Eric

 

[eric72]

Bonjour,

Après avoir fait le tri dans tout cela ça fonctionne nickel, le seul petit souci c'est que lorsque je valide la listbox pour l'exporter dans l'onglet "prepa devis", ma date se met en nombre , exemple 01/04/2021 devient 44200 dans le prepa devis!!!
pour le reste c'est super.
Merci beaucoup
eric

 

[ChTi160]

Bonjour eric
il te suffit de formater cette date lors du transfert !

Cells(x , y)= Format(madate ,"dd/mm/yyyy")
'madate étant la valeur de la ListBox qui correspond à la date!

ou tu formates ta colonne des dates au bon format!
"jj/mm/aaaa"
jean marie

 

[eric72]

je dois mettre le code dans la macro liée au bouton d'exportation?
je vous joins le fichier pour savoir ou le mettre, cela concerne le UsfPrepaDevis
Merci d'avance
eric

 

[ChTi160]

Re
après avoir formaté la Colonnes des dates en Format Date "jj/mm/aaaa"
j'ai modifié la procédure ainsi

Private Sub BtnSauvegarder_Click()
Dim Matable As Variant
Dim NLigne As Integer
Dim NColonne As Integer
Dim Ws As Worksheet
Dim Derlgn As Long
Dim L As Integer
Set Ws = Feuil8
  'On complète la source de données
   With Me
     With .LstItem 'avec la Listbox
      If .ListCount = 0 Then Exit Sub 'on quitte si pas de lignes dans la ListBox 
                For L = 0 To .ListCount - 1 'pour chaque ligne de la ListBox
                 Derlgn = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row + 1 'on récupére la premiere Ligne vide de la feuille en partant du bas
                             Ws.Cells(Derlgn, 1) = Format(Trim(.List(L, 0)), "dd/mm/yyyy")'<--- ICI Date
                             Ws.Cells(Derlgn, 2) = .List(L, 1)        'NumDevis
                             Ws.Cells(Derlgn, 3) = .List(L, 2)        'NomClient
                             Ws.Cells(Derlgn, 4) = .List(L, 3)        'Designation
                             Ws.Cells(Derlgn, 5) = CInt(.List(L, 4))  'Qte
                             Ws.Cells(Derlgn, 6) = CCur(.List(L, 5))  'PrixAchatUnite
                             Ws.Cells(Derlgn, 7) = .List(L, 6)        'Marge
                             Ws.Cells(Derlgn, 8) = CCur(.List(L, 7))  ' PrixVenteUnite
                             Ws.Cells(Derlgn, 9) = CCur(.List(L, 8))  'PrixVenteTotal
                Next L
                .Clear
     End With
     'on vide les controls
                 .CmbBDesignation.ListIndex = -1
                 .TxtQte.Value = "0"
                 .TxtPrixAchatUnite = "0,00"
                 .TxtMarge = 0
                 .TxtPrixVenteUnite = "0,00"
                 .TxtPrixVenteTotal = "0,00"
                 .TxtB_Commande = "0,00"
   End With  
   Ws.Cells(8, 13) = Ws.Cells(8, 13) + 1    
    Unload Me    
End Sub

Bonne journée
jan marie

 

[eric72]

Est ce que cela vous ennuie de me renvoyer le fichier modifié car chez moi ca ne marche pas quand je recopie votre code, sans vouloir abuser de votre bonne volonté, désolé mais pas très doué!!!
merci
Eric