warmaster a écrit : Bonjour a toutes / tous

Felicitations et merci du partage pour cet énorme travail !!!
Je viens d'atterir sur ce forum très riche en faisant une simple recherche sur google "comme quoi le dicton : google est ton amis... a du vrai "  ;0)

Alors j'ai trouvé sur ce forum un fichier Turf_rapport quasi parfait pour moi, utile et efficace (que demander de plus ?)... et bien en fait j'aimerais savoir si une âme charitable saurait m'expliquer comment faire (je sais que ça doit etre super simple a faire, mais mes lacunes sur excel font que je ne parviens pas a obtenir le résultat voulu)... je m'explique :

Partant du fait que je voulais recupérer la liste des chevaux/partants pour les réunions du jour (j'avais un autre fichiers en ma possession mais celui mis ici est aussi bien), j'ai une liste de chevaux repérés qui est mise a jour régulièrement, et donc mon but est de faire apparaitre la liste eventuelle de mes repérés qui courent le jour de la course... et donc se basant sur les repérés l'idée serait en gros de cliquer sur un bouton et :
- ou bien les chevaux repéré courant dans une course du jour seraient mis en surbrillance d'une autre couleur
- ou bien dans un onglet dédié ils seraient mis en évidence....(peut etre par spécialité)
Voilà l'idée générale.

Je joint un exemple du fichier mentionné et trouvé ici-même, avec un onglet en plus intitulé "Reperes", au cas ou.

Je ne sais pas si je suis tres clair et compréhensible dans mes explications...
En tout cas merci d'avance pour toute aide ...
Cordialement

warmaster a écrit : Je t'ai envoyé un message privé avec mon mail.
mais as tu essayé de purger la liste des courses avant de compresser, hier aussi mon fichier etait trops gros et en purgeant la liste cela a suffit a considerablement diminuer la taille du fichier...

En tout cas merci.

Mytå a écrit : Salut le forum

Warmaster, ajoute cette macro au fichier.

Sub Reperes()
Dim Cel As Range
Dim Cell As Range

With Sheets("Courses")
  For Each Cell In .Range("C10:C" & .Cells(Rows.Count, "C").End(xlUp).Row)
    If Not IsEmpty(Cell) Then
      With Sheets("Reperes")
        With .Cells
          Set Cel = .Find(Cell.Value, LookIn:=xlValues)
          If Not Cel Is Nothing Then
            With Cell
              .Font.Bold = True
              .Font.ColorIndex = 3
            End With
          End If
        End With
      End With
    End If
  Next Cell
End With

End Sub

  Et dans le code de la feuille F01(Courses), ajoute la ligne Call Reperes

    Call CopierCourse
    Call Reperes
    End If

Modifie aussi cette partie dans le code des macros

• Private Sub ComboBox1_Click()
• Private Sub ComboBox2_Click()
• Private Sub CommandButton1_Click()

Range("B10:R12,B14:U33").ClearContents

Par

With Range("B10:R12,B14:U33")
    .ClearContents
  .Font.Bold = False
  .Font.ColorIndex = 0
End With

Mytå