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 :

Simplifier mon code


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut Simplifier mon code
    Bonsoir,

    Je recherche a simplifier mon code.

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For n = 3 To 50
     
    'Point normal
    If Cells(n, 4) < 162 And Cells(n, 4) > 0 Then
        If Cells(n, 4) <> 81 And Cells(n, 4) <> 91 And Cells(n, 4) <> 71 Then
                If Cells(n, 5) = 1 Then
                    If 162 - Cells(n, 4) = Cells(n, 8) Then
                    Cells(n, 8) = 162 - Cells(n, 4)
                    Cells(n, 4) = Cells(n, 4) + 20
                    End If
                Else
                Cells(n, 8) = 162 - Cells(n, 4)
                End If
        End If
    End If
    If Cells(n, 8) < 162 And Cells(n, 8) > 0 Then
        If Cells(n, 8) <> 81 And Cells(n, 8) <> 91 And Cells(n, 8) <> 71 Then
                If Cells(n, 9) = 1 Then
                    If 162 - Cells(n, 8) = Cells(n, 4) Then
                    Cells(n, 4) = 162 - Cells(n, 8)
                    Cells(n, 8) = Cells(n, 8) + 20
                    End If
                ElseIf Cells(n, 9) = 0 And Cells(n, 5) = 0 Then
                Cells(n, 4) = 162 - Cells(n, 8)
                End If
        End If
    End If
     
    If [H4] = 81 And [L1] <> 1 Then
    [H4] = 0
    [D4] = 81
    [A1] = 81
    [L1] = 1
    ElseIf [D4] = 81 And [L1] <> 1 Then
    [D4] = 0
    [H4] = 81
    [A1] = 81
    [L1] = 1
    End If
    If [A1] = 81 And [D5] <> 0 And [H5] <> 0 Then
       If [D5] < [H5] Then
       [H5] = [H5] + [A1]
       [A1] = 0
       ElseIf [D5] > [H5] Then
      [D5] = [D5] + [A1]
       [A1] = 0
        End If
    End If
    If [H5] = 81 And [L2] <> 1 Then
    [H5] = 0
    [D5] = 81
    [A1] = 81
    [L2] = 1
    ElseIf [D5] = 81 And [L2] <> 1 Then
    [D5] = 0
    [H5] = 81
    [A1] = 81
    [L2] = 1
    End If
    If [A1] = 81 And [D6] <> 0 And [H6] <> 0 Then
       If [D6] < [H6] Then
       [H6] = [H6] + [A1]
       [A1] = 0
       ElseIf [D6] > [H6] Then
      [D6] = [D6] + [A1]
       [A1] = 0
        End If
    End If
     
    Next
    End Sub
    Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.
    D'avance merci à qui pourra m'aider.
    Cordialement
    Max
    Fichiers attachés Fichiers attachés

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 171
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 171
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    En plus de montrer ton code, il serait plus simple d'expliquer clairement en quelques phrases ce qui tu cherches à faire.
    Structure de ton classeur, organisation de tes feuilles etc ..
    Bref ce que tu as et ce que tu désires obtenir.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Bonsoir

    Comme je l'explique sur le fichier joint.

    Si le preneur est l'équipe2, quel réalise le score de 81 points, donc l'équipe1 réalise 81 points, les deux équipes sont en litige ( la belote à 162 points) c'est l'équipe qui ne prend pas qui perçoit les 81 points donc l'équipe1 et on réserver les 81 points restant dans une cellule a part, (ex A1)
    A chaque nouvel inscription de points on vérifie si cette cellule est = 81
    si oui on ajoute au score du preneur et on efface la valeur de A1
    Si non on marque le score normal.

    Mon code fonctionne mais j'aimerai le simplifier

    Merci et bonne soirée

    Max

  4. #4
    Invité
    Invité(e)
    Par défaut
    Salut

    Tu auras peut-être la réponse sur l'autre forum, qui sait

  5. #5
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Je ne suis pas sure d’avoir compris ton problème mais regarde ça te métra peut-être sur la piste.
    Fichiers attachés Fichiers attachés

  6. #6
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Bonjour Robert,

    Je te remercie mais se n'est pas exactement cela, en faite quand une équipe marque 81 points, donc il y a litige, l'équipe qui ne prend pas marque c'est points donc 81 et les 81 points qui reste seras données à l'équipe qui auras fait le meilleurs score a la prochaine partie.

    Merci et bonne journée

    Max

Discussions similaires

  1. [XL-2007] Comment simplifier mon code VBA SVP?
    Par anthooooony dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/02/2012, 10h59
  2. [XL-2007] Simplifier mon code ?
    Par hdisnice dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/06/2011, 08h44
  3. Comment pourrais-je simplifier mon code
    Par pierrot10 dans le forum jQuery
    Réponses: 1
    Dernier message: 28/08/2010, 09h30
  4. Simplifier mon code
    Par pierre987321 dans le forum Langage
    Réponses: 5
    Dernier message: 07/04/2010, 12h49
  5. Simplifier mon code "Majuscule/Minuscule"
    Par Manou34 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 24/01/2008, 17h05

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