Accueil | Aide en ligne | Annuaire | Sécurité | Articles | Astuces | Téléchargements | Association 


Mon compte SOS Ordi

Vous n'êtes pas identifié
[-> S'inscrire à SOS Ordi
[-> Mot de passe perdu ?
S'identifier


Rechercher sur SOS Ordi

Ok

Dans





 Catégories de l'aide en ligne

 Aide en ligne


 Saviez vous que ...

Le moteur de recherche de SOS Ordi peut vous trouver la solution plus rapidement


 Partenaires

  SOS Ordi > Aide en ligne > Logiciel > Développement > Langages > Visual Basic > Macro pour filtre élaboré

Macro pour filtre élaboré

8 réponse(s)
dont 1 ont aidé nmicoud à résoudre son problème

  Problème résolu posté le 17/08/2005 à 19:07
Profil Configuration PC
nmicoud


tux-base_overlord59_tux2
État : Absent
Bonsoir,

Je suis en train de réaliser un fichier Excel qui permettra de recencer toutes les procédures en vigueur dans ma boite.

J'ai donc une grosse liste avec le n°, l'intitulé, le thème et des mots clés liés à chaque procédure.

Je souhaite simplifier l'utilisation des utilisateurs en réalisant une macro qui permette de saisir un mot qui sera automatiquement implanté dans un filtre élaboré afin de ne laisser apparaître que les procédures incluants ce mot-clé.

Exemple : en cliquant sur un bouton, ils saisissent le mot "Vente" et toutes les procédures qui comportent ce mot restent à l'écran.

En clair, ca leur évite de cliquer sur les filtres élaborés et de choisir "contient".

Voici le code actuel (qui merde donc) :

Sub rech_mot_clé()

Dim motclé As String
motclé = InputBox("RECHERCHE PAR MOT CLE", "Saisissez votre mot clé")

Selection.AutoFilter field:=5, Criteria1:="=**motclé**", Operator:=xlAnd
End Sub


Pour info, j'ai essayé un nombre impressionnant de combinaison avec les *, = et ". A chaque fois, il ne garde aucune ligne. Bref, j'ai besoin d'un coup de main !

Merci d'avance !


Nico

   

Bas de page 


Information

Pour participer vous devez d'abord être membre ou identifié :
[-> M'identifier
[-> Je ne suis pas membre SOS Ordi, je souhaite m'inscrire
[-> J'ai perdu mon mot de passe


  Réponse postée le 17/08/2005 à 19:57
Profil du membre Configuration PC
azerty836



État : Absent
Salut, essaye de cette façon,
Selection.AutoFilter Field:=2, Criteria1:=Motclé, Operator:=xlAnd

Mieux vaut tard que jamais......

  Réponse postée le 17/08/2005 à 21:28
Profil du membre Configuration PC
nmicoud



État : Absent
Salut,

Ca ne fonctionne pas, j'obtiens le même résultat, c'est à dire rien...


Merci quand même

  Réponse postée le 17/08/2005 à 22:08
Profil du membre Configuration PC
azerty836



État : Absent
Re salut,

J'ai essayé avec le code que t'ai indiqué tout à l'heure c'est à dire :
Selection.AutoFilter Field:=2, Criteria1:=Motclé, Operator:=xlAnd
et pourtant cela fonctionne chez moi
Pour info, dans l'invite où l'on doit saisir le mot clé je tape la chose suivant *motclé* .

Mieux vaut tard que jamais......

  Réponse postée le 17/08/2005 à 22:12
Profil du membre Configuration PC
nmicoud



État : Absent
Effectivement, je ne mettais pas le mot entre les *.
Et là, ça fonctionne !

Mais le top du top serait de ne pas saisir les * mais simplement le mot.
T'aurais pas une soluce ?

En tout cas, merci.

  Réponse postée le 18/08/2005 à 09:22
Profil du membre Configuration PC
nmicoud



État : Absent
Salut,

Je viens de réussir à " concatener " le mot clé avec 2 * pour éviter d'avoir à les saisir dans l'inputbox.

Je cherche maintenant à faire des recherches par date de parution.
Ex : avoir toutes les procédures parues après telle ou telle date.
Je souhaite la même démarche, à savoir, une inputbox où l'on saisit une date et hop ! ne restent que les procédures dont la date est supérieure.

ci-joint le code actuel qui merde aussi...

Sub rech_date()

Dim date_nico As Date
Dim date_nico2 As String

date_nico = InputBox("def date", "saisir")
date_nico2 = " < " + date_nico

Selection.AutoFilter Field:=10, Criteria1:=date_nico2

End Sub


Idem, j'ai cherché à mettre des *, des " ", des <, des = dans tous les sens, mais ca ne fontionne pas.
Je suis preneur de bonnes idées ;-)

Merci

Nico

  Réponse postée le 18/08/2005 à 11:04
Profil du membre Configuration PC
nmicoud



État : Absent
J'ai trouvé la solution!

  Réponse postée le 18/08/2005 à 11:29
Profil du membre Configuration PC
J L



État : Absent
puisque tu a l'air de te prendre un peu la tete avec des macro, je te conseillerais d aller faire un tour sur ce site : www.excelabo.net , il t aidera surement beaucoup lors de la création de tes futures macros.

  Réponse postée le 18/08/2005 à 17:49
Profil du membre Configuration PC
nmicoud



État : Absent
Merci pour tout



Haut de page 

 

Version 5.6 | Infos / Contacts | Partenariat | Publicité