Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Re pourcentage.

Re pourcentage.

11 réponses
Avatar
Jipé
Bonjour le Forum,

Comment faire en sorte, que les valeurs d'une plage "A7:Axxx", puissent être
augmentées ou diminuées, selon un pourcentage saisi par un utilisateur?
Merci d'avance.
Jipé
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jipé
Bonsoir Isabelle, Bonsoir Philippe,

Deux manières de faire, deux manières efficaces.
Peût-être y a-t-il une différence dans la façon dont se comporte le code,
mais je ne suis pas assez fin VBArtiste du code pour la déceler.
Un Grand Merci à tous les deux, bon week-end à tous.
Jipé


"isabelle" a écrit dans le message de
news:
bonjour Jipé,

alors on y va pour la boucle,

Sub Augmentation()
Dim c
For Each c In Sheets("Produits").Range("B7:B" &
Range("B65536").End(xlUp).Row)
Range(c.Address) = Range(c.Address) & " et " & Range(c.Address) *
Range("G2")
Next
End Sub

isabelle


Re à tous,

Désolé pour mon manque d'analyse, Isabelle!
J'ai une franche préférence pour la boucle mais ce que tu m'as fais
jusqu'ici n'est pas inutile.
Merci pour ce qui a été fait, et pour la suite.
Jipé

"isabelle" a écrit dans le message de
news:
re bonjour Jipé,

ho ! c'est une tout autre histoire, il faut procéder d'une façon
complètement différente.
à moin que tu puisse ajouter une colonne pour garder les anciennes
données, il faut faire une boucle pour calculer chaqu'une des cellules
(une à une).
que préfaire tu ? ajouté une colonne ou procéder avec une boucle ?

isabelle


Merci Isabelle, avec quelques difficultés, j'arrive à suivre.
Je me retrouve maintenant en colonne "B", avec la valeur de la
majoration.


Comment faire pour avoir directement en col. "B", la valeur de
référence




+
la valeur de pourcentage?
Genre:
Range("B7:B" & x).PasteSpecial Operation:=xlMultiply + (valeur
avant




calcul)

Merci encore
Jipé

"isabelle" a écrit dans le message de
news:
bonjour Jipé,

c'est bien ça, tu as tout compris.
pour que le format de la colonne "B" ne pas modifier, il faut
mettre





le
format de la cellule G2 au même format "décimal"

isabelle


Re à tous,
si j'ai bien compris Philippe (c'est pas sûr du tout), je peux
donc






déclarer
la variable "x" comme ci-dessous.

Sub Augmentation()
Dim x As Integer
x = Sheets("Produits").Range("B65536").End(xlUp).Row
Range("G2").Copy
Range("B7:B" & x).PasteSpecial Operation:=xlMultiply
End Sub

Au départ, la colonne "B" est au format "Nombre", 2 décimales.
Après avoir exécuté le code, elle est au format "Pourcentage".
Que me manque-t-il?
Jipé

"Philippe.R" a écrit dans le message de
news:u4WXhxS$
Bonjour Jipé,
x est ici une variable représentant le numéro de la dernière
ligne







de
ta
plage et que tu peux remplacer
par la valeur de ton choix
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Jipé" a écrit dans le message
de







news:eUQwB3R$
Bonjour le Forum, bonjour Isabelle,

C'est quoi le "x" de "Range("A7:A" & x).PasteSpecial"?
Merci
Jipé

"Jipé" a écrit dans le
message de








news:%23dZgo%23H$
Bonjour le Forum,

Comment faire en sorte, que les valeurs d'une plage
"A7:Axxx",









puissent
être
augmentées ou diminuées, selon un pourcentage saisi par un
utilisateur?



Merci d'avance.
Jipé
























1 2