Nombre de lignes dans une 2ème ComboBox

Bonjour,

Pouvez-vous m'aider?

J'ai 2 combobox:

ComboBox0 = Catégorie

ComboBox1 = Expression

J'aimerais avoir la quantité de lignes se trouvant dans la Combobox1?

ci-joint le fichier

Parfois j'ai plus de 100 fiches par expression et il m'est difficile de savoir si j'ai bien tout saisie.

Merci

cordialement

Geoffroy

Bonsoir Ge0ffreoy

Au changement de la 1ère combo

Private Sub ComboBox0_Change()
  If Me.ComboBox0.ListIndex < 0 Then Exit Sub
  With BASE            ' une catégorie est choisie
    Me.ComboBox1.RowSource = ""
    Me.ComboBox1.Clear      ' combo vidé
    For lig = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
      If .Cells(lig, 2) = Me.ComboBox0 Then
        ' combo avec catégorie choisie
        Me.ComboBox1.AddItem .Cells(lig, 1)
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = .Cells(lig, 2)
      End If
    Next lig
  End With
  ' Ici
  Me.TextBox1.Value = Me.ComboBox1.ListCount
End Sub

A+

Bonjour

Merci beaucoup c'est exactement ça

Cette ligne m'a donné des maux de tête car je n'arrivais pas à trouver

bonne journée

Geoffroy

Bonjour BrunoM45,

J'ai une macro qui insére une image dans une userform (voir fichier ci-dessus).
J'aimerais y ajouter une vidéo d'une dizaine de secondes correspondant au même nom que l'image à côté de cette derrière.
Est-ce possible?

(Avec les exemples dans le forum, je ne suis pas arrivé à lire la vidéo en mpg).

Merci
Geoffroy

bonjour,

c'est ok, j'ai trouvé

Private Sub ComboBox1_Change()
........
    Fichier = ActiveWorkbook.Path & "\catégories\" & cat & "\" & nom & ".jpg"
        Me.Image1.Picture = LoadPicture(Fichier)
        Me.TextBox1.Value = Me.ComboBox1.ListCount ' nombre d'image
        ' ***********************************
                fichier22 = ActiveWorkbook.Path & "\catégories\58-Vidéos\" & nom & ".mpg" 'vidéo correspondant à l'image
                Me.WindowsMediaPlayer1.URL = fichier22
                WindowsMediaPlayer1.Controls.Play
     '**********************************

......
End Sub

merci

@bientôt