Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
JB m'a donné cette macro qui fonctionne trés bien avec Acteur,mais si jechoisis un autre critère comme "Comédie"????? ou Année????Merci d'avanceJeanFeuille1En A le classement(1,2,3 ect....)En B le titre du filmEn C l'année de sortieEn D le genreEn F les comédiens (3 noms par film)Sub Extrait()[I2] = "*" & InputBox("Acteur?") & "*"Sheets("BD").[A1:F1000].AdvancedFilter Action:=xlFilterCopy, _CriteriaRange:=[I1:I2], CopyToRange:=[A1:F1]End Sub
JB m'a donné cette macro qui fonctionne trés bien avec Acteur,mais si je choisis un autre critère comme "Comédie"????? ou Année???? Merci d'avance Jean 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) Sub Extrait() [I2] = "*" & InputBox("Acteur?") & "*" Sheets("BD").[A1:F1000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=[I1:I2], CopyToRange:=[A1:F1] End Sub