Besoin d'aide

[romualdlecordier]

Bonjour à tous,

J'ai besoin d'aide pour améliorer ma macro

Voici un bout de la macro
Sub repart()
Dim tablo As Variant, N As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
tablo = Sheets("EINTCM").Range("B3").CurrentRegion
N = 0
For i = 2 To UBound(tablo)
If tablo(i, 3) = 7 Then
For j = i - N To i - 1
Cells(j, 13) = tablo(i, 13) / N
Cells(j, 22) = tablo(i, 22) / N
Cells(j, 23) = tablo(i, 23) / N
Cells(j, 24) = tablo(i, 24) / N
Cells(j, 25) = tablo(i, 25) / N
Next j
N = 0
Else
N = N + 1
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Cette macro prend en faite le chiffre qui se trouve en colonne M dont la colonne C est égale à 7 est elle divise se chiffre par le nombre de jour travaillé
Et elle fait aussi cette divisio pour les colonnes V,W,X et Y

L'amélioration que je veux apporter et que si la colonne AI est différent de 0 alors ce jour ne rentre pas dans le nombre de jour travaillé.

Je vous joint un document avec une feuille comportant le fichier de départ et une feuille avec le résultat souhaité

Merci d'avance pour votre aide

Romuald

 

[Habitude]

Re : Besoin d'aide

pas tester.....

essaie ceci

Sub repart()
Dim tablo As Variant, N As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
tablo = Sheets("EINTCM").Range("B3").CurrentRegion
N = 0
For i = 2 To UBound(tablo)
If tablo(i, 3) = 7 Then
For j = i - N To i - 1
Cells(j, 13) = tablo(i, 13) / N
Cells(j, 22) = tablo(i, 22) / N
Cells(j, 23) = tablo(i, 23) / N
Cells(j, 24) = tablo(i, 24) / N
Cells(j, 25) = tablo(i, 25) / N
Next j
N = 0
Elseif tablo(i,35) <> 0 then
N = N + 1
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[romualdlecordier]

Re : Besoin d'aide

Bonjour

Ta macro ne divise pas par le nombre de jour travaillé, maintenant ça remonte le chiffre sur le dernier jour travaillé

Moi j'aimerais que ça continue de divisé par le nombre de jour travaillé

Merci pour ton aide

 

[romualdlecordier]

Re : Besoin d'aide

Bonjour à tous

Personen a une petite idée pour m'aider je galere

Merci