Répartir des données sur un intervalle de temps

[denverdunk]

Bonjour j'ai besoins d'une macro ou formule qui me répartisse ces données (1000) sur chaque intervalle de temps je vous ai fait un exemple sur mon fichier (6 premières heures).
Merci

 

[phlaurent55]

Re : Répartir des données sur un intervalle de temps

Bonjour denverdunk,

voir fichier joint

à+
Philippe

 

[jp14]

Re : Répartir des données sur un intervalle de temps

Bonjour denverdunk, phlaurent55



Ci dessous une macro

Sub travdem()
Dim Cellule1 As Range
Dim Nomfeuille1 As String, Col1 As String
Dim Nb0 As Integer, I As Integer
Dim valeur As Long

'parametre
Nomfeuille1 = "Feuil1"
Col1 = "b"
'code
With Sheets("Feuil1") '(Nomfeuille1)(ActiveSheet.Name)

For Each Cellule1 In .Range(Col1 & "2:" & Col1 & .Range(Col1 & .Rows.Count).End(xlUp).Row)
    If Cellule1 = 0 Then
        Nb0 = Nb0 + 1
    End If
    If Cellule1 <> 0 Then
        valeur = Cellule1 / (Nb0 + 1)
        For I = Nb0 To 0 Step -1
            Cellule1.Offset(-I, 2) = valeur 
        Next I
        Cellule1.Offset(0, 1) = valeur
        Nb0 = 0
    End If
    
Next Cellule1

End With
End Sub

A tester

JP

 

[denverdunk]

Re : Répartir des données sur un intervalle de temps

Parfait je vais tester ça
Encore merci

 

[Modeste geedee]

Re : Répartir des données sur un intervalle de temps

Bonsour®

en C2 :
=SI(ET(B2=1000;B1=1000);B2;SI(ET(B2<>1000;B2<>B1);1000/EQUIV(1000;B2:$B$34;0);C1))



Nb : la premiere dotation doit être 0 !!!

 

[denverdunk]

Re : Répartir des données sur un intervalle de temps

Parfait tout marche
Encore merci