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