Bonjour, je cherche qui peut m'aider pour le pb ci-dessous
Mon TBD présentent des résultats du type:
T1 T2 T3 T4
Ligne A 10 6 12 14 (je souhaite afficher les données divisées par 20 en pourcentage)
Ligne B 4 6 2 8 (je souhaite afficher les données divisées par 30 en pourcentage)
T1 T2 T3 T4
Ligne A 50% 30% 60% 70%
Ligne B 13% 20% 7% 27%
Enfaite on rentre aucune valeur, elle est affichée dans le tbd, et je souhaite la recalculer les valeurs dans chaque cellule en divisant toute les cellules par un nombre constant. Merci
Re,
Un essai en PJ.
La macro est facilement adaptable :
VB:
Sub Division()
Taille = Application.Max(Range("A1").End(xlToRight).Column, Range("B1").End(xlToRight).Column)
For i = 1 To Taille
Cells(1, i) = Cells(1, i) / 20
Cells(2, i) = Cells(2, i) / 30
Next i
Range("1:2").NumberFormat = "0%"
End Sub