Discussion :

[buzzinge]

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 ....
algo.pdfalgo.pdf
algo.pdfessai.xlsm

[Menhir]

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.

[buzzinge]

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 :

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

[Menhir]

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.

[buzzinge]

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 :

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

[Transitoire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.