Discussion :

[papy_polo67]

Bonjour
J'ai un tableau qui liste des événements
Une fois que l’événement crée comporte une date de remise en service, l'incident est considéré comme clôturé.
J'aimerais par une touche ou une formule, que l'apparence du tableau ne comporte plus que les incidents ouverts et masque ceux clôturés.
Si vous me proposez une macro, expliquez moi svp comment la faire fonctionner.
Je ne sais faire fonctionner les macros qu'avec un bouton crée et macro associée
Merci
Polo

[Invité]

Pièce jointe 143449Pièce jointe 143449Bonjour,

Le fichier joint .xlsm comporte deux boutons ActiveX permettant de masquer les événements terminés ou de les ré-afficher.

Ces boutons déclenchent les macros AfficherTousLesEvenements ou MasquerLesEvenementsTermines présentes dans le module1 dont le code est le suivant :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Public DerniereLigneEvenement As Long
Public ShEvenement As Worksheet
 
Public AireEvenement As Range
Public CelluleEvenement As Range
 
Public ColMes As Long
Public ColEvenement As Long
Public LigneDeTitreEvenement As Long
 
Sub AfficherTousLesEvenements()
 
     ActiveSheet.Rows.Hidden = False
 
End Sub
 
Sub MasquerLesEvenementsTermines()
 
    Set ShEvenement = Sheets("Feuil1")
    With ShEvenement
 
         ColMes = .Range("AireRemiseEnService").Column
         ColEvenement = .Range("AireDateEvenement").Column
         DerniereLigneEvenement = .Cells(.Rows.Count, ColEvenement).End(xlUp).Row
         LigneDeTitreEvenement = 2
 
         Set AireEvenement = .Range(.Cells(LigneDeTitreEvenement + 1, ColMes), .Cells(DerniereLigneEvenement, ColMes))
         For Each CelluleEvenement In AireEvenement
             If CelluleEvenement <> "" And CelluleEvenement.Offset(0, ColEvenement - ColMes) <> "" Then
                .Rows(CelluleEvenement.Row).EntireRow.Hidden = True
             End If
         Next CelluleEvenement
         Set AireEvenement = Nothing
 
    End With
    Set ShEvenement = Nothing
 
End Sub

Par ailleurs, le module de la Feuil1 contient la macro événementielle Private Sub WorkSheet_Change(ByVal CelluleRemiseEnService As Range) qui permet de masquer la ligne si une date de fin d'événement est saisie dans la zone nommée AireRemiseEnService et si une date de début est présente dans la zone nommée AireDateEvenement.

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
26
27
28
 
Private Sub BoutonToutAfficher_Click()
   AfficherTousLesEvenements
End Sub
 
 
Private Sub BoutonMasquer_Click()
   MasquerLesEvenementsTermines
End Sub
 
 
Private Sub WorkSheet_Change(ByVal CelluleRemiseEnService As Range)
 
   If CelluleRemiseEnService.Count > 1 Then Exit Sub
 
   If Not Application.Intersect(CelluleRemiseEnService, Range("AireRemiseEnService")) Is Nothing Then
 
          ColMes = Range("AireRemiseEnService").Column
          ColEvenement = Range("AireDateEvenement").Column
 
          If CelluleRemiseEnService <> "" And CelluleRemiseEnService.Offset(0, ColEvenement - ColMes) <> "" Then
                    Rows(CelluleRemiseEnService.Row).EntireRow.Hidden = True
                    CelluleRemiseEnService.Offset(1, 0).Activate
          End If
   End If
 
 
End Sub

[papy_polo67]

Merci Eric

Je comprends pas ce qui est dans le code mais c'est ce que je voulais
Petite question....
Si je continue mon fichier après la ligne 18, cela fonctionnera t 'il quand même ou devra t'on à chaque fois changer le code?
Merci

Ps: si vous voulez je peux vous donner en privé le fichier original qui est différent de celui ci, mais qui comporte d'autres paramètres.

Merci encore

[Invité]

Bonjour,

Désolé, vous êtes limité à 1 048 573 enregistrements.

Cordialement.