Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Listbox alimentée par Combobox

E

eric72

XLDnaute Accro
Bonjour à tous,
J'ai récupéré un code grâce aux nombreuses vidéos proposées, j'ai donc crée un userform pour modifier un "produit" dans lequel j'ai mis un listbox qui s'alimente à l'ouverture, mais j'aimerais pouvoir l'alimenter lorsque je choisis un fournisseur dans ma combobox, et là JE BLOQUE.
Quelqu'un aurait il une solution à me proposer( je suis pas top en vba).
Merci d'avance pour votre dévouement.
Eric
 

Pièces jointes

  • Gestion Fournisseurs, Produits et Prestations test .xlsm
    276 KB · Affichages: 17
Trier par date Trier par votes
D

danielco

XLDnaute Accro
OK. Ajoute cette macro dans le userform :

VB: 
Private Sub CbFournisseur_Change()
  Me.ListView1.ListItems.Clear
  derligne = Feuil3.Cells(Rows.Count, 3).End(xlUp).Row
 
  For i = 2 To derligne
 
      Critere = Feuil3.Cells(i, 12)
      Select Case Critere
 
          Case Is <> ""
              Couleur = RGB(255, 0, 0)
          Case Is = ""
              Couleur = RGB(0, 0, 0)
 
      End Select
        If Feuil3.Cells(i, 3) = Me.CbFournisseur.Value Then
          Set Item = ListView1.ListItems.Add(Text:=Feuil3.Cells(i, 1))
          Item.ForeColor = Couleur
          Item.SubItems(1) = Feuil3.Cells(i, 2)
          Item.ListSubItems(1).ForeColor = Couleur
          Item.SubItems(2) = Feuil3.Cells(i, 3)
          Item.ListSubItems(2).ForeColor = Couleur
          Item.SubItems(3) = Feuil3.Cells(i, 4)
          Item.ListSubItems(3).ForeColor = Couleur
          Item.SubItems(4) = Feuil3.Cells(i, 5)
          Item.ListSubItems(4).ForeColor = Couleur
          Item.SubItems(5) = Format(Feuil3.Cells(i, 6), "0Kg")
          Item.ListSubItems(5).ForeColor = Couleur
          Item.SubItems(6) = Format(Feuil3.Cells(i, 7), "# ##0.00 €")
          Item.ListSubItems(6).ForeColor = Couleur
          Item.SubItems(7) = Feuil3.Cells(i, 8)
          Item.ListSubItems(7).ForeColor = Couleur
          Item.SubItems(8) = Format(Feuil3.Cells(i, 9), "0Kg")
          Item.ListSubItems(8).ForeColor = Couleur
          Item.SubItems(9) = Feuil3.Cells(i, 10)
          Item.ListSubItems(9).ForeColor = Couleur
          Item.SubItems(10) = Feuil3.Cells(i, 11)
          Item.ListSubItems(10).ForeColor = Couleur
          Item.SubItems(11) = Format(Feuil3.Cells(i, 12), """Commander")
          Item.ListSubItems(11).ForeColor = Couleur
        End If
      Next
End Sub

Daniel
 
Vote positif 0 Vote négatif
D

danielco

XLDnaute Accro
Remplace le code que e t'ai fourni par :

VB: 
Private Sub CbFournisseur_Change()
  Dim Ctr
  Me.ListView1.ListItems.Clear
  derligne = Feuil3.Cells(Rows.Count, 3).End(xlUp).Row
  Ctr = 0
  For i = 2 To derligne
 
      Critere = Feuil3.Cells(i, 12)
      Select Case Critere
 
          Case Is <> ""
              Couleur = RGB(255, 0, 0)
          Case Is = ""
              Couleur = RGB(0, 0, 0)
 
      End Select
        If Feuil3.Cells(i, 3) = Me.CbFournisseur.Value Then
          Ctr = Ctr + Feuil3.Cells(i, 10)
          Set Item = ListView1.ListItems.Add(Text:=Feuil3.Cells(i, 1))
          Item.ForeColor = Couleur
          Item.SubItems(1) = Feuil3.Cells(i, 2)
          Item.ListSubItems(1).ForeColor = Couleur
          Item.SubItems(2) = Feuil3.Cells(i, 3)
          Item.ListSubItems(2).ForeColor = Couleur
          Item.SubItems(3) = Feuil3.Cells(i, 4)
          Item.ListSubItems(3).ForeColor = Couleur
          Item.SubItems(4) = Feuil3.Cells(i, 5)
          Item.ListSubItems(4).ForeColor = Couleur
          Item.SubItems(5) = Format(Feuil3.Cells(i, 6), "0Kg")
          Item.ListSubItems(5).ForeColor = Couleur
          Item.SubItems(6) = Format(Feuil3.Cells(i, 7), "# ##0.00 €")
          Item.ListSubItems(6).ForeColor = Couleur
          Item.SubItems(7) = Feuil3.Cells(i, 8)
          Item.ListSubItems(7).ForeColor = Couleur
          Item.SubItems(8) = Format(Feuil3.Cells(i, 9), "0Kg")
          Item.ListSubItems(8).ForeColor = Couleur
          Item.SubItems(9) = Feuil3.Cells(i, 10)
          Item.ListSubItems(9).ForeColor = Couleur
          Item.SubItems(10) = Feuil3.Cells(i, 11)
          Item.ListSubItems(10).ForeColor = Couleur
          Item.SubItems(11) = Format(Feuil3.Cells(i, 12), """Commander")
          Item.ListSubItems(11).ForeColor = Couleur
        End If
      Next
      Me.TxtValStock.Text = Ctr
End Sub

Daniel
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Super le seul petit hic c'est qu'à l'initialize du USF il ne met pas le total de l'ensemble du stock (oui je sais je suis un peu un boulet) hi hi!!!
Merci et après je vous laisse tranquille pour diner
Eric
 
Vote positif 0 Vote négatif
D

danielco

XLDnaute Accro
Remplace la macro Actualisation par celle-ci :

VB: 
Private Sub Actualisation()


    Dim Item As ListItem
    Dim derligne As Integer
    Dim i As Integer
    Dim Couleur As Variant
    Dim Critere As Variant
    Dim Ctr As Double
    ListView1.ListItems.Clear
    derligne = Feuil3.Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 2 To derligne
    
        Critere = Feuil3.Cells(i, 12)
        Select Case Critere
    
            Case Is <> ""
                Couleur = RGB(255, 0, 0)
            Case Is = ""
                Couleur = RGB(0, 0, 0)
    
        End Select
            Ctr = Ctr + Feuil3.Cells(i, 10)
            Set Item = ListView1.ListItems.Add(Text:=Feuil3.Cells(i, 1))
            Item.ForeColor = Couleur
            Item.SubItems(1) = Feuil3.Cells(i, 2)
            Item.ListSubItems(1).ForeColor = Couleur
            Item.SubItems(2) = Feuil3.Cells(i, 3)
            Item.ListSubItems(2).ForeColor = Couleur
            Item.SubItems(3) = Feuil3.Cells(i, 4)
            Item.ListSubItems(3).ForeColor = Couleur
            Item.SubItems(4) = Feuil3.Cells(i, 5)
            Item.ListSubItems(4).ForeColor = Couleur
            Item.SubItems(5) = Format(Feuil3.Cells(i, 6), "0Kg")
            Item.ListSubItems(5).ForeColor = Couleur
            Item.SubItems(6) = Format(Feuil3.Cells(i, 7), "# ##0.00 €")
            Item.ListSubItems(6).ForeColor = Couleur
            Item.SubItems(7) = Feuil3.Cells(i, 8)
            Item.ListSubItems(7).ForeColor = Couleur
            Item.SubItems(8) = Format(Feuil3.Cells(i, 9), "0Kg")
            Item.ListSubItems(8).ForeColor = Couleur
            Item.SubItems(9) = Feuil3.Cells(i, 10)
            Item.ListSubItems(9).ForeColor = Couleur
            Item.SubItems(10) = Feuil3.Cells(i, 11)
            Item.ListSubItems(10).ForeColor = Couleur
            Item.SubItems(11) = Format(Feuil3.Cells(i, 12), """Commander")
            Item.ListSubItems(11).ForeColor = Couleur
        Next
        Me.TxtValStock.Text = Ctr
    
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
738
franxy
F
P
  • Question
Microsoft 365 ComboBox en cascades Liés
2
Réponses
28
Affichages
1 K
Piment
P
J
  • Question
XL 2016 Trier des dates dans un ComboBox
Réponses
11
Affichages
449
jeff2318
J
E
  • Résolu(e)
Microsoft 365 Archivage a partir de Userform
2 3 4
Réponses
48
Affichages
3 K
ChTi160
K
  • Question
Microsoft 365 Alimenter la listbox à partir d'une sélection dans la combobox
Réponses
11
Affichages
827
KinJus
K
M
  • Question
Formulaires & vba
Réponses
5
Affichages
937
cp4
D
  • Question
Autres Affichage listbox
Réponses
3
Affichages
405
DIAMANTVERT
D
E
  • Résolu(e)
Microsoft 365 Remplir LISTBOX avec Mois et Année
Réponses
11
Affichages
982
eric72
E
E
  • Résolu(e)
Microsoft 365 Filtre Listbox avec Combobox
2
Réponses
15
Affichages
2 K
eric72
E
O
  • Question
XL 2016 Vba- listbox-format champs userform
Réponses
11
Affichages
1 K
OtsoHW
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…