Suivi de match de football

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Caninge

XLDnaute Accro
Rebonjour

Ce matin je suis sur mon fichier de football

J'en profite je suis en vacances.

Je voudrais faire la musique de chaque équipe (Comme on dit dans le jargon des courses de chevaux)

Récupérer les résultats (Gagné,nul ou perdu) et inscrire ces données dans une autre feuille.

je ne sais pas faire et vous ?

Merci A+
 

Pièces jointes

Re : Suivi de match de football

Bonjour Xanork

Formidable la macro.

Je pense que j'aurais du le dire avant, je préférerai plutôt des formules.

Parce que là pour l'instant il n'y a que 3 journées, quand il va avoir 25 ou 30 journées, je risque de voir le sablier longtemps.

Il doit y' avoir une erreur dans la macro: Exemple

Pour Lyon c'est G N G . et la macro donne P N P


A + et merci
 
Re : Suivi de match de football

Bonjour Caninge,

J'ai corrigé ma petite erreur : Lyon devrait etre champion. C'est un scoop, non 😉

J'ai egalement ajouter la commande Application.ScreenUpdating = False pour que la macro soit plus veloce.

Pour moi par formule, c'est pas possible.

A te lire.

XanorK
 
Re : Suivi de match de football

Bonjour Caninge,

En faite, il manque juste les apostrophes autour de Ligue 1 dans la commande :
Code:
        ActiveWorkbook.Names.Add Name:="LaJournée", RefersTo:=Range("'Ligue 1'!B" & 7 + i * 13 & ":W" & 16 + i * 13)

au lieu de 

        ActiveWorkbook.Names.Add Name:="LaJournée", RefersTo:=Range("Ligue 1!B" & 7 + i * 13 & ":W" & 16 + i * 13)

PS : D'ailleurs désormais, je prendrais l'habitude de toujours ecrire Range(" 'non de la feuille' " ! bla bla
 
Dernière édition:
Re : Suivi de match de football

Bonjour Xanork

Je t'en fais voir de toutes les couleurs.

Cette fois-ci la procédure s'est arrété à:

NbPoints = Cells(ActiveCell.Row, 2) "Freinage"

Mes pronostics me disent quelle devrait s'arrêter à:

NbPoints = Cells(ActiveCell.Row, 17)

Autre chose j'ai nommé la plage "LaJournée" comme prévue.
Je peux prendre n'importe quelle plage de résultats ?

A plus
 
Re : Suivi de match de football

re,

La, j'avoue que je ne comprends pas tes questions :
Caninge à dit:
Cette fois-ci la procédure s'est arrété à:

NbPoints = Cells(ActiveCell.Row, 2) "Freinage"
Chez moi, je n'ai pas d'erreur. ni de Freinage. C'est quoi?



Caninge à dit:
Autre chose j'ai nommé la plage "LaJournée" comme prévue.
Ce n'est pas à toi de nommer LaJournée, c'est le code qui le fait (en selectionnant les 10 match d'une journée de championnat : ActiveWorkbook.Names.Add Name:="LaJournée" ... ).

Je te rejoins le fichier, au cas ou

XanorK
 

Pièces jointes

Re : Suivi de match de football

Re,

Je viens de regarder mon fichier:

J'ai supprimé la plage" LaJournée" comme tu m'as dis.

et la macro va bien jusqu'a la fin.

Par contre dans les décomptes des matchs ça ne va pas.

En ce moment il y a 19 rencontres effectuées.

Dans la plage Général j'ai bien 19 matchs

Dans la plage Domicile je pense que ça doit aller (entre 9 et 10 matchs) pas vérifier

Dans la Plage Extérieur toutes les équipes ont seulement jouées 2 matchs .........??????????????

merci

A PLUS !
 
Re : Suivi de match de football

Bonsoir,

Une petite erreur dans la determination de la colonne dispo.
C'est corrigé. Cela devrait aller.

Dans les 2 cas, merci de me fournir le fichier avec tous les résultats: Ce fichier pourrait peut etre m'aider pour loto foot.


XanorK
Allez l'estac !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour