VBA Excel - Affecter un %

Bonjour,

débutante sur vba, si quelqu'un peut m'aider svp.
j'ai un onglet qui s'appelle "tarifs"
la colonne C contient le montant pour l'année 2016.
pour 2017 je souhaiterais que l’utilisateur mette le pourcentage d'augmentation et que ça lui donne le montant 2017.
montant année 2016 + taux de pourcentage =montant pour l'année 2017 à affecter sur l'ensemble des codes articles

code:

Code:

---

1 2 3 4 5 6 7

Sub tarifs() Dim Taux As Single Taux = InputBox("Saisir le taux de cette année selon votre barème svp") For Each Cellule In Selection Cellule.Value = Cellule.Value * (1 + Taux / 100) Next Cellule End Sub

---

sachant que cela sera toujours l'année en cours pour effectuer le calcul
mais cela me fait une erreur..
"Erreur d'execution 1004" " Erreur définie pr l'application ou par l'objet"

merci de votre aide

Il est possible que cela vienne du selection si tu as rien selectionné

Je pencherais pour une erreur sur le séparateur.

Si tu veux un taux à virgule tu vas devoir taper 5,5 et pas 5.5.
De plus tu devrais déclarer la variable Cellule avec Dim Cellule As Range.

Cet ajout plus une gestion erreur sur le fait que le contenu de l'Inputbox soit numérique devrait régler ton problème.

Bonjour
Il est regrettable que le message d'erreur reçu et la ligne de code concernée ne nous soient pas communiqués et qu'il nous faille en conséquence faire des "hypothèses".
Je pencherais (mais ce n'est qu'une hypothèse, donc ) pour une saisie qui, non numérique, ne se prête pas à une opération arithmétique.
Je suggère, en lieu et place d'une simple inputbox, l'utilisation de Application.InputBox avec son argument Type=1. cela forcera l'utilisateur à saisir un numérique.

Bonjour,
Je viens d'essayer votre code tel quel et je n'ai pas d'erreurs... si je tape la virgule et pas un point il faut donc tester la réponse avant d'effectuer, avec replace par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Sub tarifs() Dim Taux As String Taux = InputBox("Saisir le taux de cette année selon votre barème svp") If InStr(Taux, ".") Then Taux = CDec(Replace(Taux, ".", ","))   For Each Cellule In Selection Cellule.Value = Cellule.Value * (1 + Taux / 100) Next Cellule End Sub

---

bonne soirée
geogeo

Bonjour, bonjour !

Juste en passant, tu n'as même pas besoin de tester ‼

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Application.Inputbox avec le type 1 ne laissera tout simplement pas passer ce qui n'est pas reconnu comme numérique.

bonjour,

je viens de reprendre ton code, cela ne me fait plus d'erreur mais le calcul ne se fait pas
encore merci à vous tous.

Citation:

---

Envoyé par geogeo70

Bonjour,
Je viens d'essayer votre code tel quel et je n'ai pas d'erreurs... si je tape la virgule et pas un point il faut donc tester la réponse avant d'effectuer, avec replace par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Sub tarifs() Dim Taux As String Taux = InputBox("Saisir le taux de cette année selon votre barème svp") If InStr(Taux, ".") Then Taux = CDec(Replace(Taux, ".", ","))   For Each Cellule In Selection Cellule.Value = Cellule.Value * (1 + Taux / 100) Next Cellule End Sub

---

bonne soirée
geogeo

---

Merci à vous tous,

sauf que cela ne me fait plus d'erreur mais je n'ai aucun résultat,

ma colonne c = montant année 2016
ma colonne d = montant année 2017
une fois que l'utilisateur aura taper son taux il faudrait que le montant apparaît en colonne d

mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Tarifs() Dim Taux As Single Sheets("Tarifs").Activate Taux = InputBox("Veuillez indiquer le pourcentage d'augmentation du prix.", "Pourcentage d'augmentation du prix") If InStr(Taux, ".") Then Taux = CDec(Replace(Taux, ".", ","))   For Each Cellule In Selection Cellule.Value = Cellule.Value * (1 + Taux / 100) Next Cellule End Sub

---

On en revient au même problème si ton Selection est vide ça ne marche pas et idem pour ton Cellule.value = Cellule.value ça n'a strictement aucun sens :weird:
Enfin comme l'a signalé unparia utilise application.inputbox de type 1 plutôt que de faire une vérif.

Un code plus correct mais néanmoins tapé avec les pieds en 15 secondes donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Tarifs() Dim Taux As Single   Sheets("Tarifs").Activate Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix.", "Pourcentage d'augmentation du prix", , , , , , 1)   For Each Cellule In Range("A2:A" &Range("A2").End(xlDown).Row) Cells(Cellule.Row, Cellule.Column + 1).Value = Cellule.Value * (1 + Taux / 100) Next Cellule End Sub

