Aléger un programme ...

S

super_tyty

XLDnaute Nouveau
Bonsoir tlm,
Je suis nouveau dans le forum, j'y viens depuis quelques jours pour puiser dans ces ressources si riches lol.

Au boulot, nous récuperons une base de donnée et nous la retravaillons. Dans mon soucis de faire un document final propre et presentable, je définis quelques paramettres d'impressions qui me paraissent très lourd (vu le temps d'execution par rapport au reste) ...


With ActiveSheet.PageSetup
.LeftHeader = _
"&""Arial,Italic""&9Bruno&""Arial,Regular""&10 &""Arial,Bold""&12&P / &N"
.RightHeader = "&D"
.LeftFooter = "&""Arial,Italic""&8Sandvik / Assystem France"
.CenterHorizontally = True
.Zoom = 90
End With


Peut on aléger ce programme ?

Par avance merci

Cordialement
Super_TyTy

PS: j'aurai d'autres questions par la suite, si vous pouvez m'éclairer, elles reste assez basique je pense.
 
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Aléger un programme ...

Re, re bhbh


Voila j'ai retrouvé le post en question

Lien supprimé

Et c'était Fred65200

Voir le lien indiqué dans son message

et faire également une recherche sur:
Application.ExecuteExcel4Macro "PAGE.SETUP
 
Vote positif 0 Vote négatif
S

super_tyty

XLDnaute Nouveau
Re : Aléger un programme ...

Très bien merci pour cette réponse je vais mis pencher dessus (Pour le moment je n'arrive pas à l'appliquer mais patience !)

Sinon j'ai un soucis, et je n'arrive pas à le corriger ... c'est un peu enervant à force. Je nettoye un peu mes données par des "remplacer par", mais ils ne s'appliquent pas à ma colonne selectionnée, elle se répercute de partout, c'est un peu génant ...

Que pensez vous de ca :

[D:D].Select
With Selection
.Replace What:="ADAPTOR", Replacement:="FITTING"
.Replace What:="ADAPTER", Replacement:="FITTING"
.Replace What:="FITTING TEE", Replacement:="TEE FITTING"
.Replace What:="swivel nut elbow 90", Replacement:="90° fitting"
.Replace What:="straight thread fitting", Replacement:="straight fitting"
.Replace What:="Disk spring", Replacement:="WASHER"
.Replace What:="Socket head screw (full thread)", Replacement:="SCREW CHC M"
.Replace What:="Socket head screw", Replacement:="SCREW CHC M"
.Replace What:="taper pin", Replacement:="EXPANDABLE PIN"
.Replace What:="(hydraulic)", Replacement:=""
.Replace What:="sign", Replacement:="LABEL"
.Replace What:="decal", Replacement:="LABEL"
.Replace What:="stainless steel", Replacement:="HW"
.Replace What:="Hexagon head screw (full thread)", Replacement:="SCREW H M"
.Replace What:="Hexagon head bolt (half thread)", Replacement:="BOLT M"
.Replace What:="Hexagon ", Replacement:=""
.Replace What:="Double lock washer", Replacement:="WASHER D: NORD LOCK"
End With

PS: dsl pour le smiley
 
Vote positif 0 Vote négatif
S

super_tyty

XLDnaute Nouveau
Re : Aléger un programme ...

Staple1600 à dit:
Re, re bhbh


Voila j'ai retrouvé le post en question

Lien supprimé

Et c'était Fred65200

Voir le lien indiqué dans son message

et faire également une recherche sur:
Application.ExecuteExcel4Macro "PAGE.SETUP
Cliquez pour agrandir...

Au risque de parraitre idiot, je n'arrive pas à utiliser les données qui sont sur le site meme brut, car modifié par mes soins ca ne marche pas mieux ...
Mon cas est déespéré ?
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Aléger un programme ...

Re

Pour répondre à ta question sur Replace


