Discussion :

[clem62173]

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

[Aeltith]

salut

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

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

[clem62173]

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

[Pierre Fauconnier]

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 :

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

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

[clem62173]

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

[JackOuYA]

bonjour,

pas besoin du fichier, dis nous plutôt sur qu'elle ligne de code apparait ton erreur .

[jolop35]

Bonjour


En utilisant Insertion/Noms/Définir pour stocker le taux
(ici nommé TAUX)

NB:
Dans le fichier donné en exemple , il y avait des espaces dans les cellules
et le séparateur décimal était un point, pas une virgule.
Pour que le code ci-dessous fonctionne, j'ai du supprimé les espaces
et remplacé le point par une virgule.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MACRO_TEST()
Dim tarifs As Range
Dim CELLULE As Range
Taux_Augmentation = _
    Val(InputBox("Saisir le pourcentage d'augmentation."))
LeTaux = _
    CStr(Replace((Taux_Augmentation / 100), ",", "."))
ThisWorkbook.Names.Add "TAUX", "=" & LeTaux
Set tarifs = Range("B8:L101")
For Each CELLULE In tarifs
CELLULE = CELLULE * (1 + [TAUX])
Next
Set tarifs = Nothing
End Sub

J.L