Discussion :

[Guillaume MHK]

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

[OBO29]

Bonjour,

1/ voir "While"

2/

Code :

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

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

A+

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

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

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

1
2
3
4
5
If
Then 
EndIf
Do 
While

soit:

Code :

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

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

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

[OBO29]

Salut,

Utilise soit :

Range("a" & Ligne)

soit

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

A+

[Guillaume MHK]

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