Mise en evidence de chevaux repérés courant dans une course.
#1
Débutant XLPages

Inscription: 06/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 08-03-2012 09h06
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


Note du Webmaster :
Pièce jointe supprimée sur demande du site de concerné : voir CE POST.
Merci de votre compréhension.


Edité par myDearFriend! le 13/03/2012 21:25:21
Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#2
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 08-03-2012 16h27
Citation :
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

Bonjour Warmaster et tout le forum!!
j'ai trouver le solution trés simple pour méttre en évidences les chevaux Repéres mais le fichiers est un peut trop gros donc je sais pas comment te le faire parvenir

Cordialement


Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#3
Débutant XLPages

Inscription: 06/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 08-03-2012 17h14
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.
Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#4
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 09-03-2012 15h24
Citation :
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.


Bonjour Warmaster,
Oui je les reçu et je suis en train voir avec Myta
pour que son code n'efface pas les formules a partir de la colonne v dans l'onglet courses parce que pour faire apparaitre les chevaux reperes il faut mettre la formules dans cette onglet mais comme le code de Myta efface tout il efface aussi les formules pour le reperes des chevaux une fois trouver la solution c'est yper simple a faire pour ta demande!!

Cordialement
Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#5
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 09-03-2012 15h52
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å

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#6
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 09-03-2012 16h07
Citation :
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å

Bon c'est plus la peine que je met ma formule alors
Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#7
Débutant XLPages

Inscription: 06/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 09-03-2012 17h56
Bonjour a tous !
Alors mission accomplie, j'ai fait les modifs, telles que specifiées, sur le fichier, et un seul mot me vient : RESPECT ! Ca marche nickel chrome. Les chevaux apparaissent bien en rouge.

Une question cependant, y a t-il une limite sur la feuilles des repérés a ne pas dépasser ? je veux dirs en nombre de cellule et/ou colonne ? ou bien est ce que la recherche se fait sur otut l'onglet ?

Superbe travail, et gros gros merci !!!


Hors Ligne
Rapport   Haut 

Re: Mise en evidence de chevaux repérés courant dans une course.
#8
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 09-03-2012 18h28
 Re le forum

Warmaster, non pas de limite pour le nombre de chevaux sur la feuille "Reperes",

il suffit juste que le nom soit écrit de la même façon.

Mytå

Edité par Mytå le 09/03/2012 19:41:03

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes