FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Simplication de code VBA
 

Simplication de code VBA

Matériel : riyana33, nikawada Le monde de Windows : spiritofdead Le monde de Linux : Fraye Jeux et consoles : Minity et 195 utilisateurs inconnus
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Simplication de code VBA
 
myelmehdi
Plus d'informations
n°36220
26-10-2007 à 17:37:30

Bonjour à tous,
je suis novice dans la matière.
J'ai écris réalisé un code pour une manipulation, maintenant je voulais savoir s'il y avais une possibilité de simplifier mon code pour que mon fichier soit moins lourd.

Code :
  1. Sub juin()
  3.     [D16].Select
  4.     ActiveSheet.PivotTables("Tableau croisé dynamique2" ).PivotCache.Refresh
  5.     ActiveSheet.PivotTables("Tableau croisé dynamique2" ).PivotFields("mois" ). _
  6.         CurrentPage = "6"
  7.     [p3].Copy
  8.     Sheets("Invreliability 01" ).Select
  9.     [B34].Select
  10.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  11.         :=False, Transpose:=False
  12.     Sheets("TCD" ).Select
  13.     [p4].Select
  14.     Application.CutCopyMode = False
  15.     Selection.Copy
  16.     Sheets("Invreliability 01" ).Select
  17.     [B43].Select
  18.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  19.         :=False, Transpose:=False
  20.     Sheets("TCD" ).Select
  21.     [p5].Select
  22.     Application.CutCopyMode = False
  23.     Selection.Copy
  24.     Sheets("Invreliability 01" ).Select
  25.     [F34].Select
  26.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  27.         :=False, Transpose:=False
  28.     Sheets("TCD" ).Select
  29.     [p6].Select
  30.     Application.CutCopyMode = False
  31.     Selection.Copy
  32.     Sheets("Invreliability 01" ).Select
  33.     [F39].Select
  34.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  35.         :=False, Transpose:=False
  36.     Sheets("TCD" ).Select
  37.     [p7].Select
  38.     Application.CutCopyMode = False
  39.     Selection.Copy
  40.     Sheets("Invreliability 01" ).Select
  41.     [F43].Select
  42.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  43.         :=False, Transpose:=False
  44. End Sub


 
Merci .bon WD

magellan
85*85? Voilà ce que j'en pense!
Plus d'informations
n°36250
29-10-2007 à 21:50:00

Trouve les éléments communs à toutes tes fonctions, et regroupe les en une boucle. Ensuite tu as des éléments différents (tes F43,p7..) et sers toi en pour alimenter à chaque tour via un tableau .


---------------
Le destin a voulu que Magellan périsse sous les coups de JeFaisPeurALaFoule...
Puis tel Jésus il revint plus fringuant que jamais :o
http://jefaispeuralafoule.blogspot.com  
JE SUIS CONTRE LE 85*85
myelmehdi
Plus d'informations
n°36268
30-10-2007 à 15:02:51

Bonjour,  
je te remerie pout ton message, mais comme je l'ai dit au début je suis novice, et donc le terme "boucle" m'est inconnu. tu n'aurai pas un lien où je pourrai comprendre ce que c'est?
merci

zeb
Profil : Modérateur libre
Plus d'informations
n°36269
30-10-2007 à 15:24:17

myelmehdi, novice implique que tu ne le restes pas : cf. google.fr/search?q=boucle,programmation


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
myelmehdi
Plus d'informations
n°36279
31-10-2007 à 09:40:09

merci


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Simplication de code VBA
 

Plan du forum
Forum MesDiscussions.Net, Version 2007.1.2
© 2000-2007 No1Dev
Page générée en 0.374 secondes
Annonces Google
Produits relatifs
Publicité
Sujets relatifs
voir tout
Actualités relatives
Les dernières actualités
voir tout
Les derniers tests
voir tout
Les ressources relatives
Les téléchargements