IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Aide pour codification


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut Aide pour codification
    Bonjour à tous,

    Voilà j'ai mis en place ce code qui distribue des prix selon un nombre de points acquis par le candidats. Hors, je rencontre un problème que je n'arrive pas à résoudre :

    Pour les candidats ayant un résultat compris entre 1 et 30, le prix attribué est le "Prix d'encouragements des Jurats".

    Pour les candidats ayant un résultat compris entre 31 et 50, le prix attribué est le "3ème prix d'excellence". Mais seul le candidat ayant le meilleur score reçoit ce prix.

    Idem pour les résultats entre 51 et 61.

    Avec mon code actuel, tous les candidats reçoivent un prix et ce n'est pas ce que je recherche.

    Pourriez-vous m'apporter votre aide s'il vous plait, je planche là-dessus depuis 2 jours sans y parvenir.

    Je vous en remercie par avance

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    Function TitrePrix2(Resultat As Double, ResultatsLaureats As Range) As String
    'résultat est la valeur à tester
    'ResultatsLaureats est l'ensemble des résultats à évaluer en vue de connaitre le grand gagnant
     
     
    'résultat de base pour les c
    Select Case Fix(Resultat)
        Case 1 To 30
            TitrePrix2 = "Prix d'encouragements des Jurats"
        Case 31 To 50
            TitrePrix2 = "3ème Prix d'Excellence"
        Case 51 To 61
            TitrePrix2 = "2er Prix d'Excellence"
    End Select
    'est-ce le meilleur résultat?
    'si oui, c'est un gaillard ce lascar!
    If Application.WorksheetFunction.Max(ResultatsLaureats) = Resultat And Resultat > 61 Then TitrePrix2 = "1er Prix d'Excellence Saint Honoré"
     
    End Function

  2. #2
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonsoir,

    Sans voir tout le code ou le fichier difficile à dire.
    Enfin tu dois boucler sur toutes les personnes et chaque fois que tu est dans un de tes 3 critères tu l'enregistre et à chaque boucle tu compare au précédent.
    A la fin tu auras les 3 plus grands pour chaque palier !


    Edit: trop fatigué pour penser ce soir, ...
    Il doit y avoir aussi des formules

  3. #3
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Bonsoir aalex_38,

    Merci pour ta réponse. Dans un tableau j'entre toute une série de nom de candidats ainsi qu'une série de notes.

    J'ai bien compris ta proposition mais je ne sais pas le faire, je ne sais pas écrire le code.

    Je pensais m'inspirer de la dernière ligne du code, pour les candidats ayant une note supérieur à 61. Dans ce cas de figure, seul le meilleur de cette catégorie reçoit le prix, mais cela ne marche pour les autres.

    Qu'en penses-tu ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Aide pour codification en Vba
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 03/06/2009, 09h31
  2. Aide pour codification VBA
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 18/09/2007, 12h02
  3. Besoin d'aide pour l'I.A. d'un puissance 4
    Par Anonymous dans le forum C
    Réponses: 2
    Dernier message: 25/04/2002, 17h05
  4. Une petite aide pour les API ?
    Par Yop dans le forum Windows
    Réponses: 2
    Dernier message: 04/04/2002, 21h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo