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

Guido

XLDnaute Accro

• 14 Mars 2017

• #31

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

 

Pièces jointes

• Sauvegarder-la-ligne-.xls

  621 KB · Affichages: 26

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #32

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.

 

Pièces jointes

• Sauvegarder-la-ligne(5).xls

  502 KB · Affichages: 37

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 14 Mars 2017

• #33

Bonjour Job75 et le Forum

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

A bientôt

Amitiés

Guido

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 14 Mars 2017

• #34

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

 

Pièces jointes

• Sauvegarder la ligne(10) Chti160.xlsm

  329.5 KB · Affichages: 34

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #35

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+

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 15 Mars 2017

• #36

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

 

Pièces jointes

• Sauvegarder la ligne(10) Chti160.xlsm

  630.2 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2017

• #37

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.

 

Pièces jointes

• Sauvegarder-la-ligne(6).xls

  487.5 KB · Affichages: 33

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2017

• #38

Re,

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

Code:

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+

 

Pièces jointes

• Courses(1).xls

  754.5 KB · Affichages: 44

Dernière édition: 15 Mars 2017

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 15 Mars 2017

• #39

Re

Merci Job pour le dernier fichier .Super bien.

a bientôt

Amitiés

Guido

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2017

• #40

Re,

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

A+

 

Vote positif 0 Vote négatif

Guido

XLDnaute Accro

• 15 Mars 2017

• #41

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

 

Vote positif 0 Vote négatif