Macro affichant le maximum d'une plage

Bonjour à tous,

Pour classer de la musique j'aurais besoin de faire une macro qui me donnerait le résultat suivant :
Pour une suite de nombres (des pistes pour être précis) sous cette forme :

1
2
3
4
5
6
1
2
3
4
1
2
3
4
5
6
7
8
9
10

je voudrais qu'une macro remplisse la colonne d'à côté avec le maximum de chaque série :

1	6
2	6
3	6
4	6
5	6
6	6
1	4
2	4
3	4
4	4
1	10
2	10
3	10
4	10
5	10
6	10
7	10
8	10
9	10
10	10

Voilà, je pense que ce n'est pas très compliqué, j'ai essayé des choses avec un tant que active.cell < suivante mais je n'y arrive pas trop.
En vous remerciant d'avance pour votre aide !

regardes le fichier joint:

Ça marche du tonnerre ! Merci beaucoup !
Peux-tu m'expliquer un peu comment fonctionne la macro ? Que je me couche moins bête ce soir... ;)

ici j'utilise une fonction qui est utilisable directement dans une cellule Excel:

Code:

---

=DeA(A1;A:A)' je passe en paramètre la valeur [A1] et la colonne [A:A]

---

Code:

---

1 2 3 4 5 6 7

Public Function DeA(V As Range, Plage As Range) As Long For I = V.Row To Plage(Plage.Rows.Count, 1).Row 'je scan de la position de la cellule active [A1...Ax] If Trim("" & Plage(I, 1)) = "" Then Exit Function ' si la cellule Plage(I, 1) est vide je sort de la fonction If DeA = Plage(I, 1) Then Exit Function 'Si la cellule Plage(I, 1) est égale à la cellule active je sort de la fonction exemple 1=1 je sort If DeA < Plage(I, 1) Then DeA = Plage(I, 1) 'si la valeur de la fonction, par défaut 0 est plus petite que la valeur lue dans la boucle Plage(I, 1) j’affecte à la fonction la nouvelle valeur. Next End Function

---

Super :)
Merci encore !

Bonjour, bonjour,

j'aurais pensé plutôt à une macro globale sans apparaître dans des formules de calculs …

Mais en regardant la solution de Robert, je me suis rendu compte qu'il n'y a même pas besoin d'en utiliser une,
une simple formule de calculs suffit ‼

Si la première donnée est dans la cellule A1, alors entrer en B1 =SI(A2>A1;B2;A1) …

Résultat zéro ! Mais recopier la formule vers le bas jusqu'à la dernière ligne saisie dans la colonne A, magique !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Ça marche aussi très bien !
Merci :)