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

maval · 2 Juin 2015

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 · 2 Juin 2015

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 · 2 Juin 2015

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 :

Code:

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 · 2 Juin 2015

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

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

maval

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

Pièces jointes

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

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

maval

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

Pièces jointes

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency