Macro numérotation lignes

Bonsoir,

Voici un exemple des données dans la feuille Excel :
La première ligne contient le N° de la course
Les lignes suivantes, sont les 1, 2, 3, 4, 5, 6 ou 7 premiers chevaux arrivés
et ainsi de suite...
1 Course 1 : Plat - HANDICAP DIVISE - 2400 mètres
2 7
3 1
4 8
5 2
6 Course 2 : Plat - 1900 mètres
7 5
8 1
9 3
10 8
11 Course 3 : Plat - HANDICAP DIVISE - 2800 mètres
12 7
13 2
14 8
15 1
16 6

Le Numéro devant chaque ligne, est le N° de ligne de la feuille

Ce que je souhaiterai, c'est qu'en fonction du N° de course,
les chevaux arrivés prennent le N° de la course multiplié par 100
plus le N° de chaque arrivant.
je prends l'exemple de la première course
1 Course 1 : Plat - HANDICAP DIVISE - 2400 mètres
2 7
3 1
4 8
5 2
Ce que je souhaiterai comme résultat :
1 Course 1 : Plat - HANDICAP DIVISE - 2400 mètres
2 107
3 101
4 108
5 102

Et bien sur sur l'ensemble des courses

Merci de vos tuyaux

D'avance MERCI

Citation:

---

Ce que je souhaiterai, c'est qu'en fonction du N° de course,
les chevaux arrivés prennent le N° de la course multiplié par 100
plus le N° de chaque arrivant.
je prends l'exemple de la première course
1 Course 1 : Plat - HANDICAP DIVISE - 2400 mètres
2 7
3 1
4 8
5 2
Ce que je souhaiterai comme résultat :
1 Course 1 : Plat - HANDICAP DIVISE - 2400 mètres
2 107
3 101
4 108
5 102

---

Oui ben... multiplié par cent ça fait pas ça :aie:
Plus cent, peut-être... :mouarf:

Si on "fait comme ça"...

Code:

---

1 2 3

For i = 1 to Range("A65535").end(xlup).row If instr(cells(i,1), "Plat") = 0 then cells(i ,1) = cells(i, 1) + 100 Next

---

Si tu as un en-tête de colonne, alors mets
For i = 2 to t'cestesrats
Mais j'ai nettement l'impression que je n'ai pas compris... :(

Edit
Code corrigé

Merci de m'avoir répondu,

La fatigue, je me suis mal exprimé...

Il ne faut que garder que le N° de course, on ne
s'occupe du plat ou autre chose.

Non, ce que je souhaiterai, C'est que la
première course N° 1 multiplié par 100
devienne 100 et le premier cheval arrivé
en l'occurence le N° 7 soit remplaçé
par 107
le 2 ème cheval arrivé le 1 devienne 101

Pareil pour toutes les courses
pour la N° 2 : donc devient 200
si le cheval 13 est premier, il devient 213
si le cheval 5 est deuzièmme, il devient 205

et ainsi de suite

C'est clair dans ma tête, mais pas évident
a expliquer !!!

A te lire

Bonsoir,

J'ai modifié ta Macro,
mais cela ne s'applique qu'au premier
cheval de chaque course !

c'est un bon début

Code:

---

1 2 3 4 5

derlig = Range("A65535").End(xlUp).Row For i = 1 To derlig If InStr(Cells(i, 1), "Plat") <> 0 Then Cells(i + 1, 1) = Cells(i + 1, 1) + 100 Next

---

Il faudrai que cela s'applique a tous les chevaux
de chaque course.

Je sais que c'est une prise de tête mais
on approche de la solution.

A te lire

Ok, d'ailleurs je t'ai mis une bêtise

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim i as long, course as integer For i = 1 To Range("A65535").End(xlUp).Row If InStr(Cells(i, 1), "Plat") <> 0 Then Course = Split(Cells(i, 1), " ")(1) Else Cells(i, 1) = Cells(i, 1) + (100 * Course) End If   Next End Sub

---

Bonne nuit

Bonsoir ouskel'n'or,

Oui, tu a mis le doigt dessus !!!

C'est exactement le résultat que je voulais

Merci pour ta patience

Bonne nuit pour nous deux (bien méritée)

@ +