Fichier trop imposant...

[roblo]

Presque fini mais il faut ....que je sache..


Bonjours à vous tous qui, sans le savoir, m'avez bien aidée à créer ces " PETITE MACRO"

Voila, mon histoire:
Travaillant aux moyens généraux, j'ai eu l'idée de faire un inventaire me permettant de savoir quoi était ou.
Le mobilier, les numéros de Clim, le courant faible.
Premiere Etape: plan
Seconde etape:relevé bureau par bureau
Il doit y avoir au moins 400 macros la dedans
VIVE LE COPIER COLLER

Voila le truc bateaux pour le bureau complet

Sub bur455()
' bur455 Macro
' Macro enregistrée le 09/07/2009 par factotum
Call baseok
Call clearfeuil1
Sheets("feuil1").Select
Range("i1").Select
ActiveCell.Value = "455 TouT"
Sheets("base").Select
Selection.AutoFilter Field:=3, Criteria1:="455"
Call ordre
Call cutpaste
Call majtableau
Sheets("4").Select
Load UserForm1
UserForm1.Show
End Sub
+ une pour la clim, + une pour le courant réseau, et enfin une pour le mobilier
LE tout * par une centaine de bureaux

Je sais que vous pouver trouver, non pas beaucoup plus simple, MAIS Beaucoup moins imposants que ces 400 macros.
Je vous joint les Call aussi
Sub baseok()
'
' baseok Macro
' Macro enregistrée le 09/07/2009 par factotum
'

'
Sheets("base").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4


End Sub
Sub clearfeuil1()

Sheets("Feuil1").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents

End Sub
Sub majtableau()
'
' majtableau Macro
' Macro enregistrée le 10/07/2009 par factotum
'

'
Sheets("Feuil1").Select
Range("D5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

End Sub
Sub cutpaste()

Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

End Sub
Je me ferait un plaisir d'analyser vos méthodes....

Et encore un GRAND MERCI à VOUS
Pour info les fichier ExcEl fait 4 Mo
Dsl

 

[roblo]

Re : Fichier trop imposant...

call base; clerafeuill et Sheets("base").AutoFilter Field:=3, Criteria1:="455" plante
Je ne vous pas pourquoi

 

[roblo]

Re : Fichier trop imposant...

J'oubliais MERCI

 

[roblo]

Re : Fichier trop imposant...

Sheets("base").AutoFilter Field:=3, Criteria1:="455" ne fonctionne pas

en revanche celui la oui
Sheets("base").Select
Selection.AutoFilter Field:=3, Criteria1:="455"

j'en ai trouver un....
Sub baseok()
Sheets("base").Select

For i = 1 To 4
Selection.AutoFilter Field:=i
Next i

End Sub