Macro excel

Macro excel - VB/VBA/VBS - Programmation

Marsh Posté le 19-12-2011 à 23:57:04    

Bonjour à tous et a toutes =)
 
Etant débutant en VBA,je me permets de venir solliciter les "ames charitables " lol  
 
En effet j'essaie de faire une petite macro dont l'énoncé est le suivant :
 
 
 
 
il y a un fichier ou il y a 11 colonnes ou des donnees sont deja saisies pour chque ligne
Col 1         NumeroIdentifiant
Col 2         Lieu
Col 3        S/N
Col 4    Nom  
Col 5         etat
Col 6         Dossier
Col 7         NumeroRef
Col 8         Date/HeureCreationDossier
Col 9         Date/HeureAppelIntervenant
Col 10 Date/Heure Interventiontechnicien  
Col 11 Date/HeureClôture
 
 
 
A partir de ces données d’entrée, des pénalités sont calculées mensuellement. On ajoute aux pénalités individuelles (disponibilité d’un équipement) les pénalités globales (disponibilité du parc informatique dans son ensemble). Voici les éléments pour calculer ces différentes valeurs :
 
Taux de disponibilité par machine 95%  
            =>Pénalités associés
 Indisponibilité > = à 1jours ou 10heures = 10€/ machine
 Indisponibilité entre 1 et 2 jours => 10€ +18 € = 28€ /machine
 Indisponibilité entre 2  et  3jours => 10€ +18€ + 25€  =53€/ machine
 Indisponibilité supérieur à 3jours  => 53€ + 25€/jour supplémentaire / machine
 
   Taux de disponibilité du parc 98%  
            =>Pénalités associés
 entre 97 et 97.99% 1500€
 entre 96 et 96.99% 3000€
 entre 0 et 95.99%  4500€
 
 
 
Voici le code que j'ai commence a faire
 

Code :
  1. Sub reparations()
  3.    
  4.             'On selectionne le classeur et on active la feuille
  5.             Dim classeur As Workbook
  6.             Set classeur = Workbooks("PenalitesMois.xlsm" ) 'ici nom du classeur saisit en dur
  7.             Dim maFeuille As Worksheet
  8.             Set maFeuille = classeur.Worksheets(1) 'on suppose que les donnees sont sur la feuille 1
  9.             classeur.Activate
  10.             maFeuille.Activate
  11.            
  12.             'Je suppose que la feuille possede deja des donnees
  13.             ' et d'apres le cahier des charges soit 11 colonnes
  14.             'et j'ai suppose egalement que les dates sont ordonnees.
  15.            
  16.            
  17.              
  18.            Dim moisACalcul As Byte
  19.            moisACalcul = Application.InputBox("Saisissez le mois dont vous souhaitez y calculer les pénalités (de 1 à 12) " )
  20.              
  21.           'Faire une gestion d'erreur ou cas ou ce n'est pas un mois entre 1 et 12
  22.            
  23.            Call CalculPenaliteQuelMois(moisACalcul)
  24.            
  25.            
  26.  
  27. End Sub
  30. Function CalculPenaliteQuelMois(MoisACalculer)
  34. 'cette boucle va permettre de trouver la premiere ligne du mois duquel on souhaite y calculer les penalites.
  35. 'pour 2 jusqu'a la derniere ligne ou il y a des donnees d'ecrites
  36. For ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row
  38. 'si le mois de la cellule recuperer est different du mois ou il faut calculer les penalites
  39. If Month(Cells(ligne, 9)) <> MoisACaluler Then
  40. 'on fait un compteur
  41. compteur = compteur + 1
  43. 'le compteur va m'indiquer a quelle ligne le mois a calculer commence
  44. Else
  46. 'ici on force la sortie de la boucle et on recupere Compteur
  48. End If
  52. Next
  55. ActiveRow.Select = compteur ' la ligne active devient la ligne ou on a trouve le mois a calculer
  56. ActiveRow.Activate = compteur
  60. 'Cette boucle me servir a indiquer le nombre de ligne du mois duquel on souhaite y calculer les pénalités.
  61. For i = compteur To Range("A" & Rows.Count).End(xlUp).Row
  63. If Month(Cells(ligne, 9)) = MoisACaluler Then
  64. compteur2 = compteur2 + 1
  65. 'ce compteur me comptera le nombre de ligne ou il y a le mois dont on doit calculer les penalites.
  68. Else
  70. ' ici on force la sortie de la boucle et on recupere Compteur2
  72. End If
  75. Next
  78. For i = compteur To compteur2
  80. 'on fait le calcul du mois a calculer.
  81. 'on recupere les nombres de jours ouvres entre deux dates qui correspond a la penalite d'une intervention.
  84. Dim nbJoursOuvres As Long
  86. 'va m'indiquer le nombre de jour entre la date appel xerox et la cloture du dossier.
  87. nbJoursOuvres = NB.JOURS.OUVRES((Cells(compteur, 9).Value))
  88.  
  90. '  Indisponibilité > = à 1jours ou 10heures = 10€/ machine
  91. If nbJoursOuvres = 1 Then
  92. PenaliteDeCeDossier = PenaliteDeCeDossier + 10
  95. ' Indisponibilité entre 1 et 2 jours => 10€ +18 € = 28€ /machine
  96. ElseIf nbJoursOuvres = 2 Then
  97. PenaliteDeCeDossier = PenaliteDeCeDossier + 10 + 18
  100. ' Indisponibilité entre 2  et  3jours => 10€ +18€ + 25€  =53€/ machine
  101. ElseIf nbJoursOuvres = 3 Then
  102. PenaliteDeCeDossier = PenaliteDeCeDossier + 10 + 18 + 25
  106. ' Indisponibilité supérieur à 3jours  => 53€ + 25€/jour supplémentaire / machine
  107. ElseIf nbJoursOuvres > 3 Then
  108. JoursSupplementaires = nbJoursOuvres - 4
  110. PenaliteDeCeDossier = PenaliteDeCeDossier + 53 + 25 * JoursSupplementaires
  113. End If
  116. SommePenaliteDuMois = SommePenaliteDuMois + PenaliteDeCeDossier
  118. Next
  120. MsgBox "la penalite du mois duquel on a souhaite calculer la penalite est de " & SommePenaliteDuMois
  125. End Function


 
N'ayant pas le fichier qui contient les données a tester et étant vraiment pas TIP /TOP programmeur je viens demander de l'aide..
 
A savoir si le code répond un peu a l'énoncé ?si il y a d'éventuel correction ou critiques ?Je suis preneur de toutes infos qui pourrait me faire avancer..
 
Merci a tous et a toutes =)..
 
 
 
 
 

Reply

Marsh Posté le 19-12-2011 à 23:57:04   

Reply

Marsh Posté le 28-12-2011 à 10:17:44    

Personnellement ligne 46 et 70 je ne vois pas comment tu quitte la boucle, il faudrait ajouter un exit for dans le else non?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed