Exercice macro suite et fin

Version imprimable

Désolé de faire un deuxième sujet mais il n'y a plus de réponse sur le premier... :/

Voilà où j'en suis :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub prim()
 
Dim nummois As Single
Dim CA As Single
Dim taux As Single
Dim prime As Single
prime = CA * taux
 
Range("a1") = "MOIS"
Range("b1") = "CHIFFRE D'AFFAIRE"
Range("c1") = "TAUX"
Range("d1") = "PRIME GLOBALE"
Columns("a:d").ColumnWidth = 20
 
nummois = Application.InputBox("Mois de l'année (ex: janvier = 01)", Type:=1)
 
If nummois = 1 Then
Range("a2") = "JANVIER"
ElseIf nummois = 2 Then
Range("a2") = "FEVRIER"
ElseIf nummois = 3 Then
Range("a2") = "MARS"
ElseIf nummois = 4 Then
Range("a2") = "AVRIL"
ElseIf nummois = 5 Then
Range("a2") = "MAI"
ElseIf nummois = 6 Then
Range("a2") = "JUIN"
ElseIf nummois = 7 Then
Range("a2") = "JUILLET"
ElseIf nummois = 8 Then
Range("a2") = "AOUT"
ElseIf nummois = 9 Then
Range("a2") = "SEPTEMBRE"
ElseIf nummois = 10 Then
Range("a2") = "OCTOBRE"
ElseIf nummois = 11 Then
Range("a2") = "NOVEMBRE"
ElseIf nummois = 12 Then
Range("a2") = "DECEMBRE"
 
Else: nummois = Application.InputBox("Mois de l'année (ex: janvier = 01)", Type:=1)
 
End If
 
CA = Application.InputBox("Saisir votre chiffre d'affaires :", Type:=1)
 
If CA < 10000 Then
Range("b2") = CA & taux = 10 / 100 & Range("c2") = taux & Range("d2") = prime
ElseIf CA > 40000 Then
Range("b2") = CA & taux = 21 / 100 & Range("c2") = taux & Range("d2") = prime
Else: Range("b2") = CA & taux = 21 / 100 & Range("c2") = taux & Range("d2") = prime
 
End If
 
 
End Sub

Alors premier problème j'aimerais que si le numéro du mois entré est incorrect, on revienne à l'input box précédente (comme je l'ai codé ça ouvre une nouvelle inputbox mais sans tout ce qui vient avant)
Ensuite pour l'instant quand je rentre un chiffre d'affaire ca me sort simplement 'VRAI' en b2... j'avoue que je ne comprends pas pourquoi..
Bon et je me doute qu'il y a moyen d'écrire un code bien moins bourrin, mais je fais avec mes moyens^^

Merci d'avance

Bonjour,

1/ voir "While"

2/

Code:

1
2
3
4
5
 
Range("b2") = CA
taux = 10 / 100
Range("c2") = taux
Range("d2") = prime

A+

04/12/2016, 13h27
unparia

Bonjour
J'observe pour ma part que l'essentiel de la demande est le copié/collé d'un énoncé de devoir.
Une éventuelle réponse/solution fera-t-elle l'objet (en vue de la note attribuée) d'une mention, dans la remise de la "copie", qu'il convient d'attribuer une note non à l'élève, mais à ce site ?
C'était juste une question.... (mais peut-être également la seule réponse "acceptable")...
Sur ce ... Je sors ...
04/12/2016, 13h55
Guillaume MHK
@OBO29

Merci de ton aide!

Pour ce qui est While, est ce qu'il faut le mettre à la suite de If /Then ou les imbriquer ?

Du genre soit :
Code:

1 2 3 4 5 If Then EndIf Do While
soit:
Code:

1 2 3 4 5 Do If Then EndIf While
Parce que pour l'instant ca fait planter excel les différents essais que j'ai fait.

@unparia

Il s'agit d'un exercice que je dois faire dans le cadre de cours d'informatique à la fac
Comme ce n'est pas du tout mon domaine et que je n'ai personne de calé autour de moi, je viens chercher de l'aide ici car je rame à comprendre.
Je peux concevoir que ça te gène de m'aider, mais si un jour tu as besoin d'analyser une critique littéraire (qui sait :p) je serai ravi de te donner un coup de main ! ^^
04/12/2016, 15h09
Guillaume MHK

Ok donc jusqu'ici ça marche,
il me reste un dernier problème :
Comment recommencer les instructions à la ligne suivante de manière automatique.
Quelque chose comme:
For Each "instruction regarding this row"
Next "same instruction on row+1"

Bon mais écrit comme ca, évidemment ça marche pas^^
Des suggestions ?
04/12/2016, 16h46
OBO29

Salut,

Utilise soit :

Range("a" & Ligne)

soit

Cells(Ligne,1)
où 1 est la Colonne "A"

A+
04/12/2016, 17h39
Guillaume MHK

Bon ! grâce à vous j'ai fini par me débrouiller
Merci!