[ 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

 

[Lone-wolf]

Bonjour Guido , le Forum

Tu es sûr pour la première demande?? Ce ne cerait pas plutôt: qui ne contiennent pas le mot FAV??
Et c'est juste sur une feuille ou plusieures??

EDIT: un premier jet en PJ, d'après Base de ton désire.

 

[Guido]

Bonjour Guido , le Forum

Tu es sûr pour la première demande?? Ce ne cerait pas plutôt: qui ne contiennent pas le mot FAV??
Et c'est juste sur une feuille ou plusieures??

Re

Salut Lone-wolf ,Le Forum

Oui tu as raison,," C'est ma tete qui ne suis sui plus ????"

Les modèles dans le fichiers sont juste. Ouf.Merci

Oui ils y a 5 pages avec les mêmes emplacement de divers contenus et toutes les

pages ne sont pas remplies de données tout les jours

Les noms des onglets Feuil1BIS...Feuil2Bis....et Feuil5Bis.

Merci de ton aide .

Amitiés

Guido

 

[Lone-wolf]

Re

Donc, si j'ai bien compris, il faut appliquer l'éffacement à toutes les feuilles?

 

[Guido]

Re

Donc, si j'ai bien compris, il faut appliquer l'éffacement à toutes les feuilles?

Re

Oui,mais des jour c'est la page 1 3 4 qui ont des données et le lendemain 2 4 5,

donc les jours se suivent mais ne se ressemblent pas ??

Merci

Guido

 

[Lone-wolf]

Re

Ton fichier retouché. Le seul petit problème, est de copier le bouton dans la feuille où tu veux effacer les lignes. Donc, active la feuille avant de cliquer sur le bouton.

 

[Guido]

Re

Lone-wolf

Merci pour ta proposition,Super

Ma question je peux crée la macro sur mon fichier principale ...avec un bouton dans chaque page...??

c'est bien ca..Merci

Pour la deuxième demande as tu un petit truc....svp sachant que tu as fais ma 1ere demande Merci

Mais pas de tress je ne suis pas a la minute...lol

Merci Guido

 

[Lone-wolf]

Oui. Copie juste le bouton, et la macro éffacera les lignes qui sont différentes à FAV. Pour la 2ème demande, elle est identique à la première, non??

 

[Guido]

Re

Ok Merci

je vais essayé.

a plus

Guido

 

[job75]

Bonjour Guido, Lone-wolf, le forum,

Je comprends que les "FAV" sont toujours groupés au début de chaque tableau, donc :

Sub Favoris()
Dim c As Range, n%, col As Variant, p As Byte
Application.ScreenUpdating = False
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 2)
  n = Application.CountIf(c(6, 3).Resize(20), "*FAV*")
  If n < 20 Then
    c(6 + n).Resize(20 - n, 25) = ""
    c(25).Resize(, 24).Copy c(6 + n).Resize(20 - n, 24) 'pour la couleur
  End If
  p = 0
  For n = n To 1 Step -1
    col = Application.Match(c(5 + n, 2), c(27).Resize(, 11), 0)
    If IsNumeric(col) Then
      p = p + 1
      c(27, col).Resize(12).Cut
      c(27, 3).Resize(12).Insert xlToRight
    End If
  Next n
  c(27, 12).Resize(12).Copy c(27, p + 3).Resize(12, 10 - p) 'pour la couleur
Next c
End Sub

Bonne journée.

 

[Lone-wolf]

Bonjour job

Pas vraiment sûr qu'il reste en début de colonne, seul Guido pourra le dire; puisque d'après ce que j'ai compris, sa peux changer d'un jour à l'autre.

 

[JBARBE]

Bonjour à tous, Bonjour Guido,
Peut-être ceci en cliquant sur le bouton GO
Bonne journée !

Pas vu : Bonjour Lone-wolf, bonjour Job75

 

[Guido]

RE

Bonjour Job75 ,JBARBE,et re lone-wolf

Merci pour vos réponses.

La solution de Job75 fait avec un bouton mes deux demandes en une fois.Super.

Job75

je refais la meme demande je peux crée la macro sur mon fichier principale ...

avec un bouton dans chaque page...?? Les noms des onglets Feuil1BIS...Feuil2Bis....et Feuil5Bis

c'est bien ca. Merci,ou il faut que je modifie la macro...???

Merci d'avance

Guido

 

[job75]

Re,

Un seul bouton dans la feuille "Accueil" qui lance cette macro :

Sub Favoris()
Dim w As Worksheet, c As Range, n%, col As Variant, p As Byte
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Worksheets
  If LCase(Right(w.Name, 3)) = "bis" 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
    w.Copy After:=w
    ActiveSheet.Name = w.Name & " BIS"
    For Each c In [A:A].SpecialCells(xlCellTypeConstants, 2)
      n = Application.CountIf(c(6, 3).Resize(20), "*FAV*")
      If n < 20 Then
        c(25).Resize(, 25) = "" 'effacement de la dernière ligne
        c(25).Resize(, 25).Copy c(6 + n).Resize(20 - n, 25)
      End If
      p = 0
      For n = n To 1 Step -1
        col = Application.Match(c(5 + n, 2), c(27).Resize(, 11), 0)
        If IsNumeric(col) Then
          p = p + 1
          c(27, col).Resize(12).Cut
          c(27, 3).Insert xlToRight
        End If
      Next n
      c(27, 12).Resize(12).Copy c(27, p + 3).Resize(12, 10 - p) 'pour la couleur
    Next c
  End If
Next w
Feuil6.Activate 'CodeName de la feuille "Accueil"
End Sub

Fichier (2).

A+

 

[Lone-wolf]

Bonjour JBARBE

Mais avec ou sans???