URGENT ! OUVERTURE FILTRE PAR MACRO

B

baz

Guest

• 1 Avril 2003

• #2

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.

 

Vote positif 0 Vote négatif

C

Cyber PAPY

Guest

• 1 Avril 2003

• #3

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

 

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #4

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

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

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

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 1 Avril 2003

• #5

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.

 

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #6

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

 

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #7

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

 

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #8

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.

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 1 Avril 2003

• #9

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.

 

Vote positif 0 Vote négatif

J

jacquesderyes

Guest

• 1 Avril 2003

• #10

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

 

Pièces jointes

• TRIPARTIEL.zip

  0 bytes · Affichages: 34

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #11

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.

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 1 Avril 2003

• #12

bonjour


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

 

Vote positif 0 Vote négatif

B

baz

Guest

• 1 Avril 2003

• #13

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.

 

Vote positif 0 Vote négatif

J

jacquesderyes

Guest

• 1 Avril 2003

• #14

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

Amitiés à tous
Jacques de ryes

 

Vote positif 0 Vote négatif