Se connecter / S'enregistrer
Votre question

Automatiser une macro excel

Tags :
  • Microsoft Excel
  • Programmation
Dernière réponse : dans Programmation
10 Mai 2010 11:40:53

bonjour j'ai une macro qui contient un nombre d'article limité qui aprés execution affiche les articles en rupture ou menace de rupture alors présentement j'ai plus d'article qu'auparavant alors mon probleme est le suivant:les autres articles je les ajoutes manuellement comment generaliser ou etendre la limite des mes articles et ensuite les automatisés?merci de me repondre le plus tot possible

Autres pages sur : automatiser macro excel

a c 232 L Programmation
10 Mai 2010 11:50:15

Salut,

Le plus simple sera certainement de modifier le code de ta macro afin de prendre plus de données en compte.
Est-ce que tu pourrais donner le code de ta macro que l'on puisse voir ça ?
m
0
l
18 Mai 2010 10:14:26

Merci pour votre intervention, voici ci dessous mon programme source qui fontionne deja automatiquement mais mon souci maintenant est celui de l'ameliorer c-à-d si vous pouvez m'aider à elaborer un autre programme qui obeit aux memes instructions mais creant cette fois ci une base de donées avec l'access. Merci d'avance pour votre reponse.
  1. '
  2. ' Filtre_1 Macro
  3. ' Affiche les articles en rupture ou menace de rupture de stock
  4. '
  5. ' Touche de raccourci du clavier: Ctrl+s
  6. '
  7. Sub Filtre_1()
  8. Range("AI5:A754").AdvancedFilter Action:=xlFilterInPlace, _
  9. CriteriaRange:=Range("AI1:AI3"), Unique:=False
  10. End Sub
  11. '
  12. ' Filtre_2 Macro
  13. ' Affiche les articles dont la couverture confirmée est inférieure au seuil de payement
  14. '
  15. ' Touche de raccourci du clavier: Ctrl+c
  16. '
  17. Sub Filtre_2()
  18. Sheets("JOURNAL ").Select
  19. Range("AJ5:AJ754").AdvancedFilter Action:=xlFilterInPlace, _
  20. CriteriaRange:=Range("AJ1:AJ2"), Unique:=False
  21. Range("AK3").Select
  22. Cells.Find(What:=999, After:=ActiveCell, LookIn:=xlFormulas, _
  23. LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
  24. xlNext, MatchCase:=False).Activate
  25. Range("AC180").Select
  26. End Sub
  27.  
  28.  
  29. '
  30. ' A_payer Macro
  31. ' Affiche les articles dont la couverture confirmée est inférieure au seuil de payement
  32. '
  33. ' Touche de raccourci du clavier: Ctrl+a
  34. '
  35. Sub A_payer()
  36. Sheets("A payer").Select
  37. Cells.Select
  38. Selection.Delete Shift:=xlUp
  39. Range("A1").Select
  40. Sheets("JOURNAL ").Select
  41. Range("AJ5:AJ754").AdvancedFilter Action:=xlFilterInPlace, _
  42. CriteriaRange:=Range("AJ1:AJ2"), Unique:=False
  43. Range("A3:AJ754").Select
  44. Selection.Copy
  45. Sheets("A payer").Select
  46. ActiveSheet.Paste
  47. Selection.Columns.AutoFit
  48. Sheets("JOURNAL ").Select
  49. Application.Run Macro:="Affiche_tout"
  50. Range("G6").Select
  51. Sheets("A payer").Select
  52. Range("E3").Select
  53. Selection.Interior.ColorIndex = xlNone
  54. Selection.ClearContents
  55. Columns("K:O").Select
  56. Selection.Delete Shift:=xlToLeft
  57. Columns("M:N").Select
  58. Selection.Delete Shift:=xlToLeft
  59. Columns("T:T").Select
  60. Selection.Delete Shift:=xlToLeft
  61. Columns("X:Z").Select
  62. Selection.Delete Shift:=xlToLeft
  63.  
  64. Range("X3").Select
  65. Selection.ClearContents
  66. Range("X2").Select
  67. ActiveCell.FormulaR1C1 = "URG-"
  68. Range("X3").Select
  69. ActiveCell.FormulaR1C1 = "ENCE"
  70. Range("X3").Select
  71. Selection.Interior.ColorIndex = xlNone
  72. Selection.Font.ColorIndex = 1
  73. Columns("X:X").Select
  74. Columns("X:X").EntireColumn.AutoFit
  75.  
  76. Range("Q3").Select
  77. With Selection.Font
  78. .Name = "Arial"
  79. .Size = 8
  80. .Strikethrough = False
  81. .Superscript = False
  82. .Subscript = False
  83. .OutlineFont = False
  84. .Shadow = False
  85. .Underline = xlNone
  86. .ColorIndex = xlAutomatic
  87. End With
  88. ' ActiveWindow.SmallScroll ToRight:=-7
  89. Range("I1").Select
  90. With Selection
  91. .HorizontalAlignment = xlGeneral
  92. .VerticalAlignment = xlBottom
  93. .WrapText = False
  94. .Orientation = xlHorizontal
  95. End With
  96. Range("K1").Select
  97. ActiveCell.FormulaR1C1 = "CDR EXTER."
  98. Range("K1").Select
  99. With Selection
  100. .HorizontalAlignment = xlGeneral
  101. .VerticalAlignment = xlBottom
  102. .WrapText = False
  103. .Orientation = xlHorizontal
  104. End With
  105. Range("K1:M1").Select
  106. ' With Selection
  107. ' .HorizontalAlignment = xlCenterAcrossSelection
  108. ' .VerticalAlignment = xlBottom
  109. ' .WrapText = False
  110. ' .Orientation = xlHorizontal
  111. ' End With
  112. With Selection
  113. .HorizontalAlignment = xlGeneral
  114. .VerticalAlignment = xlBottom
  115. .WrapText = False
  116. .Orientation = xlHorizontal
  117. End With
  118. Range("M1").Select
  119. ActiveCell.FormulaR1C1 = "ENC. CONF."
  120. Range("N1").Select
  121. With Selection
  122. .HorizontalAlignment = xlGeneral
  123. .VerticalAlignment = xlBottom
  124. .WrapText = False
  125. .Orientation = xlHorizontal
  126. End With
  127. Range("M1").Select
  128. With Selection
  129. .HorizontalAlignment = xlGeneral
  130. .VerticalAlignment = xlBottom
  131. .WrapText = False
  132. .Orientation = xlHorizontal
  133. End With
  134. Range("K1:L1").Select
  135. With Selection
  136. .HorizontalAlignment = xlCenterAcrossSelection
  137. .VerticalAlignment = xlBottom
  138. .WrapText = False
  139. .Orientation = xlHorizontal
  140. End With
  141. Range("M1:N1").Select
  142. With Selection
  143. .HorizontalAlignment = xlCenterAcrossSelection
  144. .VerticalAlignment = xlBottom
  145. .WrapText = False
  146. .Orientation = xlHorizontal
  147. End With
  148. Range("X1").Select
  149. ' Cells.Find(What:=999, After:=ActiveCell, LookIn:=xlFormulas, _
  150. ' LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
  151. ' xlNext, MatchCase:=False).Activate
  152. ' Selection.ClearContents
  153. End Sub
  154. '
  155. ' Affiche_tout Macro
  156. ' Enleve tous les filtres et affiche tous les articles
  157. '
  158. ' Touche de raccourci du clavier: Ctrl+t
  159. '
  160. Sub Affiche_tout()
  161. Range("AJ5:AK754").AdvancedFilter Action:=xlFilterInPlace, _
  162. CriteriaRange:=Range("AJ1:AK4"), Unique:=False
  163. '
  164. ' Selection.AutoFilter
  165. Range("AL5:AL754").Select
  166. Selection.AutoFilter
  167. Selection.AutoFilter Field:=1, Criteria1:="<>CMG", Operator:=xlAnd
  168. Range("G6").Select
  169.  
  170. ' ActiveSheet.ShowAllData
  171. End Sub


m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS