Afficher un N° pour la couleur de police

[Dugenou]

Bonjour à tous,

Je travaille sur des bases de données et je reçois souvent des fichiers d'extraction avec des demandes de corrections du genre "merci de supprimer toutes les lignes que j'ai mis en rouge".
Rechercher et isoler ces lignes "à l'oeil" est fastidieux, et je n'ai pas de formule qui m'afficherait pour chaque ligne dans une colonne supplémentaire un chiffre ou n'importe quoi qui me permettrait ensuite de filtrer pour n'afficher que ces lignes.

Je vous joins un petit modèle. Attention il ne s'agit pas de supprimer les lignes dans le fichier joint mais dans la base de données : je voudrais seulement pourvoir filtrer les lignes du fichier joint.

Merci d'avance pour votre aide

 

[BOISGONTIER]

Re : Afficher un N° pour la couleur de police

Bonjour,

Function couleurfond(c)
  If c.Interior.ColorIndex = xlNone Then
    couleurfond = "sans"
  Else
    couleurfond = c.Interior.ColorIndex
  End If
End Function

Function couleurPolice(c)
  If c.Font.ColorIndex = xlNone Then
    couleurPolice = "sans"
  Else
    couleurPolice = c.Font.ColorIndex
  End If
End Function

JB

 

[Dugenou]

Re : Afficher un N° pour la couleur de police

merci beaucoup JB !