Microsoft 365 Masquer - Afficher et classer

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Bon we 🙂

Je cherche à :
1 - Masquer les lignes qui contiennent UNIQUEMENT le mot "Répondeur"
2 - Afficher les lignes qui contiennent UNIQUEMENT le mot "Répondeur" en les classant selon le nombre de mots "Répondeur" contenus

Je cherche comment faire recherche sur le net et tentatives et ... pour l'instant, je n'y arrive pas -tu m'étonnes lol 😛),

Auriez-vous le bon code ?
Je joins un petit fichier test et je continue à chercher 🙂

Merci pour l'avoir lu,
Amicalement,
lionel,
 

Pièces jointes

Solution
job75
Bonjour Lionel, Marcel32,

C'est en effet un problème différent, il faut travailler sur x, la macro modifiée :
VB: 
Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
    tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 2) = "" 'RAZ
        x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
        If x Like "*##-##-####:##:RendezVouspourle*" Then
            tablo(i, 2) = "RdV"
        Else
            s = Split(x, vbLf)
            For j = 0 To UBound(s)
                y = s(j)
                If y <> "" Then
                    If Not y Like "##-##-####:##:Répondeur-" Then
                        tablo(i, 2) = "n/c"...
Trier par date Trier par votes
Bonsoir Lionel, le fil,

je te souhaite aussi une très bonne année.

La macro est une macro qui exécute un tri, bien évidemment sur tout le tableau.

Vouloir l'appliquer à la "cellule active" n'a donc aucun sens.

PS : ton code ne correspond pas aux fichiers précédents.

A+
 
Vote positif 0 Vote négatif
Bonsoir Gérard,

Oui, je l'avais adapté à mon fichier de travail.

En fait, le but est d'avoir le calcul au fur et à mesure de la saisie sans classement et sans avoir à compter toutes les lignes.

le code que tu m'avais fourni est le code du #post 21:
VB: 
Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
    tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 2) = "" 'RAZ
        x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
        s = Split(x, vbLf)
        For j = 0 To UBound(s)
            y = s(j)
            If y <> "" Then If Not y Like "##-##-####:##:Répondeur-" Then tablo(i, 2) = "n/c": Exit For
        Next
        If tablo(i, 2) = "" Then If InStr(x, "Répondeur") Then tablo(i, 2) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
    Next
    '---restitution---
    .Columns(4).Resize(, 2) = tablo
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
    .Rows.AutoFit
End With
End Sub
 
Vote positif 0 Vote négatif
Bonjour Gérard, le Forum,
Bonne journée à toutes et à tous 🙂

J'aurais besoin d'un classement supplémentaire au code donné par Gérard que je remercie encore.
J'ai besoin également que le code classe quand il rencontre "RendezVous pour le" dans les cellule de la colonne D.
Dans le code, il y a cette condition :
If y <> "" Then If Not y Like "##-##-####:##:Répondeur-" Then tablo(i, 2) = "n/c": Exit For

Pour me permettre de rappeler en priorité les Rdvs non honorés
Est-il possible d'y ajouter ? :
If y <> "" Then If Not y Like "##-##-####:##:RendezVous pour le" Then tablo(i, 2) = "RdV": Exit For

Je ne vois pas comment faire, pourriez-vous m'aider ?
Un grand merci par avance 🙂
Je joins le fichier test,
lionel 🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Lionel,

La macro modifiée :
VB: 
Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
    tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 2) = "" 'RAZ
        x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
        s = Split(x, vbLf)
        For j = 0 To UBound(s)
            y = s(j)
            If y <> "" Then
                If Not y Like "##-##-####:##:Répondeur-" Then
                    tablo(i, 2) = IIf(y Like "##-##-####:##:RendezVouspourle*", "RdV", "n/c")
                    Exit For
                End If
            End If
        Next
        If tablo(i, 2) = "" Then If InStr(x, "Répondeur") Then tablo(i, 2) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
    Next
    '---restitution---
    .Columns(4).Resize(, 2) = tablo
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
    .Rows.AutoFit
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Gérard, le forum 🙂

Je pensais en avoir terminé avec ce fil mais encore un souci que je ne sais pas résoudre.
Je suis désolé d'y revenir.

Voici le souci :
en cellule "D2", j'ai :
"04-01-22 17:44 : Répondeur -
24-12-21 11:07 : Répondeur -
15-12-21 15:24 : RendezVous pour le : 16 12 2021 12:00 - RAS : OK pour réfléchir au changt de réseau selon proposition
10-11-21 15:31 : RendezVous pour le : 16 11 2021 10:00 - "
Et j'ai bien "RDV" en "E2"

en cellule "D29", j'ai :
"14-12-21 14:25 : Pas dispo demande rappel - RdV possible -
26-10-21 10:06 : RendezVous pour le : 28 10 2021 10:00 - "
Et j'ai "n/c" en "E29"
J'ai besoin que la aussi il mette "RDV"
Je pense que la cause est que j'ai également dans la cellule un texte autre que "Répondeur"
Mais je n'arrive pas à modifier le code pour que la priorité soit donnée à "RDV"

Encore une p'tit coup d'aide ?
Je joins le fichier test et je continue à chercher,
Un grand Merci encore une fois,
lionel 🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Marcel 🙂

