XL 2016 Gros basard dans la recuperation de mes données listbox

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #2

Bonsoir RoyalP, bonsoir le forum,

J'ai modifié ton code. Remplace UserForm_Activate et TextBox1_Change par :

VB:

Private OD As Worksheet
Private TV As Variant
Private NL As Integer

Private Sub UserForm_Initialize()
Me.lblfch = Date
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "60 pt;60 pt;40 pt;185 pt;30 pt;40 pt ;50 pt ;50pt ;50pt ;50pt"
End With
Set OD = Worksheets("DEVIS")
TV = OD.Range("A1").CurrentRegion
NL = UBound(TV, 1)
End Sub

Private Sub TextBox1_Change()
Dim Total As Double

OD.Visible = True
OD.Activate
Me.ListBox1.Clear
If Me.TextBox1.Value = "" Then Exit Sub
For I = 2 To NL
    If InStr(1, OD.Cells(I, 2), Me.TextBox1.Value, vbTextCompare) > 0 Then
        With Me.ListBox1
            .AddItem
            For J = 1 To 10
                .Column(J - 1, .ListCount - 1) = OD.Cells(I, J)
                If J = 6 Then Total = Total + .Column(J - 1, .ListCount - 1)
            Next J
            
        End With
    End If
Next I
TextBox2.Value = Me.ListBox1.ListCount
Me.TextBox3 = Total
End Sub

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 29 Août 2019

• #3

NICKEL ROBERT, merci pour ton aide, maintenant il faut que je trouve comment faire pour qu'il m'affiche tous les produits si un devis comporte plusieurs produits.
En tout cas merci.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #4

Re,

Il faut stocker le numéro de ligne dans la ListBox1 si tu veux pouvoir afficher plusieurs produits dans recap_devis_fact. Cela implique de supprimer une colonne de la ListBox1 dans consuldevis. Quelle serait la colonne qui pourrait être supprimée ?

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 29 Août 2019

• #5

total ht, vu que je le calcul séparément
je joint mon fichier légèrement modifié
j'avais commencé mais j’étais dans le faux

merci de ton aide

 

Pièces jointes

• Classeur1_devis.xlsm

  42.2 KB · Affichages: 8

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #6

Re,

Je ne sais pas à quoi correspondent certains champs de la seconde UserForm, donc...
En pièce jointe la version 01...

 

Pièces jointes

• RoyalP_XD_v01.xlsm

  46.5 KB · Affichages: 9

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 29 Août 2019

• #7

ALORS LA JE DIT BRAVO, merci infiniment , je vais pouvoir finir mon petit utilitaire.
Merci encore de ton aide super precieuse.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Août 2019

• #8

bonjour a tous Robert pourquoi supprimer une colonne ????
perso je les met toutes (les 12) sans problème
je règle même les columnwidth calqué sur la plage
ainsi que les labels d’Entêtes d'ailleurs
regardez la derniere colonne

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #9

Re,

Oui ça marche si la ListBox est alimentée avec la propriété RowSource que je n'utilise jamais car elle m'a déjà fait galérer grave...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Août 2019

• #10

Perdu!!!! Robert c'est pas propriété rowsource meme si en effet il y a la dedans une histore de range
je la donne l'astuce comme ca on en parle plus tout le monde saura
a ben ça alors

VB:

Private Sub UserForm_Activate()

    With ListBox1
        .ColumnCount = 15
        '--------------------------------------------------
        ' !!!!!!C EST CA L ASTUCE!!!!!!!!!on la renplie avec une ligne de cellule(15 colonne) et on la clear
        .List = Range("A1").Resize(1, .ColumnCount).Value: .Clear
        '--------------------------------------------------

        'elle est maintenant dimentionné a 15 colonne et valide pour 15 colonnes  MEME!!!!!! si elle est vide !!!!!!!!!!!!

        'maintenant on (((peut)))!!! la remplir normalement avec 2 boucles ligne/colonnes )imbriquées

        For i = 0 To 10
            .AddItem ""
            For c = 0 To 14
                .List(i, c) = "Ligne" & i + 1 & " Col" & c + 1
            Next
        Next
    End With



End Sub

Wagadougou!!!
EN GROS C'EST ROWSOURCE SANS ROWSOURCE ET DONC SANS SES INCONVENANTS

 

Dernière édition: 29 Août 2019

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #11

Re,

Excellent Patrick !... Je le réutiliserai, sûr...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Août 2019

• #12

je l'ai mis dans les astuces

plus de 10 colonnes dans une listebox sans utiliser la propriété rowsource

bonjour a tous je l'ai donné sur le forum excel mais je met cette astuce ici aussi l'avantage de la propriété rowsource d'une listbox c'est que l'on peut avoir plus de 10 colonnes le désavantage c'est que la liste est immodifiable et elle nous ajoute les entete je vous propose les avantages...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 29 Août 2019

• #13

Double merci a vous deux, je met ça de coté ça va servir

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 29 Août 2019

• #14

Re,

Du coup, grâce à Patrick, une version 02 full columns...

 

Pièces jointes

• RoyalP_XD_v02.xlsm

  44.6 KB · Affichages: 12

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 29 Août 2019

• #15

merci robert, y'a juste un petit bug si tu sélectionne par exemple le devis 1002 et que tu sélectionne le deuxième article dans le devis il y a un décalage quand tu click sur consulter. La qts est déplacé en dessous de là ou elle devrait etre.

 

Vote positif 0 Vote négatif