1 clic change valeur colonne en appliquant %

DAN33 -  
DAN333 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

2 réponses

m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
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

0
DAN333 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0