Discussion :

[malabarbe]

Bonsoir,

Je me tourne vers vous car je me prends la tête depuis deux
jour pour trouver une macro satisfaisante !

Je m'explique, Je dois épurer un fichier (une feuille)
Le plus gros est fait, mais il me reste à effacer les lignes
des courses inutiles.
Ce que je souhaiterai, c'est supprimer les lignes qui ne sont
pas des courses de Plat.

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

Le Numéro devant chaque ligne, est le N° de ligne de la feuille
Donc, pour résumer, il faudrait supprimer les lignes de 5 à 8

Mais, il peut y avoir jusqu'a 9 courses dont 3 ou 4 à supprimer.

J'espère avoir été suffisamment explicite dans mes explications
pour que vous puissiez m'aider !

En espérant que l'un d'entre vous après décodage de ma demande
puisse me mettre sur la bonne voie !!!

D'avance MERCI

[ouskel'n'or]

Code :

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

1
2
3
For i = Range("A65535").end(xlup).row to 1 step -1
     If instr(cells(i,1), "Plat") = 0 then Range(cells(i - 3), cells(i)).entirerow.delete
Next

Pas testé
Bonne soirée

[Maxence HUBICHE]

En partant du principe que tu as ces colonnes dans la colone A...

Code :

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

1
2
3
4
5
6
7
8
9
Sub Cleaner()
    Dim lngPos As Long
 
    For lngPos = Range("A65536").End(xlUp).Row To 1 Step -4
        If InStr(1, Cells(lngPos - 3, 1).Value, "Plat", vbTextCompare) = 0 Then
            Range(Cells(lngPos, 1), Cells(lngPos - 3, 1)).EntireRow.Delete
        End If
    Next
End Sub

[Maxence HUBICHE]

mouarf ousk...
Tu es alléplus vite que moi !
Mais, je pense qu'un -4 est malgré tout préférable

[malabarbe]

Bonsoir,

Merci a vous deux

Mais la Macro de Maxence tourne super

Je la garde, mais, autant pour moi et cela va
certainement compliquer le chimblick

J'ai oublié de dire dans mon explication que :
pour chaque course, il peut y avoir 3 ou 4 ou 5 ou 6
ou 7 chevaux arrivés.

Je suis déjà très satisfait du résultat obtenu et je
suis content d'avoir bien (ou presque exposé mon soucis)

Si la macro est adaptable, je vais enfin passer
une bonne nuit !!!!!

Encore merci à vous

[JackOuYA]

bonsoir,

pour avoir un code plus simple je te propose de parcourir ta liste du 1° au dernier élément et tu copie les lignes vers une feuille Plat ou Handicap...

[malabarbe]

Bonsoir JackOuYA,

Merci pour ta réponce
Mais le but c'est d'automatiser autant
que faire ce peut dans une seule Macro
le traîtement d'une fois !

Mais j'ai déjà beaucoup avancé grace a vous

A vous lire

[Maxence HUBICHE]

Si la macro est adaptable, je vais enfin passer
une bonne nuit !!!!!

C'est adaptable !












Euh ... tu veux la solution ?

A dans quelques minutes !

[malabarbe]

Bonsoir Maxence,

A genoux, je te la demande

(ce n'est pas une promesse mais une prière)

A te lire

[Maxence HUBICHE]

Voilà !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CLeaner2()
    Dim lngStart        As Long
    Dim lngCurrent      As Long
 
    lngStart = Range("A65536").End(xlUp).Row
    For lngCurrent = lngStart To 1 Step -1
        If IsNumeric(Cells(lngCurrent, 1).Value) Then
            'rien à faire
        ElseIf InStr(1, Cells(lngCurrent, 1).Value, "Plat", vbTextCompare) = 0 Then
            Range(Cells(lngStart, 1), Cells(lngCurrent, 1)).EntireRow.Delete
            lngStart = lngCurrent - 1
        Else
            lngStart = lngCurrent - 1
        End If
    Next
End Sub

[malabarbe]

Ouah !

Mieux que mieux, il n'y a pas !!!!!!!!!!!!!!!!!!!!!

Ta Macro, tourne admirablement super bien

Tu a sauvé ma nuit.

J'aurais d'autres questions, mais je ne
sais pas si tu a encore du temps a me consacrer

Mème si on en reste la, je m'estime super comblé.

A te lire

[Maxence HUBICHE]

J'aurais d'autres questions, mais je ne
sais pas si tu a encore du temps a me consacrer

Mème si on en reste la, je m'estime super comblé.

Le mieux, c'est :
- quand tu as fini avec une questino, tu cliques sur le bouton résolu
- quand tu as une autre question, tu la poses sur le forum
Il y aura bien un 'inactif' prêt à t'aider dans le coin

++

[malabarbe]

Bonsoir Maxence,

Ok, je vais faire comme ça

Mais comme tu connais mon post,
j'espère retomber sur toi pour un
complément.

En tout cas, super merci.

Post RESOLU avec brio !!!!!

Bonsoir a tous