Modification en % de nombres sous excel Résolu

Question

Bonjour,

Je fais des devis sous excel, et souvent j'ai besoin de modifier les prix d'un certain pourcentage (baisser ou augmenter, dependant du client et de l'avis du chef :), Donc je me suis demande s'il serait possible de faire une macro qui applique une reduction/augmentation, en pourcentage, sur les chiffres des cellules selectionnees actuellement.

Par exemple j'ai une colonne K2 a K37 de chiffres, et je veut augmeter tous les chiffres de 5%, donc je selectionne les cellules a modifier, et je clik sur la macro, qui me demande le pourcentage, et en validant elle l'applique aux cellules selectionnees.

jejelefou · Answer

Bonjour,

essaies ce code :

Sub reduction()

reduc = Application.InputBox("Entrez un taux de réduction", Type:=1)
For i = 2 To 38
Cells(i, 11).Value = Cells(i, 11).Value * (100 - reduc) / 100
Next
End Sub

bon courrage

ks13 · Answer

salut, merci pour ta reponse, malheureusement, je suis et vais etre tres occupe jusqu'a la fin de cette journee (oui jusqu'a minuit sinon plus), donc je te dirais si ca a marche ou pas des que j'aurais eu le temps de l'essayer.

jejelefou · Answer

la reponse que je t'ai donné n'est surement pas idéale, par contre je pense que c'est une bonne voie de recherche.

bon courrage

a+

jéjé

ks13 · Answer

Alors, j'ai enfin eu le temps de jeter un coup d'oeil a ton code, et il semble bien mis a part une chose : la plage de cellules que j'ai utilise dans mon exemple n'est pas forcement celle que j'aurais dans chaque devis. De ce fait, je souhaiterais que la macro utilise les cellules selectionnees actuelement. Un peu comme quand pour transferer certains fichiers d'un dossier a un autre on selectionne d'abbord les fichiers puis on fait couper/coller, ce qui applique les actions qu'au fichiers selectionnes.

jejelefou · Answer

je n'ai pas de connaissance nécéssaire pour t'aider plus.

je crois qu'il y a une commande du style activ cellule. Ce soir je n'ai pas excel, je verrai demain du travail.

bonne soirée

ks13 · Answer

Ok, merci pour ton temps ^^

J'essaye de trouver la facon de faire par moi meme aussi, mais jusque la je n'ai vu que 2 facons possibles : 

1 - Demander les cellules a modifier (cellule depart, cellule fin), demander le changement a faire (augmentation, diminution), faire l'operation

2 - Demander le changement a faire (augmentation, diminution), verifier les cellules selectionnees, faire l'operation sur les cellules

Pour la 1ere methode, je dois trouver si le programme convertit automatiquement les lettres des colonnes en nombres, et si non comment les convertir. Pour la 2eme methode je n'ai toujours pas trouve comment verifier la zone des cellules a modifier. Je sais qu'on peut utiliser l'objet Range, mais je n'ai pas vu comment lier a l'objet Cell pour l'utiliser dans une boucle, ou peut etre que c'est possible de faire la modificitation sur toutes les cellules contenues dans l'objet Range.

jejelefou · Answer

Bonjour,

voici un truc sympa :

Sub augmentation()
Selection.Value = Selection.Value * 0.95

End Sub


toutes les cellules selectionnée perdent 5%

donc si tu fais ca:

Sub augmentationbis()
indice = InputBox("entrez le coeficient d'augmentation ou de reduction")
Selection.Value = Selection.Value * indice
End Sub

ca doit repondre a ton besoin

ks13 · Answer

Salut, 

j'ai teste ton code mais il y a un probleme majeur : cela ne fonctionne que quand une seule cellule est selectionnee a la fois, des que je selectionne plusieurs cellules j'obtiens une erreur "Type mismatch".

jejelefou · Answer

Ah?

Chez moi ça marche bien.

je ne sais pas, je vais rechercher

jejelefou · Answer

J'ai la meme erreur si une cellule sélectionnée est du texte

ks13 · Answer

Oui, c'est normal, car tu ne peut pas multiplier un texte, mais ceci n'est pas un probleme vu que l'operation ne se fera que sur des cellules dans la colonne Prix unitaire, contant que des prix. Mais comme je l'ai dit des que j'essaye d'utiliser la macro sur une selection de plusieurs cellules. Je pense que cela viens du fait qu'en selectionnant plusieures cellules a la fois Selection.Value deviens un array, contrairement a une seule cellule qui est un Integer. Je n'ai pas pense utiliser Selection.Value de cette facon car, ayant utilise d'autre langages de programmation avant, j'avais dans la tete l'idee du array, donc je ne pensais pas que la macro allais prendre chaque valeur de chaque cellule et la changer separement en faisant de la facon que tu a suggere. Mais si tu me dis que cela marche chez toi, est-ce que cela proviendrait de la version? Moi j'ai Office 2007, et la version excel correspondante.

