Message me signalant qu'il n'y a aucun film répertorier dans cette catégorie

[maval]

Bonjour

Je recherche à modifier mon code que si dans la catégorie rechercher, il se trouve aucune valeur, un message me signalant qu'il n'y a aucun film répertorier dans cette catégorie.

Je vous remercie d'avance

 

[Paritec]

Re : Message me signalant qu'il n'y a aucun film répertorier dans cette catégorie

Bonjour Max le forum
ton fichier en retour
a+
Papou

Edit: Bonjour Pierrot

 

[Pierrot93]

Re : Message me signalant qu'il n'y a aucun film répertorier dans cette catégorie

Bonjour,

modifie le code du module de classe comme suit :

Option Explicit
Public WithEvents LB As MSForms.Label
Private Sub LB_Click()
Dim r As Range
Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
If Application.CountA(r.EntireColumn) = 1 Then MsgBox "pas de film...": Exit Sub
Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
With LB.Parent.Parent
  .ListBox1.List = r.Value
  .ListBox1.Visible = True
  .Frame1.Visible = False
End With
End Sub

bonne journée
@+

Edition : bonjour Papou

 

[maval]

Re : Message me signalant qu'il n'y a aucun film répertorier dans cette catégorie

Bonjour Papou, Pierrot

Je vous remercie cela est Nickel

Bonne journée