Voici une autre façon de faire
(ici c'est la colonne A qui est traiter)

Code: 
Sub test()
Dim TabSRC() As Variant
Dim i As Long
TabSRC = Array("ADAPTOR", "ADAPTER", "FITTING TEE", "swivel nut elbow 90", "straight thread fitting", "Disk spring", "Socket head screw (full thread)", "Socket head screw", "taper pin", "(hydraulic)", "sign", "decal", "stainless steel", "Hexagon head screw (full thread)", "Hexagon head bolt (half thread)", "Hexagon ", "Double lock washer")
TabREP = Array("FITTING", "FITTING", "TEE FITTING", "90° fitting", "straight fitting", "WASHER", "SCREW CHC M", "SCREW CHC M", "EXPANDABLE PIN", "", "LABEL", "LABEL", "HW", "SCREW H M", "BOLT M", "", "WASHER D: NORD LOCK")
For Each cell In Range("A1:A" & [A65536].End(xlUp).Row)
For i = LBound(TabSRC) To UBound(TabSRC)
If cell.Value = TabSRC(i) Then
cell.Value = TabREP(i)
End If
Next i
Next
End Sub

Je te laisse tester sur une COPIE (soyons prudents) de ton fichier.
 
Vote positif 0 Vote négatif
S

super_tyty

XLDnaute Nouveau
Re : Aléger un programme ...

Staple1600 à dit:
Re

Pour répondre à ta question sur Replace


Voici une autre façon de faire
(ici c'est la colonne A qui est traiter)

Code: 
Sub test()
Dim TabSRC() As Variant
Dim i As Long
TabSRC = Array("ADAPTOR", "ADAPTER", "FITTING TEE", "swivel nut elbow 90", "straight thread fitting", "Disk spring", "Socket head screw (full thread)", "Socket head screw", "taper pin", "(hydraulic)", "sign", "decal", "stainless steel", "Hexagon head screw (full thread)", "Hexagon head bolt (half thread)", "Hexagon ", "Double lock washer")
TabREP = Array("FITTING", "FITTING", "TEE FITTING", "90° fitting", "straight fitting", "WASHER", "SCREW CHC M", "SCREW CHC M", "EXPANDABLE PIN", "", "LABEL", "LABEL", "HW", "SCREW H M", "BOLT M", "", "WASHER D: NORD LOCK")
For Each cell In Range("A1:A" & [A65536].End(xlUp).Row)
For i = LBound(TabSRC) To UBound(TabSRC)
If cell.Value = TabSRC(i) Then
cell.Value = TabREP(i)
End If
Next i
Next
End Sub

Je te laisse tester sur une COPIE (soyons prudents) de ton fichier.
Cliquez pour agrandir...

Les variable ne sont pas toutes déclaré visiblement
exemple:

Dim TabREP() As Variant

Mais je suis pas un pro, il me pose le meme probleme sur "cell", c'est normal ?
Dans :

For Each cell In Range("A1:A" & [A65536].End(xlUp).Row)
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Re : Aléger un programme ...

Salut
Bonsoir le fil
Bonsoir le Forum

arff moi j'aurai mis
Columns(4).Select
tu Peux aussi affiner en ne sélectionnant que la partie ou il y a des données
Code: 
With Worksheets("Feuil1")
  With .Range("D2:D" & .Range("D65536").End(xlUp).Row)
    .Replace "ADAPTOR","FITTING"
    Etc .........
    Etc .........
  End With
End With
en espérant avoir pu t'aider
Bonne fin de Soirée
 
Vote positif 0 Vote négatif
S

super_tyty

XLDnaute Nouveau
Re : Aléger un programme ...

ChTi160 à dit:
Salut
Bonsoir le fil
Bonsoir le Forum

arff moi j'aurai mis
Columns(4).Select
tu Peux aussi affiner en ne sélectionnant que la partie ou il y a des données
Code: 
With Worksheets("Feuil1")
  With .Range("D2:D" & .Range("D65536").End(xlUp).Row)
    .Replace "ADAPTOR","FITTING"
    Etc .........
    Etc .........
  End With
End With
en espérant avoir pu t'aider
Bonne fin de Soirée
Cliquez pour agrandir...

Et des deux quelles solution est la plus rapide ?
 
Vote positif 0 Vote négatif
S

super_tyty

XLDnaute Nouveau
Re : Aléger un programme ...

Staple1600 à dit:
Re


Testes les deux macros

et dis-nous laquelle est la plus rapide ;)



Il manquait quoi d'autre, stp?
Cliquez pour agrandir...


A vrai dire, on voit pas trop la difference de rapidité ... lol mais je prefere la solution de notre ami, ca éviter de déclarer tout un tas de variable, j 'en ai déjà pas mal dans mes autres bout de programme.



Dim TabSRC() As Variant
Dim Cell As Range
Dim TabREP() As Variant
Dim x As Long
Dim i As Integer

TabSRC = Array("ADAPTOR", "ADAPTER", "FITTING TEE", "swivel nut elbow 90", "straight thread fitting", "Disk spring", "Socket head screw (full thread)", "Socket head screw", "taper pin", "(hydraulic)", "sign", "decal", "stainless steel", "Hexagon head screw (full thread)", "Hexagon head bolt (half thread)", "Hexagon ", "Double lock washer", "rondelle")
TabREP = Array("FITTING", "FITTING", "TEE FITTING", "90° fitting", "straight fitting", "WASHER", "SCREW CHC M", "SCREW CHC M", "EXPANDABLE PIN", "", "LABEL", "LABEL", "HW", "SCREW H M", "BOLT M", "", "WASHER D: NORD LOCK", "washer")
For Each Cell In Range("D1:D" & [A65536].End(xlUp).Row)
For x = LBound(TabSRC) To UBound(TabSRC)
If Cell.Value = TabSRC(i) Then
Cell.Value = TabREP(i)
End If
Next x
Next
 
Vote positif 0 Vote négatif

Discussions similaires

R
  • Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
TooFatBoy
L
  • Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
Mirguy23
  • Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
Mirguy23
P
  • Question
problème de transfer de userform vers PDF (résolu)
Réponses
5
Affichages
865
pasquetp
P
Rick@
  • Question
Macro "signature"
Réponses
6
Affichages
1 K
Rick@
Rick@
B
  • Question
Répéter la mise en page sur plusieurs feuilles : optimisation
Réponses
5
Affichages
2 K
tototiti2008
tototiti2008
I
  • Question
Supprimer un classeur en le fermant
Réponses
4
Affichages
6 K
dionys0s
dionys0s
M
  • Question
Est il possible de faire une recherche en vba utilisant des boucles et itérations ?
Réponses
2
Affichages
1 K
Gorfael
Gorfael
M
  • Question
HELP : Comment imprimer 2 feuilles Excel avec les macros ???
Réponses
0
Affichages
2 K
mahamalily
M
fr832
  • Question
simplifier un code d'impression
Réponses
12
Affichages
607
fr832
fr832

Membres actuellement en ligne

1 membres et 42 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 948
Messages
2 114 649
Membres
112 206
dernier inscrit
salah zabi