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

Résolu
Hayabuza38 Messages postés 7 Date d'inscription vendredi 11 septembre 2009 Statut Membre Dernière intervention 7 avril 2014 - 30 janv. 2010 à 11:34
Hayabuza38 Messages postés 7 Date d'inscription vendredi 11 septembre 2009 Statut Membre Dernière intervention 7 avril 2014 - 1 févr. 2010 à 12:11
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.

2 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 236
30 janv. 2010 à 14:52
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
3
Hayabuza38 Messages postés 7 Date d'inscription vendredi 11 septembre 2009 Statut Membre Dernière intervention 7 avril 2014
1 févr. 2010 à 12:11
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
0