Macro pour convertir des points 05 minutes en Watt en point 30 kW (1 col)

Bonjour à tous
Je cherche à effectuer une macro sur la base d un input en point 5' Watt et l'avoir en point 30
Le fichier que j' ai est en point 5 minutes 1 col en Watt et je souhaite avoir 30 minutes 1 col en kW

la Formule que j' applique est (MOYENNE(des 6 Premiers points)/1000))

bonjour,

une proposition

Sub par30()
    Set ws = Sheets.Add
    With Sheets("test")
        .Range("A1").Resize(, 3).Copy ws.Range("A1")
        ws.Columns(1).NumberFormat = "dd/mm/yy"
        ws.Columns(2).NumberFormat = "hh:mm"
        k = 1
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl Step 6
            k = k + 1
            ws.Cells(k, 1) = .Cells(i, 1)
            ws.Cells(k, 2) = .Cells(i + 5, 2)
            ws.Cells(k, 3) = Round(Application.WorksheetFunction.Average(.Cells(i, 3).Resize(6, 1)) / 1000, 1)
        Next i
    End With
End Sub

Bonjour à tous !

Pourriez-vous, dans votre profil, préciser la nature de votre Excel ( 2016 ? 2019 ? 365 ? ....) ?

Merci pour votre alerte JFL j ai complété mon profil Excel 365

Bonjour à tous de nouveau !

Je répare mon oubli ! :

Une proposition double ? (Power Query et Formule 365) (Basées sur le tableau structuré "t_BDD") :

Bonjour à tous,
Une autre proposition basée sur l'excellent travail de JFL !...
Cdlt.

Bonjour à tous de nouveau !

Jean-Eric a écrit :

Une autre proposition basée sur l'excellent travail de JFL !...

zé cru voir un taquin.....

Cela étant, astucieux la variable "c" !

TOP merci Cela fonctionne parfaitement merci
J ai augmenté mes compétences avec vos données et le fait d'avoir le détail me permettra de faire évoluer cette moulinette en fonction des inputs que je reçois MILLE MERCI à vous deux JFL et Jean-Eric je gagne du temps et vu ma charge de travail c est cooooool

Re,
@JFL,
Aucune taquinerie !
Tu m'as permis d'aller plus vite dans la proposition.
Bon week de l'Ascension !...
Cdlt.

Bonjour
Et voici le résultat final j ai rajouté une deuxième macro pour convertir aussi en point 10' il me reste à réfléchir comment permettre à l'utisateur de déposer ou copier plusieurs fichiers à nouveau merci jean-eric et JFL bon weekend

et deux boutons