Vba probleme

Utilisateur anonyme -  
Bonjour,

JAI CE PROGRAMME MAIS IL ME METTENT ERREUR DE COMPILATION BLOC IF SANS END IF, POURQUOI?

Sub skiplus()

Const salFixe = 1100
Const XL100 = 350
Const XS50 = 180

Dim ancienneté As Integer
Dim primeAncienneté As Integer
Dim commissionAncienneté As Integer
Dim caXL100 As Integer
Dim caXS50 As Integer
Dim comissionXL100 As Integer
Dim comissionXS50 As Integer
Dim nbreXL100 As Integer
Dim nbreXS50 As Integer
Dim salaire As Integer

ancienneté = InputBox("quelle est l'ancienneté du représentant?")

If ancienneté > 5 And ancienneté < 10 Then
primeAncienneté = salFixe * 0.05
Else
If ancienneté > 10 Then
primeAncienneté = salFixe * 0.1
End If

nbreXL100 = InputBox("combien de XL100 ont été vendus?")
caXL100 = nbreXL100 * XL100

If nbreXL100 > 49 Then
comissionXL100 = caXL100 * 0.06
End If

nbreXS50 = InputBox("combien de XS50 ont été vendus?")

If XS50 < 20 Then
comissionXS50 = (nbreXS50 - 50) * 180 * 0.04
Else
If XS50 < 51 Then
comissionXS50 = nbreXS50 * 180 * 0.04 + nbreXS50 * 180 * 0.06
Else
If XS50 > 50 Then
comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1
End If

salaire = salFixe + comissionXL100 + comissionXS50

MsgBox ("le salaire finale est de " & salaire)

End Sub

11 réponses

Résumé de la discussion

L'erreur de compilation provient d'un bloc If mal fermé dans le script VB/VBA, fréquemment causée par des Else If mal placés et des End If manquants ou mal appariés. Des conseils suggèrent d'utiliser If ... Then ... ElseIf ... Then ... End If et de fermer chaque bloc If correctement, plutôt que d'imbriquer un Else puis un If séparé. D'autres points soulignent une confusion entre XS50, constante et variable nbreXS50, et recommandent de tester la bonne variable et d'enchaîner les conditions XS50 < 20, < 51 et > 50 via ElseIf et End If. La discussion rappelle que l'exemple de calcul des commissions peut être incorrect et que plusieurs réponses proposent des révisions des chiffres et des seuils, ainsi qu'une clarification logique pas à pas.

Bobot (l’IA à votre service)
  1. HostOfSeraphim Contributeur
    Pour des instructions Else... If, tu dois utiliser Elseif : 

    If number < 10 Then
    digits = 1
ElseIf number < 100 Then
    digits = 2
Else
    digits = 3
End If


    Si tu utilises malgré tout un If dans un Else, tu dois fermer ton If : 

    If number < 10 Then
Else
    If number < 100 Then
        digits = 2
    End If
End If


    2
    1. Paf
      désolé pour le doublon!
      0
  2. Utilisateur anonyme
    tas super paf cest pour ca qu'oncomprend pas
    0
    1. Paf
      L'exemple est même faux une deuxième fois

      dans le sujet on a 
      comission 6% xl100 a partir su 50eme surf vendu


      donc si 60 vendus le calcul devrait porter sur :60-49 donc 11

      or dans l'exemple on fait le calcul avec 10: 
      comission xl100=10*350*6%


      Bvo au concepteur de l'exercice !
      1
      1. Paf
        a priori vianndu44 essaye de trouver le résultat donné dans l'exemple de son sujet et ... cet exemple est faux: 

        exemple

