Discussion :

[babybell]

Amis du Forum bonjour

Je ne sais si j'ai besoin de vacances ou quoi, mais je sèche sur un problème on ne peut plus simple à mon avis.
Voici un bout de code qui ne concerne que 10 cas, mais il pourrait en concerner plusieurs autres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro3()
Range("B11").Select
If ActiveCell.Offset(0, -1) > 30 And ActiveCell.Offset(0, -1) <= 31 Then ActiveCell.Offset(0, 0) = 6.19 + (1 * 3.186)
If ActiveCell.Offset(0, -1) > 31 And ActiveCell.Offset(0, -1) <= 32 Then ActiveCell.Offset(0, 0) = 6.19 + (2 * 3.186)
If ActiveCell.Offset(0, -1) > 32 And ActiveCell.Offset(0, -1) <= 33 Then ActiveCell.Offset(0, 0) = 6.19 + (3 * 3.186)
If ActiveCell.Offset(0, -1) > 33 And ActiveCell.Offset(0, -1) <= 34 Then ActiveCell.Offset(0, 0) = 6.19 + (4 * 3.186)
If ActiveCell.Offset(0, -1) > 34 And ActiveCell.Offset(0, -1) <= 35 Then ActiveCell.Offset(0, 0) = 6.19 + (5 * 3.186)
If ActiveCell.Offset(0, -1) > 35 And ActiveCell.Offset(0, -1) <= 36 Then ActiveCell.Offset(0, 0) = 6.19 + (6 * 3.186)
If ActiveCell.Offset(0, -1) > 36 And ActiveCell.Offset(0, -1) <= 37 Then ActiveCell.Offset(0, 0) = 6.19 + (7 * 3.186)
If ActiveCell.Offset(0, -1) > 37 And ActiveCell.Offset(0, -1) <= 38 Then ActiveCell.Offset(0, 0) = 6.19 + (8 * 3.186)
If ActiveCell.Offset(0, -1) > 38 And ActiveCell.Offset(0, -1) <= 39 Then ActiveCell.Offset(0, 0) = 6.19 + (9 * 3.186)
If ActiveCell.Offset(0, -1) > 39 And ActiveCell.Offset(0, -1) <= 40 Then ActiveCell.Offset(0, 0) = 6.19 + (10 * 3.186)
 
End Sub

J'aimerai trouver un algorithme plus rapide qui me donnerait le même résultat, mais en beaucoup moins de lignes.

Merci de votre aide

[Invité]

bonjour,
je ne comprends pas ou est le problème!

Code :

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

1
2
3
4
5
6
7
8
9
10
Debug.Print 31 Mod 30
Debug.Print 32 Mod 30
Debug.Print 33 Mod 30
Debug.Print 34 Mod 30
Debug.Print 35 Mod 30
Debug.Print 36 Mod 30
Debug.Print 37 Mod 30
Debug.Print 38 Mod 30
Debug.Print 39 Mod 30
Debug.Print 40 Mod 30

[babybell]

merci de ta réponse, je viens juste de trouver la solution, trop simple; vivement les vacances