Diminuer les montants d'une plage de données vbaRésolu

Question

Bonjour a tous.
 Je suis une nouvelle de forum et mon problème est assez simple.Je dois augmenter de x% tous les montants d'une plage de données.Toutes ces cellules doivent augmenter du même pourcentage.
Merci pour votre aide

petiflamand · Accepted Answer

De rien Simplement CLick sur réponse accepter pour cloturer ce post
Bye

petiflamand · Answer

Bonjour , plage de donnéé qui ce trouve dans quoi ??

Crvo · Answer

Bonjour,

Il s'agit d'une liste de prix sur excel 2010, je voudrais tous les réduire de 8& l'idéal serait une macro qui applique le pourcentage de diminution à tous les prix ( qui sont dans une colonne) j'espère avoir été clair.
Ce serait très gentil de m'aider j'ai pas vraiments envi de la faire à la mains il y a une cinquantaine d'onglets.

Merci de ta réponse
Aurélie

petiflamand · Answer

Bonjour ,
Tu peu faire ceci
For i = 1 To 15' ici tu mes le nombre de ligne
a = Cells(i, 1)' i corespond a la ligne et 1 a la colonne
If a <> 0 Then
Cells(i, 1) = a / 1.08
End If
Next i
    End

Crvo · Answer

Merci beaucoup de ta réponse mais je ne ne sais pas ou mettre la lettre de la colonne
lorsque je remplace 1 par E ca bloque.
Si tu as une idée

Merci mercio you're the best
Aurélie

petiflamand · Answer

Comme ecrit 
Le I correspond au numero de ligne
et le 1 a la lettre donc 1=a 2=b 3=c ect
exemple

a = Cells(i, 1)' donc ici ces la colonne A
a = Cells(i, 2)' donc ici ces la colonne B
a = Cells(i, 3)' donc ici ces la colonne C
a = Cells(i, 4)' donc ici ces la colonne D


Fait quand même une copie de ta feuille avant
Si non donne moi ta feuille et je te le fait

Crvo · Answer

Coucou,

Ta macro fonctionne c 'est genial mais elle me met les montants diminués dans la colonne A alors que je souhaiterais qu'elle remplace les chiffres de ma colonne

Sub DIMINUT()
Worksheets("ADV Création 4p").Select
Worksheets("ADV Création 4p").Activate
For i = 12 To 55 ' ici tu mes le nombre de ligne
a = Cells(i, 5) ' i corespond a la ligne et 1 a la colonne
If a <> 0 Then
Cells(i, 1) = a / 1.08
End If
Next i
    End
End Sub

bisous et encore merci

petiflamand · Answer

Oui ces normales,
tu mes a= cells(i,5)
Donc tu change la colonne E
donc ici
Cells(i, 1) = a / 1.08 devient 
 Cells(i, 5) = a / 1.08 pour replacer dans la colonne E

Crvo · Answer

J'ai réussi merci beaucoup beaucoup pour ton aide je n'aurai jamais réussi sans toi
you're the best!!!!!
merci merci merci

Aurélie

Diminuer les montants d'une plage de données vba

9 réponses

Votre réponse

Discussions similaires