Programme VBA - ittération - formules - changement de colonne

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:

---

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

---

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

Bonjour,

La ligne

Code:

---

i=i+1

---

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

Bonjour,

En simplifiant un peut :

Code:

---

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:

---

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:

---

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

Bonjour à tous,

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

Code:

---

Cells(20, i) = Discount

---

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

Code:

---

Cells(20, i).Value = Discount

---

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

---

If Quantity < 40 Then Discount = 20

---

est equivalent à

Code:

---

1 2 3

If Quantity < 40 Then Discount = 20 End If

---

à bientôt

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.

Bonsoir,
L'objet cells fonctionne comme suit :
Cells(N°de ligne,N°de colonne).méthode ( La méthode peut être par exemple : la sélection (.select), la valeur(.value), la suppression (.clear) ... etc ...)
Tu Dis

Citation:

---

où i serait remplacé par la colonne A,B,C et ainsi de suite à chaque itération.

---

Il faut que tu comprennes bien que les colonnes A, B, C ... ont également des N°. A=1, B=2 ... Z= 26, AA = 27, AB= 28 ... XFD = 16384 donc on l'incrémenter par une variable et on peut également remplacer Les N° de ligne et de colonne de l'objet Cells par une variable !!!

Donc au final cela fait 2 boucles imbriquées :lol:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Discount()   Dim Remise As Integer Dim Quantity As Long 'si ta qté ne dépasse les 30 000 tu peux déclarer en Integer Dim i_Lign As Integer 'Indice des Lignes Dim i_Coln As Integer 'Indice des colonnes   i_Lign = 1 i_Coln = 2 Quantity = 0   For i_Coln = 1 To 6 For i_Lign = 1 To 18 Quantity = Quantity + Cells(i_Lign, i_Coln).Value Next i_Lign Next i_Coln   If Quantity < 40 Then Remise = 20 Else Remise = 10   MsgBox " Votre qté est de : " & Quantity & vbCrLf & "Votre remise est de : " & Remise, vbInformation, "Remise sur Quantité"   End Sub

---

Tu dis si cela te conviens

@ bientôt

Bonjour.

Citation:

---

Envoyé par polika5

Je n'arrive toujours pas à écrire la ligne de code Sum (i1 : i18)

---

Application.Sum(Range(Cells(1, i), Cells(18, i))) …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci à tous, j'arrive enfin à faire fonctionner ma macro :)