[Déplacé .Net -- VBA] Comment comparer plusieurs cases sous Excel????Résolu

Question

Bonjour,
J'ai besoin de créer sous Excel un tableau avec des produits ainsi que leurs tarifs. Suivant le nombre total d'articles, une remise est effectuée. Jusqu'ici pas de problème mais j'aimerais que cette remise soit calculée et affichée directement sous mon tableau. 
Voici mon exemple chiffré :
De 1 à 10 pdts = pas de remise
11 -> 20 = - 10%
21  -> 30 = - 20%
31 -> 40 = - 30%
J'ai une case où le nombre total de produits commandés s'affiche ainsi qu'une autre où se trouve le montant total de ma commande ex : 29 pdts pour 500?. Ce qui me donne une remise de 20%. Je décide de rajouter 2 produits de plus car la remise sera alors de 30%.
Ma question est comment faire pour que s'affiche directement le montant de ma commande remisé avec le bon taux ?
Merci par avance de votre aide.

ucfoutu · Accepted Answer

Bonjour,

1) Crée cette fonction dans un module :
Public Function remise(combien As Range) As Integer
  Select Case combien.Value
  Case 11 To 20
      remise = 10
  Case 21 To 30
    remise = 20
  Case Is > 31
    remise = 30
  Case Else
      remise = 0
  End Select
End Function
2) sur la 1ère ligne concernée (sur tafeuille excel) : place-toi sur la cellule relative à la remise :
mets-y cette fonction :
=remise(A1)
où A1 est la cellule correspondant à la quantité commandée
Copie cette première cellule ===>> sélectionne ensuite (dans la colonne où elle doit être) la plage des cellules où elle doit être insérée ===>>> colle (d'un bloc) 
et voilà ...




____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Hayabuza38 · Answer

Bonjour,

Merci pour cette aide ô combien précieuse. J'ai pu créer mon tableau et ajouter cette fonction en modifiant la partie : 
Case Is > 31
    remise = 30  
par 
Case 31 To 9999
    remise = 30
Je ne sais pas pourquoi mais la remise était de 0 dans le premier cas. 
Bref, cela marche et je vais pouvoir travailler plus vite grâce à vous.

Encore merci 
Fabien

[Déplacé .Net --> VBA] Comment comparer plusieurs cases sous Excel????

2 réponses

Votre réponse

Discussions similaires