XL 2013 Code VBA pour l'affichage des données sur un ListBox

[Joseph Haroun]

Bonjour ! Bonsoir !
Je voudrais afficher mes données sur une Liste boxe par un code VBA. Mais mon Code VBA (voir fichier attaché) n'arrive pas à afficher que la première colonne.
Quelqu'un pourquoi et corriger ce code VBA ? Merci d'avance !

 

[BOISGONTIER]

Bonsoir,

Modifier la propriété ColumnCount

Boisgontier

 

[mapomme]

Bonsoir @Yusufu ibn Anurahi ,

Essayez ceci :

Private Sub ComboBox1_Change()
  PeuplerListbox ComboBox1.Text
End Sub

Private Sub UserForm_Initialize()
  Me.Label3.Caption = Date
  Me.ComboBox1 = "Choisir un type de client ..."
  Me.ComboBox1.List = Array("*", "Créancier", "Débiteur")
  PeuplerListbox
End Sub

Sub PeuplerListbox(Optional Critere)
Dim t, i&, n&, som&, crit, v
ListBox1.Clear: TextBox1 =""
ListBox1.ColumnCount = 5
With Feuil1
  t = .Range("a2:e" & .Cells(.Rows.Count, "a").End(xlUp).Row)
  If IsMissing(Critere) Then crit = "*" Else crit = Critere
  For i = 1 To UBound(t)
    If t(i, 3) Like crit Then
      som = som + t(i, 5)
      n = n + 1
    End If
  Next i
  If n > 0 Then
    ReDim v(1 To n, 1 To UBound(t, 2))
    n = 0
    For i = 1 To UBound(t)
      If t(i, 3) Like crit Then
        n = n + 1
        For j = 1 To UBound(t, 2): v(n, j) = t(i, j): Next
      End If
    Next i
    ListBox1.List = v
    TextBox1 = Format(som, "#, ##")
  End If
End With
End Sub

 

[Joseph Haroun]

Bonsoir @Yusufu ibn Anurahi ,

Essayez ceci :

Private Sub ComboBox1_Change()
  PeuplerListbox ComboBox1.Text
End Sub

Private Sub UserForm_Initialize()
  Me.Label3.Caption = Date
  Me.ComboBox1 = "Choisir un type de client ..."
  Me.ComboBox1.List = Array("*", "Créancier", "Débiteur")
  PeuplerListbox
End Sub

Sub PeuplerListbox(Optional Critere)
Dim t, i&, n&, som&, crit, v
ListBox1.Clear: TextBox1 =""
ListBox1.ColumnCount = 5
With Feuil1
  t = .Range("a2:e" & .Cells(.Rows.Count, "a").End(xlUp).Row)
  If IsMissing(Critere) Then crit = "*" Else crit = Critere
  For i = 1 To UBound(t)
    If t(i, 3) Like crit Then
      som = som + t(i, 5)
      n = n + 1
    End If
  Next i
  If n > 0 Then
    ReDim v(1 To n, 1 To UBound(t, 2))
    n = 0
    For i = 1 To UBound(t)
      If t(i, 3) Like crit Then
        n = n + 1
        For j = 1 To UBound(t, 2): v(n, j) = t(i, j): Next
      End If
    Next i
    ListBox1.List = v
    TextBox1 = Format(som, "#, ##")
  End If
End With
End Sub

Merci beaucoup, ma pomme pour ta prompte réaction et ta proposition de solution. Je vais l'essayer et te faire un feedback.
mais je souhais savoir quel était le problème avec mon code.

 

[mapomme]

mais je souhais savoir quel était le problème avec mon code.

La raison est celle donnée par @BOISGONTIER (que je salue 🙂). Il faut indiquer combien de colonnes doit comporter ListBox1 soit dans ses propriétés initiales soit via le code.

 

[Joseph Haroun]

Mer

Bonsoir,

Modifier la propriété ColumnCount

Boisgontier

Merci beaucoup, Boisgontier !
Tu es génial. C'était là mon problème. Encore merci pour l'orientation !