1 clic change valeur colonne en appliquant % Fermé

Question

Bonjour,
Un grand merci, à ceux qui pourrons m'aider; je cherche le moyen en V.B.A.( complétement novice), de changer
la valeur de plusieur colonnes en appliquant un pourcentage de réduction. 1 clic valeur des cellules colonne A1 moins 15 %, un autre clic sur le même bouton retour à la valeur précédente.

m@rina · Answer

Bonjour DAN33,

Voici les deux macros :

Sub reduction()
For Each c In Range("A1:A10")
c.Value = c.Value * 0.85
Next
End Sub

Sub annule_reduc()
For Each c In Range("A1:A10")
c.Value = c.Value / 0.85
Next
End Sub

Tu remplaceras A1:A10 par ta plage de cellules qui doit être modifiée.

Attention, ce code met une valeur... Si tes cellules comportaient des formules, les formules seraient perdues. Par ailleurs, la deuxième macro part du principe que tu n'as pas, entre temps, modifié tes cellules.

m@rina

DAN333 · Answer

Un trés grand merci M@rina pour ta réponse,

malheureusement cela ne fonctionne pas, mais nul comme je le suis, je n'ai pas dû donner la bonne définition de ma requête, je la compléte donc,
mon tableau est une grille de tarif,composée entre la colonne J= tarif (de 0 à 100.000 €),  H( de 100.100 à 200.00 €) etc... jusqu'à la colonne O,  
j'aimerai qu'en fonction du client, sur un click bouton, une réduction en pourcentage s'applique sur ces diverses colonnes , et second click sur le même bouton, la valeur initiale réapparaisse , un bouton N°2, aurai la même fonction avec un autre pourcentage, etc..., pouvant de ce fait, m'aligner sur les tarifs de la concurence jusqu'au point minimal de mon prix de revient,
en tous cas,  MERCI,MERCI,

Daniel

1 clic change valeur colonne en appliquant %

2 réponses

Discussions similaires