Plage de données et maximum

Bonjour à tous,

Je suis débutant en VBA et j'aimerais donc réaliser une macro.

Le contexte : j'ai un fichier que je vais résumer ainsi; j'ai deux colonnes (une pour la date et l'autre avec une certaine valeur).

Dans la première colonne se succède une succession de date (qui peut être la même) et dans la deuxième une succession de arbitraire.

Ce que je cherche à faire est, pour une date, copier/coller dans un autre onglet la valeur maximal de la deuxième colonne.

J'espère avoir été assez clair.

Vous trouverez en pièce joint un exemple simplifié de mon fichier.

Je vous remercie de votre aide.

Alexandre

Bonjour

theber95 a écrit :

Vous trouverez en pièce joint un exemple simplifié de mon fichier.

C'est raté

Pour le joindre ici : Max 300 Ko (compresses le au besoin)

Sinon tu as Cjoint : http://cjoint.com/index.php

C'est corrigé

Bonjour

Un essai (un peu lent)

bonjour,

effectivement c'est un poil long, je suis parti sur quelque chose que je trouve plus simple.

En tout cas merci de ton aide.

Bonjour

theber95 a écrit :

je suis parti sur quelque chose que je trouve plus simple.

La solution m'intéresse

Merci

Sub trigger_débit()

i = 4

j = 3

Worksheets("brut").Select

Date_1 = Cells(4, 2).Value

While Cells(i, 1).Value <> ""

k = i

While Cells(k, 2).Value = Date_1

k = k + 1

Wend

Maximum = WorksheetFunction.Max(Range(Cells(i, 6), Cells(k - 1, 6)))

Heure_moteur = WorksheetFunction.Average(Range(Cells(i, 4), Cells(k - 1, 4)))

Worksheets("débit max").Cells(j, 1).Value = Date_1

Worksheets("débit max").Cells(j, 2).Value = Heure

Worksheets("débit max").Cells(j, 3).Value = Maximum

j = j + 1

i = k

Date_1 = Cells(k, 2)

Worksheets("brut").Select

Wend

End Sub

Bonjour

Bien je n'avais pas pensé à cette solution

On apprend tous les jours