1 clic change valeur colonne en appliquant %

Fermé
DAN33 - 26 avril 2009 à 13:02
DAN333 Messages postés 2 Date d'inscription dimanche 26 avril 2009 Statut Membre Dernière intervention 27 avril 2009 - 26 avril 2009 à 19:13
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.

2 réponses

m@rina Messages postés 20027 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 avril 2024 11 269
26 avril 2009 à 16:28
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 dimanche 26 avril 2009 Statut Membre Dernière intervention 27 avril 2009
26 avril 2009 à 19:13
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