Aléger un programme ...

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion super_tyty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

super_tyty

Guest
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
Re : Aléger un programme ...

bhbh à dit:
Bonjour, et bienvenue sur le forum
si tu imprimes tout le temps la même feuille, plus besoin de redéfinir ta mise en page, celle-ci sera conservée.
Cliquez pour agrandir...

Et non ...
C'est des extraits de nomenclature à vrai dire, donc son contenu change en fonction des codes articles (c'est à dire, je n'ai jamais la meme nomenclature)...
 
Vote positif 0 Vote négatif
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
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😀].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
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
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
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
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
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
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😀" & [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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
299
sylvanu
sylvanu
B
  • Résolu(e)
XL 2016 concours / Macro imprimer le texte au maximum selon les pages
Réponses
10
Affichages
1 K
berru76
B
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
904
berru76
B
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2016 Macro imprimer que les cellules pleines
Réponses
6
Affichages
1 K
berru76
B
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
oguruma
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
B
  • Question Question
Microsoft 365 RESOLU Problème vue sur page après Impréssion
Réponses
8
Affichages
1 K
Bambi35
B
P
  • Résolu(e)
XL 2019 Problème lancement impression
Réponses
6
Affichages
1 K
Pieerre69
P
KTM
  • Question Question
XL 2016 macro imprimer via inputbox
Réponses
5
Affichages
1 K
KTM
KTM
D
  • Question Question
VBA pour imprimer auto
Réponses
14
Affichages
3 K
Dim.Reichart
D
3xceln4ute
  • Question Question
[Résolu] Erreur 1004 .PaperSize = xlPaperLegal
Réponses
3
Affichages
6 K
3xceln4ute
3xceln4ute
F
  • Question Question
suppréssion de ligne
Réponses
13
Affichages
2 K
faguer
F
M
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
M
C
  • Question Question
Les Commentaires s'impriment
Réponses
5
Affichages
2 K
CVL
C
ph.vanne
  • Question Question
probléme avec sélection de la dernière feuille
Réponses
4
Affichages
1 K
ph.vanne
ph.vanne
P
  • Question Question
problème de transfer de userform vers PDF (résolu)
Réponses
5
Affichages
967
pasquetp
P
jacky49
  • Question Question
Comment améliorer ce code
Réponses
5
Affichages
1 K
jacky49
jacky49
P
  • Question Question
Probleme mise en forme apres copie de classeur pour impression
Réponses
0
Affichages
786
PEX
P
Rick@
  • Question Question
Macro "signature"
Réponses
6
Affichages
1 K
Rick@
Rick@
Retour