gestion affiche de cinema

valetph · 3 Février 2012

Bonjour,

Voila mon petit probleme. J'ai recuperé un fichier qui permettait de gerer une videotheque et je l'ai transformé pour gerer des affiches de cinema. Sur mon exemple j'ai deux onglets de recherche soit par le titre soit par les acteurs et je voudrais pouvoir faire la meme chose pour les realisateurs. La recherche est realiser par une macro, et je ne sais pas comment faire. Merci de votre aide.

jp14 · 4 Février 2012

Re : gestion affiche de cinema

Bonsoir et bienvenue sur le forum

Ci dessous le code qui devrait répondre à la question. J'ai repris le code existant.
J'ai rajouté un code pour supprimer les anciens textes.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macros par Claude Dubois pour "Excel-Pratique" le 03/02/2010
If flag Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    '--- Lancer fonction "filtrage" si un critère est modifié
    If Not Application.Intersect(Target, Range("b8:h8")) Is Nothing Then
        Call filtrage
    End If
    '--- recherche dans Titre
    If Not Application.Intersect(Target, Range("b6")) Is Nothing Then
        If Target <> "" Then
            Range("b8") = "*" & Target
            flag = True
            Range("f6") = ""
            Range("g6") = ""
            flag = False
        Else
            Range("b8").ClearContents
        End If
    End If
    '--- recherche dans Acteurs
    If Not Application.Intersect(Target, Range("f6")) Is Nothing Then
        If Target <> "" Then
            Range("f8") = "*" & Target
            flag = True
            Range("b6") = ""
            Range("g6") = ""
            flag = False
        Else
            Range("f8").ClearContents
        End If
    End If
   '--- recherche dans Réalisateurs
  If Not Application.Intersect(Target, Range("g6")) Is Nothing Then
        If Target <> "" Then
            Range("g8") = "*" & Target
            flag = True
            Range("f6") = ""
            Range("b6") = ""
            flag = False
        Else
            Range("g8").ClearContents
        End If
    End If
   
    
End Sub

A tester

JP

gestion affiche de cinema

valetph

Guest

Pièces jointes

jp14

XLDnaute Barbatruc

Discussions similaires

gestion affiche de cinema

valetph

Guest

Pièces jointes

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency