Discussion :

[Brigand1936]

Bonjour à tous et surtout bonne année 2011

j'ai un petit pb dont je n'arrive pas à trouver la solution:

Je recupere un tableau ou les chiffres sont en décimal exemple en a1 =12 en a2 =14 etc....
J'aimerai convertir par une macro ce tableau en valeur % pour mon exemple a1 doit etre égal à12% A2 doit etre égal 14% etc;; et non a1 =1200% a2= 1400%

Merci de votre aide comme d'habitude fort précieuse

[jfontaine]

Bonjour,

Une petite macro

Code :

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

1
2
3
4
5
6
7
Dim i As Long
 
For i = 1 To Range("A:A").End(xlDown).Row
 
    Range("A" & i).Value = Range("A" & i).Value & "%"
 
Next i

[Brigand1936]

Merci pour votre réponse Jerome ,cela fonctionne

Par contre deux petit soucis cela ne modifie que la colonne A (en sachant que mon tableau fait A1 :F9) et quand je rapuie de nouveau sur le bouton % se remet de nouveau.

Merci pour votre aide précieuse

[jfontaine]

Une autre méthode pour convertir toutes les cellules d'une plage

Code :

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

1
2
3
4
5
6
7
8
 
Dim rg As Range
 
For Each rg In Range("A1:F9")
 
    rg.Value = rg.Value & "%"
 
Next

[Brigand1936]

Merci cela fonctionne et pour ne pas repeter l'action j'ai rajoute une condition
exit sub

Merci encore une fois pour votre réponse.