Vidéothéque

Le
Jean Berti
Bonsoir à tout le forum

Je souhaiterai faire une videothèque
Feuille1
En A le classement(1,2,3 ect.)
En B le titre du film
En C l'année de sortie
En D le genre
En F les comédiens (3 noms par film)
Comment en VBA en feuille 2 A1 en mettant 1 nom d'acteur
récupérer ses fims en colonne B

Merci d'avance de vos lumières
Jean
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pascal
Le #4248831
Bonjour Jean,
Sans VBA et avec un tableau croisé dynamique, on fait de petites merveilles.
Pascal

"Jean Berti"
Bonsoir à tout le forum

Je souhaiterai faire une videothèque
Feuille1
En A le classement(1,2,3 ect....)
En B le titre du film
En C l'année de sortie
En D le genre
En F les comédiens (3 noms par film)
Comment en VBA en feuille 2 A1 en mettant 1 nom d'acteur
récupérer ses fims en colonne B

Merci d'avance de vos lumières
Jean




---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 07:32:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 07:37:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

JB
Le #4248791
Bonjour,

Sub Extrait()
[I2] = "*" & InputBox("Acteur?") & "*"
Sheets("BD").[A1:F1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[I1:I2], CopyToRange:=[A1:F1]
End Sub

http://cjoint.com/?dqij0QHvCU

JB
On 16 mar, 04:50, "Jean Berti"
Bonsoir à tout le forum

Je souhaiterai faire une videothèque
Feuille1
En A le classement(1,2,3 ect....)
En B le titre du film
En C l'année de sortie
En D le genre
En F les comédiens (3 noms par film)
Comment en VBA en feuille 2 A1 en mettant 1 nom d'acteur
récupérer ses fims en colonne B

Merci d'avance de vos lumières
Jean


Jean Berti
Le #4325811
Merci JB
Fonctionne très bien avec acteurs, mais si je fais comédie ou
2006-----erreur
Comment faire?

Merci encore
Jean
"JB"
Bonjour,

Sub Extrait()
[I2] = "*" & InputBox("Acteur?") & "*"
Sheets("BD").[A1:F1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[I1:I2], CopyToRange:=[A1:F1]
End Sub

http://cjoint.com/?dqij0QHvCU

JB
On 16 mar, 04:50, "Jean Berti"
Bonsoir à tout le forum

Je souhaiterai faire une videothèque
Feuille1
En A le classement(1,2,3 ect....)
En B le titre du film
En C l'année de sortie
En D le genre
En F les comédiens (3 noms par film)
Comment en VBA en feuille 2 A1 en mettant 1 nom d'acteur
récupérer ses fims en colonne B

Merci d'avance de vos lumières
Jean


Publicité
Poster une réponse
Anonyme