Filtre automatique à l'ouverture du fichier [Résolu]

Signaler
Messages postés
43
Date d'inscription
mardi 3 juillet 2012
Statut
Membre
Dernière intervention
24 juin 2020
-
Messages postés
43
Date d'inscription
mardi 3 juillet 2012
Statut
Membre
Dernière intervention
24 juin 2020
-
Bonjour,

Dans un tableau de gestion des contrats, j'ai activé une mise en forme conditionnelle de couleur rouge lorsqu'une date de fin de contrat arrive à terme quelques jours à l'avance.

Est-il possible de définir que la ligne de couleur rouge s'affiche automatiquement en haut du tableau sans devoir effectuer la manipulation du filtre et à l'ouverture du fichier?

Je vous remercie d'avance
Bonne soirée

1 réponse

Messages postés
6823
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 juillet 2020
528
Bonjour,

en vba se déclenche à l'activation de la feuille

Faire Alt f11 sur la feuille concernée et mettre ce code:

Option Explicit
Private Sub Worksheet_Activate()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1") ' a adapter
    NoCol = 1 'lecture de la colonne 1 ' a adapter
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If FL1.Cells(NoLig, NoCol).Interior.Pattern = xlNone Then ' ne fonctionne que si les autres lignes n'ont pas de couleurs
        Else
       If NoLig = 1 Then Exit Sub
       Range("A" & NoLig).EntireRow.Cut
       Range("A1").EntireRow.Insert shift:=xlDown 'a adapter
        End If
        Next
    Set FL1 = Nothing
End Sub



Messages postés
43
Date d'inscription
mardi 3 juillet 2012
Statut
Membre
Dernière intervention
24 juin 2020

Merci pour votre retour,
ca fonctionne bonne journée