jejelefou · Answer

Moi j'ai excel 2003 sp3.

ks13 · Answer

Hmm, et tu est sur qu'en selectionnant plusieures cellules contenant des nombres ta macro marche?

jejelefou · Answer

Oui, il n'y a aucun pb

jejelefou · Answer

En effet un leger probleme se produit, voici le correctif :

Sub augmentationbis()
reduc = Application.InputBox("Entrez un taux de réduction", Type:=1)
Selection.Value = Selection.Value * reduc
End Sub


desolé

ks13 · Answer

hmmm, ca me fait toujours la meme erreur "Type mismatch"

jejelefou · Answer

Je ne sais plus quoi faire. Ca ne marche plus. Désolé de vous avoir fait perdre du temps.

a+

jéjé

ks13 · Answer

Pas de probleme, tu a essaye de m'aider, alors merci ^^

pijaku · Answer

Bonjour à vous,
Je viens de lire sur Internet que : erreur "Type mismatch" veut dire que tu utilises une variable dans laquelle tu essayes de mettre une valeur qui n'est pas possible
Dans le code proposé par Jejelefou [que je salue au passage] tu indiques un type:= 1 dans l'Inputbox. Essaye sans :
Sub augmentationbis()
reduc = Application.InputBox("Entrez un taux de réduction")
Selection.Value = CInt(Selection.Value) * reduc
End Sub

ks13 · Answer

Salut, je viens de tester ta version et rien a faire, cela m'affiche toujours la meme erreur sur la meme ligne

"Type mismatch" sur la ligne "Selection.Value = CInt(Selection.Value) * reduc"

pijaku · Answer

Essayons encore...
ceci peut être :
Selection.Value = CInt(Selection.Value) * CInt(reduc)

ps : quand tu places du code sur CCM mets le entre les balises <CODE> c'est le 4ème bouton de mise en forme au dessus du message (à côté de souligné)

ks13 · Answer

Euh, desole, mais pourrais tu m'expliquer la signification de ton ps?
Et je viens d'essayer avec la modification et cela ne marche toujours pas. Est-ce que j'aurais une version buggée de excel? Vu que cela semble marcher chez vous...

pijaku · Answer

Oui cela vient peut être de là. Peut être peux tu placer ton fichier sans références confidentielles sur : https://www.cjoint.com/ et venir poster le lien ici.

Pour mon ps, voici une explication : https://www.cjoint.com/?bojVCj1ZCW

ks13 · Answer

Ok, alors pour le fichier, j'avais copie un devis pour en faire un fichier de test jusqu'a ce que je finis la macro.

Voici le fichier : https://www.cjoint.com/?bolxNveU0M

pijaku · Answer

Qu'elle version d'Excel dispose tu?

ks13 · Answer

Alors, ce que je vois dans le "About" c'est Microsoft Office Excel 2007 (12.0.6514.5000) SP2 MSO (12.0.6425.1000).

pijaku · Answer

Je bosses sous 2003. Cela viens peut être de cela. Pas sur cependant...

ks13 · Answer

Oui, jejelefou a dit qu'il travaillais aussi sous 2003, je pense que cela prouve qu'il y a une difference entre els versions.

ks13 · Answer

Hmm, maintenant cela n'applique l'operation de calcul que sur la 1ere cellule selectionnée, meme si j'ai selectionne plusieures cellules

ks13 · Answer

La on retourne directement sur "type mismatch" u_u

pijaku · Answer

Et cette procédure tu veux l'appliquer à quel Range?
H10:H25?
J10:J25?

pijaku · Answer

Alors suivons la logique. Essaie ceci:
Sub test()
Dim Valeur As Double
Dim i as Integer
Valeur = Application.InputBox("Saisissez 0.5 par exemple", Type:=1)
    If Valeur = 0 Then Exit Sub
For i = 10 to 25 '10 étant la 1ère ligne traitée et 25 la dernière
Range("H" & i).Value = Range("H" & i).Value * Valeur 'H représente la colonne traitée, bien sur!!
Next i
End Sub

ks13 · Answer

pour les cellules vides ce n'est pas un probleme si tu ajoute un truc du genre
 
If Range("H" & i).Value <> "" Then


