Discussion :

[Waldstein]

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 !

[Invité]

regardes le fichier joint:

[Waldstein]

Ç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...

[Invité]

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

Code Formule de la cellule C1 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Waldstein]

Super
Merci encore !

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[Waldstein]

Ça marche aussi très bien !
Merci