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

10 réponses

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
isabelle
bonjour Jipé,

récupérer la valeur de diminution ou augmentation dans la cellule C1
(par exemple) et exécuter :

Range("C1").Copy
Range("A7:A" & x).PasteSpecial Operation:=xlMultiply

isabelle


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é


Avatar
Jipé
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é




Avatar
Philippe.R
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é








Avatar
Jipé
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é












Avatar
isabelle
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é














Avatar
Jipé
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é
















Avatar
isabelle
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é


















Avatar
Philippe.R
Bonsoir Jipé,
Si ton utilisateur a saisi 1,23 en G2 pour une augmentation de 23 % ou bien si tu ajoutes
systématiquement 1 à la valeur de G2 en début de procédure ([g2]=[g2]+1, le collage spécial
multiplication te donnera automatiquement la valeur augmentation incluse.
--
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:%23ylWxpV$
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é




















Avatar
Jipé
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é




















Avatar
isabelle
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