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, …

[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