Vba probleme

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

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+

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 !

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

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

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

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

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

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

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 !!

tas super paf cest pour ca qu'oncomprend pas