VBA Excel - Affecter un %

Version imprimable

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

31/10/2016, 15h40
Al__22

Il est possible que cela vienne du selection si tu as rien selectionné
31/10/2016, 15h56
antonysansh

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.
31/10/2016, 16h25
unparia

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

31/10/2016, 17h54
Marc-L

Bonjour, bonjour !

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

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
31/10/2016, 18h42
unparia

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

02/11/2016, 16h57
kari1978
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
02/11/2016, 17h04
Al__22

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

02/11/2016, 18h43
kari1978

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:
02/11/2016, 19h46
unparia

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.
02/11/2016, 19h52
Invité

Code:

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

Oui désolé!
03/11/2016, 15h33
kari1978

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...
03/11/2016, 15h54
Invité

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

Code:

If annéecours<"2016"or >"2019" then annéecours=""
03/11/2016, 16h09
kari1978

dysorthographie,

oui j'ai corrigé le then mais même comme ca il le prend pas

Code:

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

il me met "ERREUR DE COMPILATION" "ERREUR DE SYNTHAXE"

je suis vraimant desolée je débute le vba..et c'est pas facile
en tout cas merci de ton aide
03/11/2016, 16h36
unparia

If expression or expression et non if expression = .. or ..
03/11/2016, 16h42
Invité

ne sois pas désolé, vraisemblablement, je débute également!

Code:

If annéecours < "2016" Or annéecours > "2019" Then annéecours = ""
03/11/2016, 17h13
kari1978
Merci ça fonctionne très bien ! dysorthographie

Cela fonctionne du coup pour l'année 2017
il prend l'année 2016 * taux en % puisque l'année de référence est 2016.

Pour les autres années, il prend toujours l'année de référence 2016.

je voudrais que: quand l'utilisateur tape une année il me prend l'année n-1 pour me faire le calcul (j’espère que j'ai été explicite

j'imagine que le code à changé est celui-ci:
Code:

1 2 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)
mais je n'y arrive pas à part si je passe pas des

Code:

if

et encore merci de ton aide précieuse

Je pens que je viens de comprendre!

Code:

1
2
3
For Each Cellule In Range(année(annéecours) & "2:" & année(annéecours) & Range(année(annéecours) & "2").End(xlDown).Row)
    Cells(Cellule.Row, Cellule.Column + 1).Value = Cellule.Value * (1 + Taux / 100)
    Next Cellule

Merci à vous tous et surtout à dysorthographie

cela fonctionne très bien.

si quelqu'un en a besoin, voici le code (que j'ai une peu modifié):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MajBareme()
'les variables
Dim annee As Object, annéecours As Integer
Dim anneeref, colref, annee_moins_un, col_en_cours
Dim Taux
 
    'Set année = CreateObject("scripting.dictionary")
    annéecours = InputBox("Veuillez saisir l'année en cours?")
    Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en %.", "Pourcentage d'augmentation du prix", , , , , , 1)
    anneeref = 2016
    colref = 3 'année 2016
    annee_moins_un = annéecours - anneeref
    col_en_cours = colref + annee_moins_un
    col_annee_moins_un = col_en_cours - 1
    Cells(1, col_en_cours).Value = Taux / 100
    For i = 3 To 100
    Cells(i, col_en_cours).Value = Cells(i, col_annee_moins_un).Value * (1 + Taux / 100)
    Next
 
     End Sub