Discussion :

[Informaticia]

Bonjour le forum.

Je fais appel à vous pour m'aider à débloquer ma situation. Je vous remerci d'avance.

Je suis actuellement en train de faire un fichier excel pour gérer des vérifications mensuelles.
Ainsi, mon classeur contient plusieurs feuilles dont la mise en forme est la même: a chaque ligne correspond un mois avec des éléments à valider. Une dernière colonne permet d'indiquer si le mois est validé ou non (valeur 0 ou 1).

En parallèle j'ai un userform contenant une listbox pour selectionner le mois à observer.
Une fois le mois séléctionné, je souhaiterai afficher l'état de validation de chaque documents pour le mois souhaité.

Comment puis-je faire cela?

J'espère que j'ai été clair dans mes explications, n'hésitez pas à me demander d'autres éléments.

[Daniel.C]

Bonjour,

Une fois le mois séléctionné, je souhaiterai afficher l'état de validation de chaque documents pour le mois souhaité.

Qu'est-ce que tu entends par "document" ? C'est le mois qui est validé; d'après ce que tu décris, il n'y a pas d'autre validation. Le plus simple serait que tu mettes en PJ un classeur de test, sans données confidentielles, ainsi que le résultat attendu sur une feuille.

[Informaticia]

Voici un exemple:
Si je séléctionne le mois d'avril dans ma listbox, je souhaite afficher pour chaque feuille une image verte ou rouge selon l'état fourni par E7 (correspondant au mois d'avril).

Est ce plus clair?

Exemple .xlsx

[Daniel.C]

Si tu souhaites colorier les lignes en vert ou en rouge (pour tous les mois), comme tu l'as fait, une mise en forme conditionnelle fait l'affaire comme sur "Feuille1" du classeur joint. Si tu veux qu'un seul mois soit colorié ou qu'un regroupement des résultats sur une feuille soit fait, dis-le.

[Informaticia]

Je souhaite obtenir le résultat au travers des image du userform.

[Daniel.C]

J'ai matérialisé les résultats mensuels au moyens de labels de couleur verte ou rouge (ou incolore).

J'ai mis e bouton affichant l'userform sur la feuille "A FAIRE". Le code de l'userform est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub ListBox1_Click()
    Dim Sh As Worksheet
    For i = 5 To 8
        Me.Controls("Label" & i).BackColor = -2147483633
    Next i
    For Each Sh In Sheets
        If Sh.Cells(Me.ListBox1.ListIndex + 4, 5) = "1" Then
            Me.Controls("Label" & Sh.Index + 3).BackColor = RGB(0, 255, 0)
        ElseIf Sh.Cells(Me.ListBox1.ListIndex + 4, 5) = "0" Then
            Me.Controls("Label" & Sh.Index + 3).BackColor = RGB(255, 0, 0)
        End If
    Next Sh
End Sub
 
Private Sub UserForm_Click()
    MsgBox Me.Label5.BackColor
End Sub
 
Private Sub UserForm_Initialize()
    Me.ListBox1.List = [Feuille1!A4:A15].Value
End Sub

[Daniel.C]

Avec le classeur, c'est mieux.