Macro Taux Augmentation

Version imprimable

Voir 40 message(s) de cette discussion en une page

30/10/2008, 16h14
clem62173

Macro Taux Augmentation

Bonjour
Je suis en BTS Informatique de Gestion 1er année, nous devons faire des logiciels pour les entreprises
Moi je dois faire un logiciel de transport.
Je possède la liste des Tarifs dans divers tableaux dans excel
Je voudrais déja commencé par faire une macro qui permettrai une augmentation des prix en pourcentage en indiquant le taux dans une inputbox

si possible nommer la plage de cellule ex : tarifs

Je vous remercie pat avance

salut

Soit:
-Colonne A, les tarifs initiaux
-Colonne B, les tarifs après conversion

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub pourcentage()
 
Dim pourcentage As Integer 'variable qui recevra en valeur le pourcentage d'augmentation
pourcentage = InputBox("Veuillez indiquer le pourcentage d'augmentation du prix.", "Pourcentage d'augmentation du prix")
 
Dim tarif As Range
Set tarif = Range("a2:A100") 'déclaration, puis affectation de la zone de tarifs initiaux
 
For Each cellule In tarif 'pour chaque celluel dans la zone définie
cellule.Offset(0, 1) = cellule + cellule * (pourcentage / 100)
'tu multiplies la case à droite du tarif initial par le montant d'augmentation
Next cellule
 
End Sub

31/10/2008, 19h27
clem62173

jai testé l erreur 13 incompatibilité de type
je peut vous envoyer mon tableau par mail contactez moi

Bonjour. Bienvenue sur nos forums

Sans boucler, il est possible de créer la formule puis de copier/coller.

Voici une procédure qui reçoit une plage unicolonne en paramètre, ainsi qu'un taux exprimé en pourcents.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Augmentation(Plage As Range, taux As Single)
    ' augmente la valeur de chaque cellule de la plage
    ' du taux renseigné et place la valeur dans la cellule à droite de la cellule d'origine
 
    Plage.Cells(1, 2).Formula = "=" & Plage.Cells(1, 1).Address(0, 0) & "* (1+" & taux & "/100)"
    Plage.Cells(1, 2).Copy Destination:=Range(Plage.Cells(1, 2), Plage.Cells(Plage.Cells.Count)(1, 2))
 
    'Uniquement si on veut figer les valeurs après la copie
    Range(Plage.Cells(1, 2), Plage.Cells(Plage.Cells.Count)(1, 2)).Copy
    Range(Plage.Cells(1, 2), Plage.Cells(Plage.Cells.Count)(1, 2)).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

On peut bien sûr ajouter des tests pour vérifier que la colonne est bien unicellulaire...

10/11/2008, 15h01
clem62173

1 pièce(s) jointe(s)

Voila le fichier

Je vous donne le fichier
en fait il faut renter un taux d'augmentation dans une inputbox et ce taux va recalculculer tt le contenu des cellules automatiquement
Merci
10/11/2008, 15h13
JackOuYA

bonjour,

pas besoin du fichier, dis nous plutôt sur qu'elle ligne de code apparait ton erreur .
11/11/2008, 10h26
clem62173

Il y a pas dérreur, mais il veut pas exécuter la macro
pouvez-vous mettre en place la macro excutable et le redonner le fichier
merci
12/11/2008, 22h58
JackOuYA

bonsoir,

et tu l'appelle comment ton code pour qu'il s'exécute ?