---

En partant du principe que ta colonne 2015 est en A et commence à la ligne 2 et que ta colonne 2016 est en colonne B sinon il faut adapter

EDIT : et par pitié mets ton code entre balise (le # quand tu écris un message)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub tarifs()Dim Taux As String While Taux = "" Taux = InputBox("Saisir le taux de cette année selon votre barème svp") If Not IsNumeric(Replace(Taux, ".", ",")) Then MsgBox "Entrez un valeur numetique": Taux = "" Wend Taux = Replace(Taux, ",", ".") For Each Cellule In Selection Cellule.Value = Cellule.Value * Evaluate("1+ (" & Chr(34) & Taux & Chr(34) & "%)") Next Cellule End Sub

---

Merci Beaucoup Al__22 ça fonctionne!

Merci dysorthographie :)

Par contre en fonction de l'année je voudrais qu'il se place dans la bonne colonne car d'une année à l'autre le taux va augmenter:

année 2016=c
année 2017=d
année 2018=e
année 2019=f

Code:

---

1 2 3

Sub Tarifs() Dim année As Integer année = InputBox("Veuillez saisir l'année en cours?")

---

merci d'avance

Pour faire ça il suffit d'un find voir d'un like, je te laisse aller voir :

Explication Find
Exemple sur le forum

Explication Like
Exemple sur le forum

Code:

---

1 2 3 4 5 6 7 8 9 10

Set année = CreateObject("scripting.dictionary") année("2016")="c" année("2017")="d" année("2018")="e" année("2019")="f"   annéecours = InputBox("Veuillez saisir l'année en cours?")   Cells(10,année(annéecours))=100

---

Citation:

---

Envoyé par dysorthographie

Code:

---

1 2 3 4 5 6 7 8 9 10

Set année = CreateObject("scripting.dictionary") année("2016")="c" année("2017")="d" année("2018")="e" année("2019")="f"   annéecours = InputBox("Veuillez saisir l'année en cours?")   Cells(10,année(annéecours))=100

---

---

merci de ta réponse, sauf que cela ne fonctionne pas
il me bloque à partir de
Set année = CreateObject("scripting.dictionary")


voici mon code en entier:

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 29

Sub Tarifs()   Dim année As Integer Sheets("Bareme").Select 'saisir une année année = InputBox("Veuillez saisir une année comprise entre 2017 et 2023") If année > 2023 Then MsgBox ("Vous avez saisi une mauvaise année. Recommencez la saisie") Else If année < 2017 Then MsgBox ("Vous avez saisi une mauvaise année. Recommencez la saisie") Else If année = ("") Then MsgBox ("Vous n'avez rien saisi. Recommencez la saisie") End If End If End If     Dim Taux As Single Sheets("Bareme").Select 'saisir un taux Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en %.", "Pourcentage d'augmentation du prix", , , , , , 1)   For Each Cellule In Range("C2:C" & Range("C2").End(xlDown).Row) Cells(Cellule.Row, Cellule.Column + 1).Value = Cellule.Value * (1 + Taux / 100) Next Cellule   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim année as object, annéecours as string Set année = CreateObject("scripting.dictionary") année("2016")="c" année("2017")="d" année("2018")="e" année("2019")="f" while annéecours="" annéecours = InputBox("Veuillez saisir l'année en cours?") If annéecours<"2016" or >"2019" thenannéecours="" Wend   Dim Taux As Single Sheets("Bareme").Select 'saisir un taux Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en %.", "Pourcentage d'augmentation du prix", , , , , , 1)   For Each Cellule In Range("C2:C" & Range("C2").End(xlDown).Row) Cells(Cellule.Row, année(annéecours).Value = Cellule.Value * (1 + Taux / 100) Next Cellule

---

merci d'avoir répondu...
par contre j'ai un bugg au niveau de:
Cells(Cellule.Row, année(annéecours)).Value = Cellule.Value * (1 + Taux / 100)

j'arrive pas à comprendre..:oops:

J'observe déjà un nombre impair de parenthèses dans :

Code:

---

Cells(Cellule.Row, année(annéecours).Value = Cellule.Value * (1 + Taux / 100)

---

Corriger.

Code:

---

Cells(Cellule.Row, année(annéecours)).Value = Cellule.Value * (1 + Taux / 100)

---

Oui désolé!

bonjour,

je suis bloquée à ce niveau suite à ton dernier envoi dysorthographie

Code:

---

If annéecours<"2016" or >"2019" thenannéecours=""

---

:oops:

merci d'avance...

bonjour,
c'est mon téléphone qui as un écran trop petit!

Code:

---

If annéecours<"2016"or >"2019" then annéecours=""

---