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

[Résolu]
Signaler
Messages postés
7
Date d'inscription
vendredi 11 septembre 2009
Statut
Membre
Dernière intervention
7 avril 2014
-
Messages postés
7
Date d'inscription
vendredi 11 septembre 2009
Statut
Membre
Dernière intervention
7 avril 2014
-
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

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
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
Messages postés
7
Date d'inscription
vendredi 11 septembre 2009
Statut
Membre
Dernière intervention
7 avril 2014

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