Désolé : erreur de frappe :
en cellule "D29", j'ai :
"14-12-21 14:25 : Pas dispo demande rappel - RdV possible -
26-10-21 10:06 : RendezVous pour le : 28 10 2021 10:00 - "
Et j'ai "n/c" en "E29"
J'ai besoin que la aussi il mette "RDV"
🙂
 
Vote positif 0 Vote négatif
Re-Bonjour,

Je suis en train de tester ce code :
VB: 
Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
    tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 2) = "" 'RAZ
        x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
        s = Split(x, vbLf)
        For j = 0 To UBound(s)
            y = s(j)
            If y <> "" Then
                If Not y Like "##-##-####:##:Répondeur-" Then
                    If y Like "##-##-####:##:RendezVouspourle*" Then
                    tablo(i, 2) = IIf(y Like "##-##-####:##:RendezVouspourle*", "RdV", "n/c")
                    Exit For
                    End If
                End If
            End If
        Next
        If tablo(i, 2) = "" Then If InStr(x, "Répondeur") Then tablo(i, 2) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
    Next
    '---restitution---
    .Columns(4).Resize(, 2) = tablo
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
    '.Rows.AutoFit
End With
End Sub
🙂
 
Vote positif 0 Vote négatif
Bonjour Lionel, Marcel32,

C'est en effet un problème différent, il faut travailler sur x, la macro modifiée :
VB: 
Sub Classer()
Dim tablo, i&, x$, s, j%, y$
With Sheets("Compter").[D1].CurrentRegion.EntireRow
    tablo = .Columns(4).Resize(, 2) 'mztrice, plus rapide
    For i = 2 To UBound(tablo)
        tablo(i, 2) = "" 'RAZ
        x = Replace(Replace(tablo(i, 1), " ", ""), vbCr, "")
        If x Like "*##-##-####:##:RendezVouspourle*" Then
            tablo(i, 2) = "RdV"
        Else
            s = Split(x, vbLf)
            For j = 0 To UBound(s)
                y = s(j)
                If y <> "" Then
                    If Not y Like "##-##-####:##:Répondeur-" Then
                        tablo(i, 2) = "n/c"
                        Exit For
                    End If
                End If
            Next
            If tablo(i, 2) = "" Then If InStr(x, "Répondeur") Then tablo(i, 2) = (Len(x) - Len(Replace(x, "Répondeur", ""))) / 9
        End If
    Next
    '---restitution---
    .Columns(4).Resize(, 2) = tablo
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
    '.Rows.AutoFit
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour Gérard,

j'étais en train de me perdre dans des tests "tatons" et "n'importe koi" lol
Et voilà, je reçois la délivrance !

Merci Gérard d'être là et toujours bienveillant et ... patient 🙂
Evidemment, ça marche YYYoupy.

Faudra bien que j'invente un truc pour dire MERCI,
lionel 🙂
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
130
Yogean
Y
A
  • Résolu(e)
XL 2016 Afficher des lignes qui contiennent un mot spécifique.
Réponses
4
Affichages
225
Al1_44
A
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
854
ThomAnalyses
T
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
476
job75
job75
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
668
Nel'
N
Usine à gaz
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
666
Usine à gaz
Usine à gaz
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
685
shf
S
N
  • Résolu(e)
Microsoft 365 Afficher-désafficher lignes selon réponses de menu déroulants (oui-non)
Réponses
11
Affichages
576
NicodePorto
N
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules
Réponses
2
Affichages
583
chaelie2015
chaelie2015
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
740
vgendron
vgendron
T
  • Résolu(e)
XL 2019 Afficher et masquer un onglet
Réponses
8
Affichages
560
telemarrk
T
C
  • Résolu(e)
XL 2021 vba fusion lignes et colonnes pour cellules identiques
2
Réponses
24
Affichages
2 K
cbar
C
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
511
Romain77144
R
Usine à gaz
  • Résolu(e)
Microsoft 365 Déplacer un groupe de cellules
2
Réponses
16
Affichages
2 K
Lone-wolf
Lone-wolf
Eleutheros
  • Question Question
XL 2016 Afficher les lignes du mois courant sauf avec critères "En cours" macro VBA excel
Réponses
3
Affichages
713
Wayki
Wayki
Usine à gaz
  • Question Question
XL 2021 Besoin de modifier Workbooks("classeur1") selon le classeur ouvert
3 4 5
Réponses
64
Affichages
3 K
TooFatBoy
TooFatBoy
Usine à gaz
  • Résolu(e)
Microsoft 365 fonction substitue
Réponses
1
Affichages
584
mapomme
mapomme
Usine à gaz
  • Question Question
Microsoft 365 Filtre direct sans formuler
Réponses
11
Affichages
547
patricktoulon
patricktoulon
Usine à gaz
  • Résolu(e)
Microsoft 365 ComboBox : est-il possible de masquer l'entête ?
Réponses
6
Affichages
707
patricktoulon
patricktoulon
Usine à gaz
  • Résolu(e)
Microsoft 365 Choisir une ListBox pour colorer les textes de mon menu
3 4 5
Réponses
73
Affichages
5 K
ChTi160
ChTi160
Retour