essayes ceci
met un bouton sur ta feuille et affecte lui cette macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub reajuste()
taux = InputBox("votre taux")
Cells(8, 14).Value = taux / 100
Calculate
Application.ScreenUpdating = False
    Range("N11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("b8:L101").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
End Sub

en N11 colle la formule suivante:

Code:

= N8+1

c'est fait tout simplement avec l'enregistreur de macro

13/11/2008, 17h02
Invité

Bonjour,

Juste une précision si vous voulez éviter les problèmes d'arrondis, je pense qu'il faudrait ajouter tout au début de la macro de Daranc :

Code:

ActiveWorkbook.PrecisionAsDisplayed = True

et avant "End Sub" :

Code:

ActiveWorkbook.PrecisionAsDisplayed = False

Citation:
Envoyé par Daranc
essayes ceci
met un bouton sur ta feuille et affecte lui cette macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub reajuste() taux = InputBox("votre taux") Cells(8, 14).Value = taux / 100 Calculate Application.ScreenUpdating = False Range("N11").Select Application.CutCopyMode = False Selection.Copy Range("b8:L101").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Application.ScreenUpdating = True End Sub
en N11 colle la formule suivante:

Code:

= N8+1

c'est fait tout simplement avec l'enregistreur de macro
Quand je rentre cette macro, elle fonctionne mais le problème c'est que je rentre le taux dans l 'input box par exemple 2 et je click sur ENTRER ensuite tt le contenu de mes cellule est 0 (essayer) Merci

14/11/2008, 21h15
Invité

Bonsoir,

Je viens de télécharger votre fichier, j'ai copié la macro de Daranc et tout fonctionne, sauf comme je l'ai dit les problèmes d'arrondis.

Comme votre fichier ne comprend qu'une feuille, j'ai fait l'essai en copiant le code sur la feuille, puis dans ThisWorkBook, puis dans un module et cela fonctionne toujours.

Il faudrait peut-être que vous joigniez à nouveau le fichier avec la macro ajoutée.
15/11/2008, 10h28
clem62173

Merci beaucoup la macro fonctionne, mais 2 dernières choses
que faut-il que je modifie pour l'affecter à une autre liste de tarifs
et je voudrai insérer un code de controle dans la macro
je m'explique

ex: quand je click sur le bouton je voudrai
une fenetre qui dise etes - vous sûr de modifier les prix d'effinitivement ?

OUI / NOn

je crois que c une vb yes/no

mais je sais + comment on fais

Désolé
15/11/2008, 10h39
JackOuYA
bonjour,

pour le 1/ tu peu modifier ta macro pour qu'elle agisse sur la sélection courante, j'ai vu un exemple dans la faq menu sur bouton droit..
http://vb.developpez.com/faqvba/inde...enucontextcell

pour le 2/
Code:

1 2 3 4 5 Dim yaRep As Integer yaRep = MsgBox(" Alors OUI ou NON ? ", vbYesNo + vbQuestion, "YaKaFoKa") If yaRep = vbYes Then MsgBox "Merci pour le OUI" If yaRep = vbNo Then MsgBox "Pourquoi NON "
16/11/2008, 09h56
clem62173

Le probleme : c'est que si je fais oui / non il démarre le programme
et si je veux faire ce programme dans plussieurs classeur il faut que je sépare les plages de cellule par un point virgule, si cela est logique
16/11/2008, 10h43
JackOuYA

bonjour ...

de quel programme parle tu .. il n'y en as pas dans mon code juste 2 message box... si tu fais OUI ou NON c'est le même qui s'affiche ??

aprés cet les base de l'utilisation de IF...
16/11/2008, 11h30
Invité
Bonjour,

Il faut mettre, par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 If yaRep = vbNo Then MsgBox "La calcul ne sera pas effectué !" End End If If yaRep = vbYes Then MsgBox "Le tarif va être recalculé !" ......code End If Exit Sub
Vous n'êtes pas obligé de mettre MsgBox si vous avez mis l'explication dans InputBox.

Pour les plages de cellules, vous voulez dire que vous avez plusieurs plages de tarifs sur une même feuille ? sur différentes feuilles d'un même classeur ?

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub reajuste() Dim plage As String taux = InputBox("votre taux") Cells(8, 14).Value = taux / 100 Calculate plage = Cells(6, 14).Value Application.ScreenUpdating = False Range("N11").Select Application.CutCopyMode = False Selection.Copy Range(plage).Select ' *** ceci détermine la plage des tarif à modifier *** Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Application.ScreenUpdating = True End Sub
Il est peut être préférable en cas de plusieurs plages de travailler avec des zones nommées et de coller une liste déroulante dans une cellule pour le choix de la plage
zones nommée
insertion
nom
définir
noublies pas de coller un nom existant en N6

macro avec 2 plages de cellule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Macroreajuste_tarif()
 
Dim Rep As Integer
Rep = MsgBox(" Alors  OUI ou NON ? ", vbYesNo + vbQuestion, "Etes-vous sur de réajuster les tarifs")
If Rep = vbYes Then MsgBox ("Oui")
If Rep = vbNo Then Exit Sub
ActiveWorkbook.PrecisionAsDisplayed = True
taux = InputBox("votre taux")
Cells(1, 202).Value = (1 + (Val(taux) / 100))
 
Calculate
Application.ScreenUpdating = False
    Range("A202").Select
    Application.CutCopyMode = False
    Selection.Copy
 
Range("A10:Q199").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
        ActiveWorkbook.PrecisionAsDisplayed = False
 
Range("S10:AF198").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
        Application.ScreenUpdating = True
        ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

voila ma maro a 2 plages mais elle secute mal
elle mais resultéat =0 dans toute les plages de A10 : Q199
et elle selectionne juste la plage S10: AF198 sans affecté le taux augmentation
Merci, si vous voulez le tableau origine nhesite pas

25/11/2008, 17h08
Invité

La solution doit être simple, vous avez confondu N° de ligne et de colonne entre :

Code:

Cells(1, 202).Value = (1 + (Val(taux) / 100))

ici cela correspond à la ligne 1 et à la colonne 202 (GT)

ensuite vous indiquez la 1ère colonne (A) et la ligne 202, ça ne peut évidemment pas fonctionner.

Code:

Range("A202").Select

Voir 40 message(s) de cette discussion en une page