Filtrer valeurs par couleurs

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je reviens vers vous pour la question suivante:
Comment filtrer des cellules par couleur de Fond.
J'ai trouvé une fonction pour les compter mais pas pour les filtrer via VBA.
Voir Fichier joint.

Par avance Merci pour votre aide.
Cordialement.

 

[13GIBE59]

Re : Filtrer valeurs par couleurs

Bonjour Astérix 🙂🙂

Inspire toi de ce code pour la couleur rouge (3) :

Sub coul()
Dim cell As Range
For Each cell In Range("D2:D25")
If cell.Interior.ColorIndex = 3 Then
valeur = valeur + 1
End If
Next
MsgBox valeur
End Sub

Bon courage.

 

[aubelix]

Re : Filtrer valeurs par couleurs

Bonjour 13GIBE59. 🙂

Merci pour ta reéponse.
Quelqu'un peut-il m'aider pour appliquer le code la 2ème question.
Voir la question dans le fichier de la question.

Par avance Merci.
Cordialement.

 

[Hulk]

Re : Filtrer valeurs par couleurs

Hello Aubelix, JB 🙂

Mais au fait tu veux quoi avec cette ComboBox ?

La liste des dates en C2:C26 ?

Bref, pour ton info, lorsque les ComboBox, ou autres contrôles, sont sur la feuille, il faut le préciser dans le code.

Avant

Private Sub ComboBox1_Change()
    
    Dim i, nbdate, nbligne As Integer
    Dim mois As Byte

    If ComboBox1.ListIndex = -1 Then Exit Sub
    mois = ComboBox1.ListIndex + 1

    TextBox1.Value = mois
    nbligne = Range("C2").End(xlDown).Row
    For i = 2 To nbligne
        If Month(Cells(i, 0)) = mois Then nbdate = nbdate + 1
    Next

    TextBox1.Value = nbdate
    ComboBox1 = Format(ComboBox1.Value, "mmmm")

End Sub

Après

Private Sub ComboBox1_Change()
    
    Dim i, nbdate, nbligne As Integer
    Dim mois As Byte

    If [COLOR="red"]Base.[/COLOR]ComboBox1.ListIndex = -1 Then Exit Sub
    mois = [COLOR="red"]Base.[/COLOR]ComboBox1.ListIndex + 1

    [COLOR="red"]Base.[/COLOR]TextBox1.Value = mois
    nbligne = Range("C2").End(xlDown).Row
    For i = 2 To nbligne
        If Month(Cells(i, 0)) = mois Then nbdate = nbdate + 1
    Next

    [COLOR="red"]Base.[/COLOR]TextBox1.Value = nbdate
    [COLOR="red"]Base.[/COLOR]ComboBox1 = Format([COLOR="Red"]Base.[/COLOR]ComboBox1.Value, "mmmm")

End Sub

Mais là, ça ne fait rien ?

A te relire.

 

[aubelix]

Re : Filtrer valeurs par couleurs

Bonjour Hulk. 🙂

Merci de l'intérêt que tu portes à mon problème.
J'ai recopié le code "après".

Il ne se passe rien. Le ComboBox reste vide.

Merci pour ton aide.
Cordialement.

 

[Hulk]

Re : Filtrer valeurs par couleurs

Re,

C'est ce que je disais 🙄

Donc j'en reviens à te re-poser les questions :

Tu veux quoi au fait dans la ComboBox ?

Les dates telles qu'elles sont en C2:C26 ?

Les mois en texte de ces dates ?

Précise ta demande !

=====================================

Dans la fenêtre des propriétés de la ComboBox, si tu rajoutes dans

ListFillRange C2:C26

Tu auras la liste des mois tels qu'ils sont inscrits.

Si tu mets ton code en plus, la boucle For engendre un message d'erreur, si tu l'enlèves cette boucle, il affichera en texte le mois correspondant à la cellule.

Mais bon sans vraiment savoir ce que tu veux...

 

[aubelix]

Re : Filtrer valeurs par couleurs

Re.

J'aurais voulu connaître le nombre de dates correspondant au mois sélectionné.
Exemple: si je sélectionne Mars, affichage de 3 dans la TextBox1.

J'ai ajouté les valeurs.
J'ai bien toutes les données ajoutées dans la liste.
Il s'affiche des dates, alors que j'aurai souhaité le mois.
La TextBox1 ne se réactualise pas.
j'ai un message d'erreur:

Erreur d'éxécution 1004
Erreur définie par l'application ou l'objet l'objet.

If Month(Cells(i, 0)) = mois Then (surligné en jaaune)


STP, peux-tu reprendre mon fichier pour vérifier.

Merci pour ton aide.
Cordialement.

 

[Hulk]

Re : Filtrer valeurs par couleurs

Re,

For i = 2 To nbligne
If Month(Cells(i, 0)) = mois Then nbdate = nbdate + 1
Next

C'est ce que je disais aussi, la boucle engendre une erreur, enlève là et vois ca que ça donne.

Par contre tu veux quoi au fait dans la TextBox ?

 

[pierrejean]

Re : Filtrer valeurs par couleurs

bonjour

Bizarre , je croyais avoir deja repondu

 

[aubelix]

Re : Filtrer valeurs par couleurs

Bonjour Pierrejean et Hulk. 🙂

Merci Pierrejean pour ta réponse sur les couleurs.
Elle fonctionne très bien. 😉

Mon souci est au niveau de la ComboBox.
Dans le TextBox, compter le nombre de valeurs répondant au mois choisi.

Par avance, Merci pour votre aide.
Cordialement.

 

[pierrejean]

Re : Filtrer valeurs par couleurs

Re

Vois si cela te convient

 

[aubelix]

Re : Filtrer valeurs par couleurs

Re Pierrejean. 🙂

Merci pour ta réponse. Cela fonctionne très bien. 😉

Une drenière chose : est-il possible de faire un filtre sur le mois sélectionné tout en gardant les quantités sur le TextBox1 ?

Si c'est trop galère, j'enr reste là...

Mille mercis encore pour ton aide.
Cordialement.

 

[pierrejean]

Re : Filtrer valeurs par couleurs

Re

En fait il y avait une imprecision due au filtre: le nbligne pouvait etre reduit selon le filtre
Voila une version plus correcte
Je regarde pour le filtre sur le mois selectionné

 

[aubelix]

Re : Filtrer valeurs par couleurs

Re

Merci. 🙂

J'ai apprécié la façon avec laquelle tu ajoutes les mois dès l'ouverture du Classeur.

Private Sub Workbook_Open()
Sheets("Base").ComboBox1.Clear
For n = 1 To 12
Sheets("Base").ComboBox1.AddItem Format("01/" & n & "/2010", "mmmm")
Next n
End Sub


Cela permets de ne pas polluer la feuille de données.
Travail de Pro.

Cordialement.

 

[pierrejean]

Re : Filtrer valeurs par couleurs

Re

Pas trop galère