Discussion :

[kari1978]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Al__22]

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

[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.

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour, bonjour !

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

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[unparia]

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

[kari1978]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Al__22]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci d'avance

[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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kari1978]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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..

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Corriger.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Oui désolé!

[kari1978]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci d'avance...

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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