URGENT ! OUVERTURE FILTRE PAR MACRO

[baz]

slt a tous,

Je recherche déserperement a faire une macro qui ouvrirai un filtre personnalisé (avec si possible commence par ...) est ce possible ?

merci de m'aider car cela devient trop urgent et je deviens fou :-(.

GRAND MERCI A VOUS.

 

[baz]

et aussi si c possible de dire le code de la macro qui ferme le fichier car j'ai trouvé comment fermé excel mais je n'ai pas trouvé comment fermer le fichier et sans enregistrer.


Merci bcp.

 

[Cyber PAPY]

Mon vieux prof de math nous disait
"Messieurs, nous n'avons pas de temps à perdre alors ne nous dépêchons pas"

As tu essayé l'enregistreur de macro?
le mien me donne ceci:

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 01/04/2003 par Cyber PAPY
'

'
Range("E23:G41").Select
Selection.AutoFilter
'et pour rechercher si la colonne commence par "a"
Selection.AutoFilter Field:=3, Criteria1:="=a*", Operator:=xlAnd

'et pour supprimer:

Selection.AutoFilter Field:=3
Selection.AutoFilter
End Sub

 

[baz]

pitié je deviens fou :-( :-( :-( :-( :-( :-( :-( :-(

:-(.)-: :-( .)-:

' |_
'
_ _ _ __
/ \
|_pitié__ |

 

[A_binouze_drinker_among_others]

SendKeys "+{TAB}C{ENTER}{TAB}"
Application.Dialogs(xlDialogFilter).Show n

où est l'index du chap concerné

attention l'emploi de la méthode sendkeys n'est pas géniale.

 

[baz]

merci pour ton aide cyber papy mais c pas bon car j'ai essayé deja le souci est qu'il s'agit a chque fois de champs different donc je voudrais vraiement ouvrir le fenetre pour rentrer le nom ou tout du moins faire qq chose comme ça :

Selection.Copy
Selection.AutoFilter Field:=1, Criteria1:=Selection.Paste, Operator:=xlAnd

mais ça marche pas "le selection paste."


En tout cas merci cyberpapy

 

[baz]

merci binouze mais je comprend pas tout en cas je vais essayer et te dit ce qu'il en ai.

 

[baz]

j'ai testé a moins que je n'ai rien compris ( ce qui est bien possible) ta fonction de me sert pas, elle recopie des C les un après les autres.

 

[C@thy]

Salut baz,

pour la 2ème question :

Il faut créer une macro événementielle qui ne s'exécute qu'à la fermeture du fichier

procéder comme suit :

1) Maintenir la touche Alt appuyée et appuyer sur la touche de fonction F11
2) Afficher l'explorateur de projets si ce n'est déjà fait
3) A gauche, dans l'explorateur de projets double-cliquer sur ThisWorkbook
4) Dans le menu déroulant au milieu en haut choisir "Workbook"
5) Dans le menu déroulant en haut à droite choisir "BeforeClose"
6) au milieu des 2 lignes crées taper ça :
ThisWorkbook.Saved = True
ThisWorkbook.Close

Le résultat doit être :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

Il y aura fermeture du classeur sans enregistrement.

 

[jacquesderyes]

Bonjour baz et les amis du forum
Ci-joint un petit fichier qui répond à tes 2 pb je pense.

Bien amicalement.

Jacques de ryes

 

[baz]

merci cathy et merci jacques

par contre cathy cela ne marche pas (enfin j'y arrive), j'ai essayé en manuel et en recopiant le code mais non....

et par contre jacques y a pas ton fichier dedans.

 

[A_binouze_drinker_among_others]

bonjour


activeworkbook.close savechanges:=false suffira pour la seconde question

 

[baz]

Merci vraiment pour vos aides

binouze cela ne marche pas non plus peut etre j'aurai préciser que j'utilise excel 97.

Merci a vous.

 

[jacquesderyes]

Rebonjour à tous
Bon!! j'ai un pb alors je t'achemine le fichier en question par ta BAL.

Amitiés à tous
Jacques de ryes