60 srfs vendus xl100 et 50 xs50 12 ans dancienneté
fixe=1100*10
comission xl100=10*350*6%
xs50=20*180*4%+30*180*6%+(100-50)*180*10


        on fixe 50 XS50 vendus et on fait le calcul avec 100 !!
        0
        1. Utilisateur anonyme
          nan nan c 100 et pas 50 jai pas fais de faute
          0
        2. ccm81
          re
          ton post 10
          60 srfs vendus xl100 et 50 xs50 12 ans dancienneté
          bon, tout ceci n'est pas bien grave
          un merci serait quand même le bienvenu
          bonne suite .... et fin
          0
        3. Utilisateur anonyme
          regarde ta boite mail
          tu as parlé un peu vite!
          et merci a paf meme si pour le moment je nai aps le nombre exact
          0
      3. Paf
        Ben voila !

        et avec le sujet on s'aperçoit qu'il ne reste plus qu'à vérifier la commission pour les XL100 !

        Bon courage
        0
        1. Utilisateur anonyme
          et elle est bonne ou, parceque c tjrs faux jen ai marre
          0
        2. Paf
          ce n'est qu'un problème de lecture du sujet:

          prime d'ancienneté = 5% a partir de 5 ans jusqu'à 10 donc le test >4 et <11

          comission 6% xl100 a partir du 50eme surf vendu donc commission:
          If nbreXL100 > 49 Then
          comissionXL100 = (nbreXL100 -49)* XL100 * 0.06
          else
          comissionXL100 = 0
          End If

          Fin ?
          0
        3. ccm81
          re
          1. exact, jai zappé l'entrée de l'ancienneté, mais tu as l'air assez grand pour rectifier
          2. pour les declarations de variables, le type integer est mal adapté, tu as des decimaux dans tes calculs, donc préférer le type single (ou double)
          3. je te propose un plan et une syntaxe correcte, a toi éventuellement d'adapter
          4. on essaie de t'aider, donc reste poli
          bonne suite quand même
          0
        4. Utilisateur anonyme
          bah au final je trouve 2470... alors que le calcul est 2788 ya un truc qui cloche pas
          0
        5. Utilisateur anonyme
          ancienneté = InputBox("quelle est l'ancienneté du représentant?")

          If ancienneté > 4 And ancienneté < 11 Then
          primeAncienneté = salFixe * 0.05
          Else
          If ancienneté > 10 Then
          primeAncienneté = salFixe * 0.1
          End If
          End If
          nbreXL100 = InputBox("combien de XL100 ont été vendus?")
          caXL100 = nbreXL100 * XL100

          If nbreXL100 > 49 Then
          comissionXL100 = (nbreXL100) * XL100 * 0.06
          Else: comissionXL100 = 0
          End If
          nbreXS50 = InputBox("combien de XS50 ont été vendus?")
          If nbreXS50 < 21 Then
          comissionXS50 = nbreXS50 * 180 * 0.04
          Else
          If nbreXS50 < 51 And nbreXS50 < 21 Then
          comissionXS50 = 20 * 180 * 0.04 + (nbreXS50 - 20) * 180 * 0.06
          Else
          If nbreXS50 > 50 And nbreXS50 < 51 And nbreXS50 < 21 Then
          comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1
          End If
          End If
          End If

          salaire = salFixe + primeAncienneté + comissionXL100 + comissionXS50
          0
      4. ccm81
        bonjour

        et comme ça ? 

        Sub skiplus() 

Const salFixe = 1100 
Const XL100 = 350 
Const XS50 = 180 

Dim ancienneté As Integer 
Dim primeAncienneté As Integer 
Dim commissionAncienneté As Integer 
Dim caXL100 As Integer 
Dim caXS50 As Integer 
Dim comissionXL100 As Integer 
Dim comissionXS50 As Integer 
Dim nbreXL100 As Integer 
Dim nbreXS50 As Integer 
Dim salaire As Integer  

If ancienneté > 6 And ancienneté < 11 Then 
  primeAncienneté = salFixe * 0.05 
Else 
  If ancienneté > 11 Then 
    primeAncienneté = salFixe * 0.1 
  End If 
End If 

nbreXL100 = InputBox("combien de XL100 ont été vendus?") 
caXL100 = nbreXL100 * XL100 

If nbreXL100 > 49 Then 
  comissionXL100 = caXL100 * 0.06 
End If 

nbreXS50 = InputBox("combien de XS50 ont été vendus?") 

If nbreXS50 < 21 Then 
  comissionXS50 = nbreXS50 * 180 * 0.04 
Else 
  If nbreXS50 < 51 Then 
    comissionXS50 = 20 * 180 * 0.04 + (nbreXS50 - 20) * 180 * 0.06 
  Else 
    comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1 
  End If 
End If 

salaire = salFixe + primeAncienneté + comissionXL100 + comissionXS50 

MsgBox ("le salaire finale est de " & salaire) 

End Sub


        bonne suite
        0
        1. Utilisateur anonyme
          ca marce pas, de plus tu as oublié lancienneté
          0
      5. Utilisateur anonyme
        ca alors?
        If nbreXS50 < 21 Then
        comissionXS50 = nbreXS50 * 180 * 0.04
        Else
        If nbreXS50 < 51 And nbreXS50 > 20 Then
        comissionXS50 = 20 * 180 * 0.04 + (nbreXS50 - 20) * 180 * 0.06
        Else
        If nbreXS50 > 50 And nbreXS50 < 51 And nbreXS50 < 21 Then
        comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1
        End If
        End If
        End If
        0
        1. Paf
          sans le sujet pas facile à dire,
          mais tes tous premiers tests semblaient corrects par rapport aux calculs actuels de la commission !
          0
        2. Utilisateur anonyme
          la société skiplus fabrique et distribue 2 types de surfs des neiges :
          -le modele xl100 vendu 350€ ht
          -le modele xs50 vendu 180€
          les représentant vendent les produits. leur rémunération se calcule ainsi

          salaire fixe de 1100€ marjoré de 5% a partir de 5ans ou 10/ apres 10 ans
          comission 6% xl100 a partir su 50eme surf vendu
          comission progressive modele xs50
          4% sur le ca jusqua la 20eme planche
          6% du 21 au 50eme
          10% apartir du 51eme

          exemple

          60 srfs vendus xl100 et 50 xs50 12 ans dancienneté
          fixe=1100*10
          comission xl100=10*350*6%
          xs50=20*180*4%+30*180*6%+(100-50)*180*10
          0
      6. Utilisateur anonyme
        jai un peu modifié mais tjrs pas le mm resultat

        If ancienneté > 6 And ancienneté < 11 Then
        primeAncienneté = salFixe * 0.05
        Else
        If ancienneté > 11 Then
        primeAncienneté = salFixe * 0.1
        End If
        End If

        nbreXL100 = InputBox("combien de XL100 ont été vendus?")
        caXL100 = nbreXL100 * XL100

        If nbreXL100 > 49 Then
        comissionXL100 = caXL100 * 0.06
        End If

        nbreXS50 = InputBox("combien de XS50 ont été vendus?")

        If nbreXS50 < 21 Then
        comissionXS50 = nbreXS50 * 180 * 0.04
        Else
        If nbreXS50 < 51 And nbreXS50 < 21 Then
        comissionXS50 = 20 * 180 * 0.04 + (nbreXS50 - 20) * 180 * 0.06
        Else
        If nbreXS50 > 50 And nbreXS50 < 51 And nbreXS50 < 21 Then
        comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1
        End If
        End If
        End If

        salaire = salFixe + primeAncienneté + comissionXL100 + comissionXS50

        MsgBox ("le salaire finale est de " & salaire)

        End Sub
        0
        1. Paf
          aïe !
          les tests sur le Nombre de XS50 vendus se dégradent,
          If nbreXS50 < 21 Then : ok
          If nbreXS50 < 51 And nbreXS50 < 21: ça revient au premier test !
          If nbreXS50 > 50 And nbreXS50 < 51 And nbreXS50 < 21 : si > 50 et <51 et <21 : pas possible

          c'était correct avant (enfin ca depend de ce qui est demandé)
          0
      7. Paf
        re

        si pour la programmation ca fonctionne, pour le calcul, tu n'as pas du suivre le sujet !

        par exemple 
        If nbreXS50 < 20 Then
