Discussion :

[jeje1664]

Bonjour à tout le forum (mon 1er post je suis ému...)

J’ai une petite demande à vous exposer concernant une base sportive que je mets à jour et gère via des macros VBA.

Supposons que je travaille sur un championnat de basket avec 20 équipes.

Avant chaque journée de championnat, je note dans un onglet dénommé « RECAP » les matchs à venir avec le nombre de points que je pronostique sur chaque match ainsi que la date concernée.

Ci-dessous un exemple (les colonnes « score 1 », « score 2 », et « Réel » restent vierges pour l’instant) :

Date Equipe 1 Score 1 Score 2 Equipe 2 Mon prono Réel (=Score 1 + Score 2)
30/11 Atlanta Vide Vide Boston 200 Vide
30/11 Detroit Vide Vide Dallas 185 Vide

Le lendemain de cette journée de championnat, je saisis dans un useform l’ensemble des matchs de la veille et le nombre de points inscrits par chaque équipe sur son match.

Ci-dessous un exemple sur les résultats des matchs pronostiqués la veille :

30/11 Atlanta 102 107 Boston
30/11 Detroit 87 82 Dallas

Mon souhait est le suivant : Demander à Excel de se rendre dans l’onglet « RECAP », d’y localiser la ligne du match en question et d’y saisir automatiquement le score de chaque équipe provenant du userform que je viens de lancer… --> Comme ca je peux comparer le nb de points réel avec mon prono

Je pense que la piste se trouve peut être du coté d’un « Vlookup » imbriqué avec date, Equipe domicile et cellule vide mais je ne parviens pas à le mettre en code…

J’espère avoir été clair dans mes explications…

Merci bcp pour votre aide !

[decondelite]

Quand affiche-tu ton userform?

Si tu désire l'afficher automatiquement à chaque fois qu'un match est dépassé d'au moins un jour et que les scores ne sont pas renseignés c'est possible.

[jeje1664]

Bonjour Decondelite,

je lance mon userform manuellement le lendemain de chaque journée de championnat (j'y saisis la date du match, les équipes et le score de chacune--> Comme indiqué dans mon 1er post)

Pr résumer, j'ai un onglet "recap" ds lequel j'ai déjà saisi antérieurement la date, l'équipe1, l'équipe 2, mon prono (manque dc juste les scores réels)

Je souhaite donc que les scores saisis après le match dans le userform vienne automatiquement dans la bonne ligne.

En Francais ca donnerait :

Pour chaque cellule de la colonne A de l'onglet "Recap", localiser celles dont la date = date saisie dans useform.
puis Pour chaque cellule qui répond à cette condition, tester si cellule à sa droite = Equipe 1 saisie dans userform,
Si oui, alors saisir le score de l'équipe 1 en colonne C et le score de l'équipe 2 en D.

Je patauge dans la codification de cette requête...

[decondelite]

OK j'ai compris.

Ceci dit, je ne vois pas l'intérêt d'utiliser un userform si c'est pour faire quelque chose qu'on peut faire à la main soi-même?

[jeje1664]

Ton argument n'est pas faux je te l'accorde , mais en fait ce userform me sert également à d'autres mises à jour.

Je veux dc juste pouvoir l'exploiter au maximum pr éviter les saisies manuelles,
surtout qu'une journée de championnat peut comporter 15 matchs !

[decondelite]

Il faudra que tu rajoute ce code à la suite de ceclui qui appelle ton userform.
Je suppose que nom1 et nom2 sont les données d'équipes de ton userform et score1 et score2 leurs scores.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim ligne As Integer, derniere_ligne As Integer
derniere_ligne = Range("A65536").End(xlUp).Row
For ligne = 1 To derniere_ligne
    If Cells(ligne, 1) = madate Then
         If Cells(ligne, 2).Value = nom1 And Cells(ligne, 5).Value = nom2 Then
            Cells(ligne, 3).Value = score1
            Cells(ligne, 4).Value = score2
        End If
    End If
Next

Rien de bien compliqué là-dedans...