Discussion :

[malabarbe]

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

[ouskel'n'or]

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
Plus cent, peut-être...

Si on "fait comme ça"...

Code :

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

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é

[malabarbe]

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

[malabarbe]

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 :

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

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

[ouskel'n'or]

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

Code :

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

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

[malabarbe]

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)

@ +