comissionXS50 = (nbreXS50 - 50) * 180 * 0.04

        si le vendeur vend moins de 20 XS50, pour sa commission on fait nombre de XS50 - 50 !! c'est donc toujours négatif!!

        par ailleur, tu calcules une prime d'ancienneté que tu n'utilises pas !

        Relis bien le sujet

        Bon courage
        0
        1. Utilisateur anonyme
          donc ca donnerai ça? mais ce qui est bizarre, c'est que le salaire final quand je teste la valeur n'est pas le meme dans le resultat de l'exemple

          Sub skiplus()

          Const salFixe = 1100
          Const XL100 = 350
          Const XS50 = 180

          Dim ancienneté As Integer
          Dim primeAncienneté As Integer
          Dim commissionAncienneté As Integer
          Dim caXL100 As Integer
          Dim caXS50 As Integer
          Dim comissionXL100 As Integer
          Dim comissionXS50 As Integer
          Dim nbreXL100 As Integer
          Dim nbreXS50 As Integer
          Dim salaire As Integer

          ancienneté = InputBox("quelle est l'ancienneté du représentant?")

          If ancienneté > 5 And ancienneté < 10 Then
          primeAncienneté = salFixe * 0.05
          Else
          If ancienneté > 10 Then
          primeAncienneté = salFixe * 0.1
          End If
          End If

          nbreXL100 = InputBox("combien de XL100 ont été vendus?")
          caXL100 = nbreXL100 * XL100

          If nbreXL100 > 49 Then
          comissionXL100 = caXL100 * 0.06
          End If

          nbreXS50 = InputBox("combien de XS50 ont été vendus?")

          If nbreXS50 < 20 Then
          comissionXS50 = (nbreXS50 - 50) * 180 * 0.04
          Else
          If nbreXS50 < 51 Then
          comissionXS50 = nbreXS50 * 180 * 0.04 + nbreXS50 * 180 * 0.06
          Else
          If nbreXS50 > 50 Then
          comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1
          End If
          End If
          End If
          salaire = salFixe + comissionXL100 + comissionXS50

          MsgBox ("le salaire finale est de " & salaire)

          End Sub
          0
          1. Paf
            bonsoir,

            un bloc if ...then ... else doit se terminer par un end if

            quand tu testes XS50 tu utilises 2 blocs If ...then...else.. et un seul end if.
            Dans ton cas tu aurais du utiliser if ... then... elseif...then...elseif...then.... end if 

            If XS50 < 20 Then   
    comissionXS50 = (nbreXS50 - 50) * 180 * 0.04   
ElseIf XS50 < 51 Then   
    comissionXS50 = nbreXS50 * 180 * 0.04 + nbreXS50 * 180 * 0.06   
ElseIf XS50 > 50 Then   
    comissionXS50 = 20 * 180 * 0.04 + 30 * 180 * 0.06 + (nbreXS50 - 50) * 180 * 0.1   
End If


            Mêmes éléments pour le test ancienneté.

            Par ailleurs, tu mets le résultat de inputbox dans la variable nbreXS50 , puis tu testes la variable XS50 ? étourderie puisque XS50 est une constante et vaut 180!!

            A+
            1

            Discussions similaires

            Méthode find dans VBA - Recherche de données sous Excel
            baissaoui

            0 réponse
            erreur d'execution 9, l'indice n'appartient pas à la sélection
            isidoh

            18 réponses
            "L'indice n'appartient à la sélection" + VBA
            fleur.31

            2 réponses
            VBA excel : résoudre problème de capacité.
            Juan Pedro

            9 réponses
            [Excel] Méthode Autofill dans une macro
            Arn's

            2 réponses