Bonsoir à tous,
Il y a quelques temps, j'ai fait appel a certains d'entre vous pour m'aider à réaliser un petit programme pour calculer la consommation éléctrique sur mon lieu de travail. Une partie de ce programme ne fonctionne plus. N'étant pas un spécialiste de VBA, quelqu'un pourait-il m'aider à trouver la faille ?
Pourriez-vous m'expliquer ligne par ligne le petit programme ci-dessous
Merci beacoup.
Consommation expéditions
'
Sheets("Poste 5").Activate
Range("D65536").End(xlUp).Select
Somme = Selection.Value - Selection.Offset(-1, 0).Value
'colonne F Réfrigérant 3"
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne H Réfrigérant 8"
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne J 75 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne L 25 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne N Armoires B
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne P 40 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Compteur général colonne B
Range("B65536").End(xlUp).Select
'La somme précedante est à déduire de cette difference
Somme = (Selection.Value - Selection.Offset(-1, 0).Value) - Somme
Sheets("Répartitions du mois").Select
'Cette ligne de code sert à arrondir à la dizaine supérieure
Range("C24") = Application.WorksheetFunction.RoundUp(Somme / 10, 0) * 10
Il y a quelques temps, j'ai fait appel a certains d'entre vous pour m'aider à réaliser un petit programme pour calculer la consommation éléctrique sur mon lieu de travail. Une partie de ce programme ne fonctionne plus. N'étant pas un spécialiste de VBA, quelqu'un pourait-il m'aider à trouver la faille ?
Pourriez-vous m'expliquer ligne par ligne le petit programme ci-dessous
Merci beacoup.
Consommation expéditions
'
Sheets("Poste 5").Activate
Range("D65536").End(xlUp).Select
Somme = Selection.Value - Selection.Offset(-1, 0).Value
'colonne F Réfrigérant 3"
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne H Réfrigérant 8"
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne J 75 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne L 25 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne N Armoires B
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Colonne P 40 CH
Selection.Offset(0, 2).Select
Somme = Somme + (Selection.Value - Selection.Offset(-1, 0).Value)
'Compteur général colonne B
Range("B65536").End(xlUp).Select
'La somme précedante est à déduire de cette difference
Somme = (Selection.Value - Selection.Offset(-1, 0).Value) - Somme
Sheets("Répartitions du mois").Select
'Cette ligne de code sert à arrondir à la dizaine supérieure
Range("C24") = Application.WorksheetFunction.RoundUp(Somme / 10, 0) * 10