Microsoft 365 Item dans USERFORM

eric72 · 29 Mars 2021

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

Compte Supprimé 979 · 29 Mars 2021

Bonjour Eric72

Le problème est juste là, puisque la propriété n'est pas définie dans le code

roro69 · 29 Mars 2021

Bonjour peut être en rajoutant ceci dans le sub de ton bouton ajoute:

VB:

With LstItem
    .Clear
    .ColumnCount = 7
    .ColumnWidths = "100;200;100;100;50;50;50"
   End With

JM27 · 29 Mars 2021

bonjour regardes dans les propriété de la lisbox
column count
attention il y a d'autre erreurs (si txt quantité n'est pas documenté)

patricktoulon · 29 Mars 2021

Bonjour
il faudrait déjà mettre ta listbox a 7 colonnes pour que ça marche

de plus
ceci génère une erreur si txtQte est vide
Me.LstItem.List(NbItem, 6) = Me.TxtPrixVenteUnitaire * Me.TxtQte 'On charge le prix vente total dans la liste
perso je met TxtQte à 1 en dur tu le change si besoins comme ça pas de soucis

de plus
tu n'a pas prévu de changer d'avis et donc pouvoir supprimer une ligne dans la listbox

de plus
tu n'a pas prévu d'arranger le coloumnwidths de la listbox
une listbox de 3 kilomètre de large pour au final 6 donnée

de plus
si tu oubli de choisir le nom ça envoie quand même dans la liste box

bon tout ca vu ca donne ceci

eric72 · 29 Mars 2021

BrunoM45 à dit:
Bonjour Eric72

Le problème est juste là, puisque la propriété n'est pas définie dans le code
Regarde la pièce jointe 1100383

Merci pour

BrunoM45 à dit:
Bonjour Eric72

Le problème est juste là, puisque la propriété n'est pas définie dans le code
Regarde la pièce jointe 1100383

eric72 · 29 Mars 2021

Merci pour vos nombreuse réponses mais comment puis définir la propriété de la columncount, je ne comprends pas, pas très doué le gars, c'est la 1ère fois que j'utilise cela!!!

JM27 · 29 Mars 2021

clic de droit sur l'objet( userform non activé , en mode développement)
et tu auras la fenêtre propriété de celui ci

eric72 · 29 Mars 2021

Ah ok je viens de comprendre, ca y est ça marche

Merci beaucoup à vous tous pour ces précieux conseils
Eric

eric72 · 29 Mars 2021

Sans vouloir abuser de votre gentillesse, comment je peux effacer les données des 4 derniers indicateurs après l'ajout de chaque nouvelle ligne, cela afin de repartir sur la saisie d'une nouvelle ligne

JM27 · 29 Mars 2021

bonsoir
on voudrait bien t'aider mais ta question est incompréhensible pour moi.
Dans quelle saisie ? , quel userform ?
Quelles sont les données à supprimer ? et ou ?
en fait rien n'est clair.

patricktoulon · 29 Mars 2021

re
je crois y avoir répondu dans le post #5 et même rajouter le bouton pour le faire

JM27 · 29 Mars 2021

Ah bon tu as répondu au #10 ???

patricktoulon · 29 Mars 2021

ah autant pour moi c'est les sources
reprendre mon exemple et

VB:

' Ajout des lignes au devis
Private Sub BtnAjouter_Click()
LstItem.ColumnWidths = "50;80;70;100;50;40;40"
If CbNomClient.Value = "" Then MsgBox "choisissez un client": Exit Sub
    'Déclaration des variables
    Dim NbControles As Integer
    Dim NbItem As Integer

    'Affectation des variables
    NbControles = 6
    Me.LstItem.AddItem TxtDate: TxtDate = ""       'Date du devis
    NbItem = Me.LstItem.ListCount - 1   'on compte le nombre d'items dans la liste
    ' On charge les items dans la liste
    Me.LstItem.List(NbItem, 1) = Me.LblNumDevis: LblNumDevis = ""               'On charge le numéro dans la liste
    Me.LstItem.List(NbItem, 2) = Me.CbNomClient: CbNomClient = ""           'On charge le nom dans la liste
    Me.LstItem.List(NbItem, 3) = Me.CbDesignation: CbDesignation = ""          'On charge la désignation dans la liste
    Me.LstItem.List(NbItem, 4) = Me.TxtQte: TxtQte = ""        'On charge la quantité dans la liste
    Me.LstItem.List(NbItem, 5) = Me.TxtPrixVenteUnitaire: TxtPrixVenteUnitaire = ""               'On charge le prix vente unitaire dans la liste
    Me.LstItem.List(NbItem, 6) = Val(Me.TxtPrixVenteUnitaire) * Val(Me.TxtQte)    'On charge le prix vente total dans la liste

End Sub
Private Sub CommandButton1_Click()
If LstItem.ListIndex > -1 Then With LstItem: .RemoveItem .ListIndex: End With
End Sub

cela dit si devis avec plusieurs lignes peut etre garder le nom client plutot que de le re choisir
ça implique un effacement post production de la liste
on dénote déjà là ergonomique ment parlant une coquille conceptuelle

patricktoulon · 29 Mars 2021

re
on peut même corrigé les oublis en une seule fois en bloquant l' ajout de ligne si tout n'est pas rempli tout simplement

Code:

' Ajout des lignes au devis
Private Sub BtnAjouter_Click()
    Dim critere As Boolean
    critere = CbNomClient <> "" And CbDesignation <> "" And TxtPrixVenteUnitaire <> "" And TxtDate <> ""
    If Not critere Then MsgBox "toute les donnée ne sont pas dument remplies": Exit Sub
    LstItem.ColumnWidths = "50;80;70;100;50;40;40"
    If CbNomClient.Value = "" Then MsgBox "choisissez un client": Exit Sub
    'Déclaration des variables
    Dim NbControles As Integer
    Dim NbItem As Integer

    'Affectation des variables
    NbControles = 6
    Me.LstItem.AddItem TxtDate:    'Date du devis
    NbItem = Me.LstItem.ListCount - 1   'on compte le nombre d'items dans la liste
    ' On charge les items dans la liste
    Me.LstItem.List(NbItem, 1) = Me.LblNumDevis:    'On charge le numéro dans la liste
    Me.LstItem.List(NbItem, 2) = Me.CbNomClient:    'On charge le nom dans la liste
    Me.LstItem.List(NbItem, 3) = Me.CbDesignation:    'On charge la désignation dans la liste
    Me.LstItem.List(NbItem, 4) = Me.TxtQte:    'On charge la quantité dans la liste
    Me.LstItem.List(NbItem, 5) = Me.TxtPrixVenteUnitaire:    'On charge le prix vente unitaire dans la liste
    Me.LstItem.List(NbItem, 6) = Val(Me.TxtPrixVenteUnitaire) * Val(Me.TxtQte)    'On charge le prix vente total dans la liste

    'TxtDate = ""
    CbDesignation = ""
    'CbNomClient = ""
    'LblNumDevis = ""
    TxtQte = ""
    TxtPrixVenteUnitaire = ""
End Sub


Private Sub CommandButton1_Click()
    If LstItem.ListIndex > -1 Then With LstItem: .RemoveItem .ListIndex: End With
End Sub

Private Sub CbDesignation_Change()
'permet de faire la recherche verticale pour avoir le prix de vente unitaire de la désignation
    If CbDesignation <> "" Then Me.TxtPrixVenteUnitaire = Application.WorksheetFunction.VLookup(Me.CbDesignation, Feuil2.Range("a:j"), 10)
End Sub


' Ouverture du formulaire avec date du jour et numéro de devis automatique
Private Sub UserForm_Initialize()
    Me.TxtDate = Date
    Me.LblNumDevis = Feuil8.Range("n2")
End Sub

Microsoft 365 Item dans USERFORM

eric72

XLDnaute Accro

Pièces jointes

Compte Supprimé 979

Guest

roro69

XLDnaute Impliqué

JM27

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

eric72

XLDnaute Accro

JM27

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

JM27

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires