Macro Excel filtre a partir d'une liste

Bonjour Lermite222

Effectivement une erreur sur la feuil1, il y avait un espace.
Je te remercie pour ton aide.
J'aimerais m'améliorer en macro. J'ai parcouru 2 livres sur le sujet. Par contre je ne peux pas dire que sans les exemples donnés dans les livres je sois capable de programmer.
J'en veux pour preuve l'aide demandé.
Aurais-tu de la litérrature ou site a me conseiller pouvant m'aider à progresser sur le sujet?
J'aimerais aussi pouvoir à mon tour aider des internautes en difficultés pour le développement de programme.

Je te remercie encore de l'aide précieuse que tu m'a apporté.

A bientôt

Bonjour Lermite222,


Merci pour le lien. et ton aide.
J'ai découvert que je pouvais écrire en abrégé le défaut recherche et que le filtre fonctionnait.
Je m'explique :
Par exemple : ALARME ENCLENCHE devient =*ALARME* et j' ai toute les ALARMES
Lors de ma visite sur le forum j'ai vu dans une conversation dans lequel une personne avait une difficultée.
Son code était :
Sub RechercheNom()
NomRecherché = InputBox("RECHERCHE PAR NOM", "Saisissez le nom recherché")
Selection.AutoFilter Field:=1, Criteria1:=NomRecherché
End Sub
Il faut tapé le Nom recherché exact à moins de tapé =*le titre abrégé*
je vais retourner sur cette discution pour lui donner l'information.

Une autre question :
J'ai tenté ce code pour des dates:

Sub Macro1()

Selection.AutoFilter Field:=7, Criteria1:=Sheets("Liste").Range(">=E5"), Operator:=xlAnd _
, Criteria2:=Sheets("Liste").Range("=<F5")

End Sub

Mais cela ne fonctionne pas.
Je souhaite pouvoir lancer l'analyse entre 2 dates
J'ai tenté de mettre >= dans la cellule E5 et =< dans la cellule F5 sans succès.
Aurais-tu une solution?

Je te remercie d'avance pour tous

A bientôt

Bonjour Lermite222,

Je te remercie pour ton aide. Le code ne fonctionne malheureusement pas.
J'ai fait des recherches sur le net mais sans succès.
Je vais continuer mes recherches.

Merci encore pour ton aide.

A bientôt

Bonjour Lermitte222,

J'ai commencé à lire le ficihier PDF du lien que tu as envoyé, très instructif.

Le format des cellules est le suivant :
*JJ/MM/AAAA
J'ai tenté d'autre format mais rien à faire.
Lorsque je lance le code aucun date n'est selectionné, page vide.
Aucun message d'erreur

Je te remercie pour l'aide apporté.

A bientôt

Bonjour Lermitte222,

Suite à ton mail de vendredi, j'ai developpé avec des varaibles
J'ai écris le code suivant :
Sub TEST2()
Dim DateE5 As String, DateF5 As String

DateE5 = Sheets("liste").Range("E5")
DateF5 = Sheets("liste").Range("F5")
Selection.AutoFilter Field:=7, Criteria1:=">=" & DateE5, Operator:=xlAnd _
, Criteria2:="<=" & DateF5

End Sub
Toujours une page blanche.
Je suis allé voir dans le filtre. Le compte-tenu était éroné. Le mois et la date était inversé. Donc j'ai inversé dans la cellule E5 et F5 le mois et la date et là impercable.
J'ai repris le code que tu m'avais envoyé :

Sub Test3()

Selection.AutoFilter Field:=7, Criteria1:="=>" & Sheets("Liste").Range("E5"), Operator:=xlAnd _
, Criteria2:="=<" & Sheets("Liste").Range("F5")
End Sub

Et là page blanche ?????
Je me suis dis impossible que cela ne fonctionne pas il y a un truc???
Je suis retourné dans le filtre et là le symbole > avec la date pour le critère 1 et idem pour le critère 2
En fait lorsque tu regarde le code que j'ai developpé et le code transmis les signe >= sont inversés.

En conclusiion :
Il faut inverser dans les cellules la date et le mois et idm pour les symboles >=

Je te remercie vivement pour ta contibution.
Je te remercie pour le lien fourni. J'ai lu le fichier PDF.
J'ai découvert un site que je suis en train de parcourir. Je le conseil pour les débutants.

L'adresse : http://translate.google.de/...

Merci encore pour ton aide

A bientôt