Problème VBA (boucle FOR/NEXT)

Bonjour,

J'ai besoin de votre aide... en effet j'ai du transformer un algorithme (Pièce Jointe) en langage VBA.

Le but de cet algorithme sur VBA est de calculer le salaire total et le salaire moyen d'une entreprise de 20 salariés en fin d'année ( 12 mois).

J'ai réussi à transformer mon algorithme en VBA mais je dois avoir un problème sur une ligne ....
Pièce jointe 369484Pièce jointe 369484
Pièce jointe 369484Pièce jointe 369488

Citation:

---

Envoyé par buzzinge

J'ai réussi à transformer mon algorithme en VBA mais je dois avoir un problème sur une ligne ....

---

Tu commences par lire les règles du forum, entre autre celle-ci : https://www.developpez.net/forums/d8...s-discussions/
Ensuite, tu copies ton code dans un message sous forme de texte avec des balises CODE (l'icone #)
http://club.developpez.com/regles/#LIII-E
Et enfin, tu indiques quelle ligne se signale le problème et quel est le message d'erreur, ou bien, s'il n'y a pas de message d'erreur, qu'est-ce qui n'est pas conforme à ce que tu attendais.

Cela dit, j'ai regarder ton algorithme en PDF. Avec quelques notions d'anglais niveau collège, je en vois pas comment il serait possible de ne pas trouver le code correspondant vu qu'il est quasiment écrit.

Je vous remercie pour votre réponse,

Voici mon code VBA que j'ai réalisé et qui est censé correspondre à l'algorithme que vous avez pu lire en PDF .... je n'ai pas forcément de message d'erreur mais ma VBA ne marche pas .. Je suis totalement débutante, j'ai essayé au mieux mais je vous avouerai que je suis en difficultés. Merci d'avoir pris le temps de me lire.

Code:

---

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

Sub Exercice_10()   Dim Salairemensuel(1 To 20) Dim cumulsalarie As Single Dim Salairetotal As Single Dim MoyenneAnnée As Single Dim i As Long Dim m As Long   Salairemensuel = 0 cumulsalarié = 0 Salairetotal = 0 MoyenneAnnée = 0 Somme = 0   For i = 1 To 20 For m = 1 To 12   Salairemensuel = InputBox("Saisissez le salaire du mois :") cumulsalarie = cumulsalarie + Salairemensuel Next   Next MsgBox "Le salaire total du salarié est de "" & i & ""& cumulsalarie & " Salairetotal = Salairetotal + cumulsalarie cumulsalarié = 0 MoyenneAnnée = Salairetotal / 20 MsgBox "le salaire total de tous les salariés est de " & Salairetotal & "" MsgBox "le salaire moyen de tous les salariés est de " & MoyenneAnnée & ""     End Sub

---

Compare l'ordre des lignes dans l’algorithme et dans ton code. Tu ne vois pas une différence qui saute aux yeux.
Franchement, je suis sûr que même ma fille de 10 ans verrait la différence.

Effectivement, j'avais déplacé le NEXT (que j'ai remis à sa place ci-dessous) car si je le laisse là ou il est placé dans l'algorithme j'ai un message d'erreur qui souligne le titre en jaune dès que j'appuie sur exécuter ...

Code:

---

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

Sub Exercice_10()   Dim Salairemensuel(1 To 20) Dim cumulsalarie As Single Dim Salairetotal As Single Dim MoyenneAnnée As Single Dim i As Long Dim m As Long   Salairemensuel = 0 cumulsalarié = 0 Salairetotal = 0 MoyenneAnnée = 0 Somme = 0   For i = 1 To 20 For m = 1 To 12   Salairemensuel = InputBox("Saisissez le salaire du mois :") cumulsalarie = cumulsalarie + Salairemensuel Next MsgBox "Le salaire total du salarié est de "" & i & ""& cumulsalarie & " Salairetotal = Salairetotal + cumulsalarie cumulsalarié = 0 Next MoyenneAnnée = Salairetotal / 20 MsgBox "le salaire total de tous les salariés est de " & Salairetotal & "" MsgBox "le salaire moyen de tous les salariés est de " & MoyenneAnnée & ""     End Sub

---

Bonsoir,
Une première bizarrerie: La variable est déclaré "cumulsalarie", mais lors de la remise à zéro, elle est écrite "cumulsalarié = 0". Bizarre, non ?
Une deuxième, le MsgBox ci dessous, me semble mal écrit?

Code:

---

MsgBox "Le salaire total du salarié est de "" & i & ""& cumulsalarie & "

---

La, les variables donneront leurs résultats.Mais je ne vois pas l'intérêt du résultat donné. Enfin moi ce que j'en dit ?

Code:

---

MsgBox "Le salaire total du salarié est de " & i & cumulsalarie

---

Cordialement 8-)

Bonjour
Comment peut-on raisonnablement écrire ceci ? -->>

Code:

---

1 2 3 4 5 6

Dim Salairemensuel(1 To 20) '............   Salairemensuel = 0 '......................... Salairemensuel = InputBox("Saisissez le salaire du mois :")

---

Un tableau dynamique n'est pas une seule variable, d'une seule valeur,, mais une matrice de valeurs.

D'autant plus que l'indice de variable est clairement écrit à cet endroit dans l'algorithme de l'énoncé... :roll:

Franchement, il n'y a qu'à recopier...
Si ce sont des exercices comme ça qui sont supposer vérifier qu'on est capable de coder, ça fait peur. :lol:

En plus, à mon avis, il reste un problème qui, lui, n'est pas signalé dans l'énoncé : la variable Salairemensuel n'est pas typée.
Or, le InputBox standard de VBA (je ne parle pas de la méthode de Application) renvoie un String.
Il y a donc une chance sur deux pour que ça plante quand il faudra l'utiliser dans une addition.
C'est le seul truc qui implique un peu plus de réflexion qu'une simple recopie dans cet exercice.

Bonjour,
Pour trouver les bonne réponses, il faut déja se poser les bonnes questions. Le document algorithme, ne peut être appliqué scricto senso.
Je vous ai fait un modèle, sur 4 salariés. il vous faudra l'adapter pour 20. J'espère que vous aurez la décence et l'intelligence de chercher à comprendre quelles étaient vos erreurs sur votre travail. La récompense des fraudeurs est l'aggravation de leur médiocrité. A vous de voir, à bon entendeur Salut!
Cordialement 8-)

Pièce jointe 369692