Discussion :

[polika5]

Bonjour,

Je voudrais faire une macro VBA qui me permettrait d'obtenir pour chaque colonne (mois), le taux de réduction en fonction de la quantité demandée que je voudrais afficher dans une cellule en fin de chaque colonne. Je n'arrive pas à voir où est le problème avec ma macro. Je vous remercie d'avance.

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
Option Explicit
 
Sub Discount()
 
Dim Discount As Integer
Dim Quantity As Long
Dim i As Integer
i = 1
For i = 1 To 6
Quantity = WorksheetFunction.Sum(Cells(2, i), Cells(18, i))
If Quantity < 40 Then Discount = 20
If Quantity >= 40 Then Discount = 10
Cells(20, i) = Discount 
i = i + 1
 
Next i
 
End Sub

[bboy-eazy]

Il manque les end if non?
vous avez ouvert deux "if" donc il faut deux "end if"

[SfJ5Rpw8]

Bonjour,

La ligne

Code :

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

i=i+1

est de trop.. la boucle for incrémente déjà i.

[Theze]

Bonjour,

En simplifiant un peut :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Discount()
 
    Dim i As Integer
 
    For i = 1 To 6
 
        Cells(20, i) = IIf(Cells(2, i) + Cells(18, i) >= 40, 10, 20)
 
    Next i
 
End Sub

Il est préférable de ne pas utiliser de variable ayant le même nom que la Sub ou Function, ça peut prêter à confusion :

Code :

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

1
2
3
4
5
 
Sub Discount()
 
Dim Discount As Integer
...

Une variable compteur est d'office initialisée en début de boucle donc "i = 1" est inutile :

Code :

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

1
2
3
4
 
i = 1
For i = 1 To 6
...

Et comme le dit bbil, il ne sert à rien d'incrémenter car la boucle s'en charge.

Hervé.

[Igloobel]

Bonjour à tous,

Je me permets d'ajouté un petit post pour simplement dire que les

Code :

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

Cells(20, i) = Discount

ne fonctionnent pas toujours en version 2007 et que je préconise plutôt

Code :

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

Cells(20, i).Value = Discount

c'est du vécu !!!

pour répondre à bboy-eazy
Il n'y a pas besoin de endif qd il n'y a qu'une ligne de IF le end if est implicite

Code :

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

If Quantity < 40 Then Discount = 20

est equivalent à

Code :

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

1
2
3
If Quantity < 40 Then 
   Discount = 20
End If

à bientôt

[polika5]

Je vous remercie tous pour votre aide.

Je n'arrive toujours pas à écrire la ligne de code me permettant de faire la somme des éléments dans la colonne i des lignes 1 à 18.
sur excel ça donnerait : = Sum (i1 : i18) - où i serait remplacé par la colonne A,B,C et ainsi de suite à chaque itération.