[ Resolu par Job75,Merci ] Sauvegarder les lignes contenant un mot bien precis

[Guido]

Bonsoir le Forum

Je recherche une macro qui efface le contenu des lignes inferieurs de la ligne, ou des lignes

qui comprend le mot FAV.... qui se trouve dans la colonne C et ceci dans les 9 plages

que comprend la feuilles.

Ensuite pour évité un 2em post ,j'aimerais dans la plage en dessous garder que les

colonnes qui comportent le n° qui se trouve avant le mot FAV....

Ci joint une page du fichier

avec les plages a garder ainsi que les colonnes a garder.

A plus

Guido

 

[Guido]

Re

le Fichier a un Bug je n'arrive pas le résoudre.

Merci de pouvoir y remédier

Ci joint le fichier est la capture d'écran..??

Merci guido

 

[job75]

Bonjour Guido, Jean-Marie, le forum,

Effectivement pour le couper-insérer du tableau du bas les plages ne peuvent pas être les mêmes.

Il s'agit du N° 7 de la course R3C9 (Feuil3).

Dans ce fichier (5) j'ai donc simplement ajouté le test If col > 3 Then

Bonne journée.

 

[Guido]

Bonjour Job75 et le Forum

Merci pour le fichier ,donc tout rentre dans le rang,Merci

A bientôt

Amitiés

Guido

 

[ChTi160]

Bonjour Guido ,Job75
Bonjour Le fil,Le Forum

arff je n'y connais rien en compatibilité , je suis sous Office 2010 .
dommage lol
je joins un fichier où j'ai remplacé les boutons par des Zone de Texte ??????? à voir

le très beau travail de Job75 répond à ta demande donc pas grave Lol
j'ai passé de bons moments à faire ce fichier .
Bonne journée
Amicalement
jean marie

 

[job75]

Re,

Sur le fichier (5) je viens d'améliorer la présentation des résultats en colonnes AA:AD.

En particulier en copiant les couleurs des N° comme l'a fait Jean-Marie.

A+

 

[Guido]

Re

Merci a Vous deux principalement pour vos fichier

Je me permet de vous demander si c'est possibles de pouvoir regarder ma

demande qui se trouvent a l'intérieur du fichier ,Merci d'avance.

a plus

Guido

 

[job75]

Bonjour Guido, le forum,

Finalement, pour le tableau du bas, je préfère un tri horizontal plutôt que des couper-insérer.

C'est plus élégant et en outre c'est un peu plus rapide.

Fichier (6).

Quant à ta dernière demande il ne faut pas exagérer : cela n'a plus rien à voir avec le sujet de ce fil, et en plus cela a été fait dans le passé sur d'autres de tes fils.

On ne va pas tout recommencer chaque fois que tu changes ton fusil d'épaule.

Bonne journée.

 

[job75]

Re,

Bon comme c'est relativement simple j'ai quand même écrit la macro :

Sub Courses()
Dim w As Worksheet, c As Range, course$, c1 As Range, c2 As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Worksheets
  If LCase(Right(w.Name, 3)) = "fav" Then w.Delete 'RAZ
Next
For Each w In Worksheets
  If w.[A1] Like "R#*C#*" Then
    w.Visible = xlSheetVisible 'si la feuille a été masquée
    For Each c In w.[A:A].SpecialCells(xlCellTypeConstants, 2)
      '---RAZ---
      c(1, 2).Resize(4) = ""
      c(25, 2).Resize(, 23) = ""
      c(25, 2).Resize(, 23).Copy c(6, 2).Resize(19) 'tableau du haut
      c(26, 12).Resize(13).Copy Union(c(26, 3).Resize(, 9), c(26, 19).Resize(, 6)) 'tableau du bas
      '---copie la feuille PRONO---
      course = "Course: R." & Val(Mid(c, 2)) & "-C." & Mid(c, InStr(c, "C") + 1)
      With Sheets("PRONO")
        Set c1 = .[B:B].Find(course, , xlValues, xlPart)
        If Not c1 Is Nothing Then
          c(1, 2).Resize(4) = c1.Resize(4).Value
          Set c2 = .[B:B].Find("Rang", c1)
          c1(5).Resize(c2.Row - c1.Row - 4, 23).Copy c(5, 2) 'tableau du haut
          c2.Resize(12, 23).Copy c(26, 2) 'tableau du bas
        End If
      End With
    Next c
  End If
Next w
End Sub

Les tableaux de toutes les courses possibles doivent exister dans les feuilles R1 R2 R3 R4 R5.

Fichier joint.

A+

 

[Guido]

Re

Merci Job pour le dernier fichier .Super bien.

a bientôt

Amitiés

Guido

 

[job75]

Re,

Je viens de compléter pour la RAZ du tableau du bas à droite (colonne S et suivantes).

A+

 

[Guido]

Re



Job et le fil

Job75

Merci pour les dernières mises a Jour du fichier

La tu as tout fait de Super OK

Amitiés

Guido