Euh, j'avais fait un essai avec ce genre de truc et ca avait marche, mais l'autre probleme c'est celui de la selection, la j'ai pris pour test un devis faisant une page, mais j'ai souvent des devis qui depassent 400 lignes, d'ou mon interet pour la macro. D'ou, aussi, mon besoin que je puisse indiquer facilement a la macro quelles cellules modifier. Le besoin de modifier les cellules selectionnees automatiquement, c'est a cause d'eventuels autres utilisateurs qui pourraient essayer d'utiliser la macro. Il serait plus facile pour eux de simplement selectionner les cellules a modifier au lieu de devoir ecrire la colonne et les lignes a editer, ou meme editer la macro.

ks13 · Answer

Avant de venir ici, j'avais favorise l'idee de faire une variable type range ou array, chaque valeur de la variable contenant les cellules selectionnees, et ensuite d'aller faire les valeurs une a une et les modifier. Ceci viens de la facon dont je ferais le code si je devais le faire en php. Le probleme c'est qu'etant debutant en VB, j'ai du mal a comprendre el fonctionnement des proprietes des objets. Vu que la simple macro que vous m'avez donne au debut ne marche pas chez moi, je serais pas surpris que mes essais infructeux ont la meme origine.

jejelefou · Answer

J'ai enfin trouvé quelque chose de valable :

Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer

    Worksheets("feuil1").Activate
    iAreaCount = Selection.Areas.Count

   
        For i = 1 To iAreaCount
        Selection.Areas(i).Value = Selection.Areas(i).Value * 2 'mettre à la place de 2 la messagebox du debut
               
        Next i
  
End Sub

merci de tester et me faire un retour

jejelefou · Answer

Donc voici avec la correction messagebox :

Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer
Valeur = Application.InputBox("Saisissez 0.5 par exemple", Type:=1)
    Worksheets("feuil1").Activate
    iAreaCount = Selection.Areas.Count

   
        For i = 1 To iAreaCount
        Selection.Areas(i).Value = Selection.Areas(i).Value * Valeur
        
        
        
            
        Next i
  
End Sub

ks13 · Answer

Joli, mais j'obtiens toujours la meme erreur a la ligne 

Selection.Areas(i).Value = Selection.Areas(i).Value * Valeur

Par contre, moi j'ai essaye de faire pareil mais avec la propriete Range.

ks13 · Answer

Je ne suis pas sur mais, serait-ce possible que les regles sur les types de variables sont devenues plus strictes avec la version 2007? parce que je ne vois pas d'autres explications.

pijaku · Answer

Bonjour,
Tout le monde est en forme? Vous avez pris le café? bien déjeuner car c'est important...
On peux commencer?
Allons y.
Cette procédure permet de choisir un taux et ensuite, grâce à une Inputbox de sélectionner la plage de cellules (sources : https://apprendreexcel.com/ ou appliquer ce taux. Dites moi ce que ça donne chez vous :

Sub test_du_matin()
      Dim Plage As Range
      Dim Valeur As Double
      Valeur = Application.InputBox("Saisissez 0.5 par exemple", Type:=1)
            If Valeur = 0 Then Exit Sub
      Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
      For Each Cell In Plage
      Cell.Value = Cell.Value * Valeur
      Next
End Sub

ks13 · Answer

Oui, ca marche enfin XD. Par contre, j'ai change un peu le code pour le rendre plus facile a utiliser : 
Sub test_du_matin()
      Dim Plage As Range
      Dim Valeur As Double
      Valeur = Application.InputBox("Saisissez 0.5 par exemple", Type:=1)
            If Valeur = 0 Then Exit Sub
      Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
      For Each Cell In Plage
      Cell.Value = Cell.Value * ((100 + Valeur) / 100)
      Next
End Sub

De cette facon en utilisant un nombre positif on ajoute un pourcentage, et en utilisant un nombre negatif on deduit le pourcentage, et on utilise le pourcentage directement sans calculer le taux de reduction. En tout cas je viens d'apprendre une chose importante : je n'avais pas pense a essayer d'utiliser For Each Cell In Plage pour faire une boucle sur les cellules selectionnees.

Oki, avec ce que tu m'a montre j'ai essaye une autre methode et apparement ca marche chez moi :
Sub test_du_matin2()
      Dim Plage As Range
      Dim Valeur As Double
      Valeur = Application.InputBox("Saisissez 0.5 par exemple", Type:=1)
            If Valeur = 0 Then Exit Sub
      Set Plage = Selection
      For Each Cell In Plage
      Cell.Value = Cell.Value * ((100 + Valeur) / 100)
      Next
End Sub

Le probleme venais du fait que j'essayais d'utiliser une propriete sur une propriete, c'est-a-dire que j'utilisais Range sur Selection, alors que les deux sont des proprietes. Mais ceci ne vaut que pour mes essais, je vois toujours pas pourquoi les 1eres macros que vous m'avez donne ne marchaient pas.

Ah, merci a vous et merci pour vos efforts pour m'aider ^^

Modification en % de nombres sous excel

40 réponses

Newsletters