[ 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]

Bonjour JBARBE 🙂

Mais avec ou sans??? 🙄 😀

Re

Pour le moment Job75 a trouvés pour les deux demandes,Merci

JBARBE seulement les lignes

Lone-wolf pas trouvé ??? mais vu que Job75 a trouvé..Voila..

Merci a Tous

Guido

 

[Lone-wolf]

Re Guido

Non, en effet. Heuresement que des professeurs comme job sont là.

 

[Guido]

Re Guido

Non, en effet. Heuresement que des professeurs comme job sont là.

Re

Pas de soucis tu avait déjà trouvé pour les lignes ,je gardes ca sous le coude

Encore ,Merci. Merci job75

Guido

 

[job75]

Re,

Notez que si les "FAV" ne sont pas toujours groupés en tête il suffit de les regrouper :

Sub Favoris()
Dim w As Worksheet, c As Range, n%, p As Byte, c1 As Range, col As Variant
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
        p = 0
        For Each c1 In c(6, 3).Resize(20)
          If LCase(c1) Like "*fav*" Then
            p = p + 1
            c1(1, 0).Resize(, 23).Copy c(5 + p, 2) 'regroupe les "FAV" en tête
            If p = n Then Exit For
          End If
        Next c1
        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 bis) avec les "FAV" de la 1ère course non groupés..

A+

 

[Guido]

Re

Merci Job75.

Je me permet de te demander une chose que tu connais déjà .

Serait il possible d'avoir le nombres total de couleurs vertes foncées des chx Fav

en horizontal et verticales, je me répète que pour les Fav de se fichier

Merci,Job75

Bon app...

a plus

Guido

 

[JBARBE]

Re,
Guido tu as un message sur skype mais tu n'es pas connecté !
Cela ne concerne pas cette demande
@+

 

[job75]

Re,

Serait il possible d'avoir le nombres total de couleurs vertes foncées des chx Fav

Voyez la fonction NbVert dans ce fichier (3), et son utilisation en colonne AA et ligne 38 des feuilles BIS.

A+

 

[job75]

Re,

J'ai amélioré la macro du fichier (3) et mis davantage de commentaires.

J'ai conservé la boucle du regroupement For Each c1 du fichier (2 bis), supprimez-la si elle est inutile.

A+

 

[Guido]

Re

Bonsoir Job75 et le Forum

Merci pour le dernier fichier ,Il me convient très bien

je vais déplacer les cellules qui concernent le total des cellules vertes qui font référence

aux chx verticaux et les faire afficher a cotés des citations horizontales avec le

classement totale par citations .

Je vais me basés sur un modèle fait par Job75.

Je vous redis ce soir .

Merci

Guido

 

[job75]

Bonjour Guido, le forum,

je vais déplacer les cellules qui concernent le total des cellules vertes qui font référence

aux chx verticaux et les faire afficher a cotés des citations horizontales avec le

classement totale par citations .

J'ai donc mis le tableau des résultats en colonnes AA:AD des feuilles "BIS" et revu la macro en conséquence.

Fichier (4).

Bonne journée.

 

[Guido]

Bonjour Job75 et le Forum

Un super fichier de ta part a nouveau. Merci Job75

Ainsi, je peux confirmer que le fichier est RESOLU...

Amitiés

Guido

 

[job75]

Re,

Il y avait une petite erreur sur l'entrée de la formule en colonne AB (Horizontal).

Je viens de corriger le fichier (4) :

        c(6, 28).Resize(n).FormulaR1C1 = "=NbVert(RC4:RC24)" 'colonne Horizontal

A+

 

[Guido]

RE

Ok Job75

Merci je vais mettre a jour le fichier corrigé

a plus

Guido

 

[ChTi160]

Bonsoir Guido
Bonsoir le fil,Le Forum
Bien que ce fil soit "Resolu"
je me suis amuse à partir du Travail de Job75 à faire ce fichier .
j'y ai ajouté quelques tris et mises en forme , je me suis beaucoup amusé , enfin j'ai appris plein de Choses.
Bonne fin de Soirée .
Amicalement
Jean marie

 

[Guido]

Bonsoir ChTi160 et le Forum

Je te remercie pour le fichier. Mais quand j'essaie de faire fonctionner les boutons...

il sont inactifs ?? J'ai même renommer le fichier,domage j'aurais bien aimer voir ton travail..

Je suis sur 2003. ??

A bientôt

Amitiés

Guido