Supprimer des plages selon 3 criteres...

[Guido]

Bonjour le Forum

A partir de la ligne 13,j'aimerais supprimer les plages par 5 lignes…

Si le chiffre est inférieur a 8 , ou zéro qui se trouve a la droite du mot " N.Pts "

et deuxième critère, avoir un chiffre supérieur a zéro a la droite du mot " TTG ".

et pour finalisé ma demande classé les courses par heure de depart de A è Z ..Merci

Précision entre deux réunion se trouve 8 lignes vides peut ton les masqués ou les diminué

pour le résultats final ????

D'avance Merci

Guido

 

[Guido]

RE

Je reviens vers Vous...

Si le 3em et dernier critère pose un problème ,,je fais sans ???

Merci

Guido

 

[ChTi160]

Bonjour Guido
Bonjour Le Fil ,Le Forum
voila ce que j'ai mis dans un module
et qui semble répondre a la demande Lol

Option Explicit
Dim DerLgn As Integer
Dim Lgn As Integer
Sub Test()
Application.ScreenUpdating = False
With Worksheets("Données  Brutes")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
  For Lgn = DerLgn To 13 Step -1
    If .Cells(Lgn, 1) Like "Course ? *" Then
      If .Cells(Lgn, 1).Offset(, 21) < 8 And .Cells(Lgn, 1).Offset(2, 24) > 0 Then
       .Cells(Lgn, 1).Resize(5, .Columns.Count).EntireRow.Delete
      End If
      If .Cells(Lgn, 1).Offset(7, 1) <> "N°" Then
         .Cells(Lgn, 1).Offset(5, 1).Resize(7).EntireRow.Delete
      End If
    End If
  Next Lgn
End With
Application.ScreenUpdating = True
End Sub

Bons tests
Bonne fin de Soirée
Amicalement
Jean marie

 

[Guido]

Re

Salut jean marie pour ta proposition.

Quand dans le VBA débute par Option Explicit je suis un peut perdu???

Peut tu me donner le comment faire...

Je crée une nouvelle macro et je la nomme " tri_Final "

je fais un copié coller de ton texte et Bug ???

Merci d’éclairer mon petit cerveau ,lol

A plus

Guido

 

[ChTi160]

Re
rien de bien difficile
tu mets

Option Explicit 'Oblige a la déclaration des Variables
si déjà présent en entête du Module tu n'en laisses qu'un
Dim DerLgn As Integer
Dim Lgn As Integer
Sub tri_Final() 'Procedure
Application.ScreenUpdating = False 'Inhibe le rafraîchissement de L'écran
With Worksheets("Données  Brutes") 'Avec la feuille
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row 'on détermine la dernière ligne non vide de la Colonne "A"
For Lgn = DerLgn To 13 Step -1 'puis pour chaque ligne de la derniere a la 13
   If .Cells(Lgn, 1) Like "Course ? *" Then 'Si la cellule contient l'équivalent de
     If .Cells(Lgn, 1).Offset(, 21) < 8 And .Cells(Lgn, 1).Offset(2, 24) > 0 Then 'On teste la valeur des cellules
       .Cells(Lgn, 1).Resize(5, .Columns.Count).EntireRow.Delete 'On supprime 5 lignes
     End If
     If .Cells(Lgn, 1).Offset(7, 1) <> "N°" Then 'On teste la valeur de la cellule  située  'Si pas "N°"
         .Cells(Lgn, 1).Offset(5, 1).Resize(7).EntireRow.Delete  'On supprime 7 lignes
     End If
   End If
Next Lgn
End With
Application.ScreenUpdating = True
End Sub

En Espérant avoir pu te faire avancer
Bonne fin de Soirée
Amicalement
Jean marie

 

[zebanx]

Bonsoir Guido, bonsoir Chti60

J'ai fait une partie du traitement :
- suppression des courses concernées si les deux critères sont respectées.

Par contre, je ne sais pas faire un tri sur des zones non continues avec des cellules fusionnées.

On ne peut pas faire un step de 5 s'il y a des écarts supérieurs à 5 entre les différentes réunions.
J'ai copié le fichier de départ sur une "donnée de base (2) qui me permet de passer le code.
Mais il serait bien d'avoir des fichiers standardisés avec le nombre de ligne entre chaque zone (5 lignes).

La solution de Jean-Marie est surement la bonne approche en cherchant un "like "course"" si vous souhaitez être libre sur le nombre de lignes entre les réunions.

Bonne soirée
zebanx

 

[Guido]

Re

Merci a Vous deux.

Et voila que je n'avais pas fait attention a l'affichage 00:00.

Donc il faut aussi que les 5 lignes soit supprimer avec se type d'afichage.DSL

Le but de cette opération est de pouvoir imprimer cette page comme un programme ..lol

Merci

A Plus

Ps.Jean marie si tu arrive a me concocter le pti fichier ,je vais faire une copier

pour un coller de la page VBA,Merci

Guido

 

[ChTi160]

Re
une autre version donc !
j'ai copier la feuille pour les tests ,Copie ,renommer et etc etc
Bonne fin de Soirée
Amicalement
Jean marie

 

[Guido]

Re

Bonsoir zebanx

Bonsoir Jean marie

Tout ça me convient très bien.

Merci beaucoup.

J'ai des idées qui me viennent souvent après avoir fait fonctionné ...mon usine a Gaz.lol

Comment ajouté a la fin de la macro, une fonction qui rajoute le même onglet,

présent au début...avant de kliké sur le bouton de la macro...

Merci a bientôt

Bonne nuit

Guido

 

[ChTi160]

Bonjour Guido
Bonjour Le Fil,Le Forum
que veux tu dire par :

"Comment ajouté a la fin de la macro, une fonction qui rajoute le même onglet,
présent au début...avant de kliké sur le bouton de la macro..."

Bonne journée
Amicalement
jean marie