blond2comet
XLDnaute Nouveau
bonjour,
je n'y connais pas grand chose (voire rien) en VBA et essaie de faire la manip suivante sur un fichier.
Je veux que lorsque j'effectue un changement sur ma worksheet, pour les colonnes données:
1- que le "." soit remplacé par une ","
2- que le chiffre soit mis en format pourcentage.
J'ai donc utilisé l'enregistreur de macro.
quand j'utilise ma macro (en manuel ou en worksheet change), elle tourne sans arrêt et surtout n'applique pas le format %...
je pense que je peux supprimer tout le début jusqu'à la dernière ligne Active.Window scroll column??
je ne comprends pas non plus pourquoi tous les critères de remplacement sont "False"...
en enregistrant ma macro, j'ai pourtant utilisé un fichier qui contenait des "."
help!
Merci par avance
je n'y connais pas grand chose (voire rien) en VBA et essaie de faire la manip suivante sur un fichier.
Je veux que lorsque j'effectue un changement sur ma worksheet, pour les colonnes données:
1- que le "." soit remplacé par une ","
2- que le chiffre soit mis en format pourcentage.
J'ai donc utilisé l'enregistreur de macro.
quand j'utilise ma macro (en manuel ou en worksheet change), elle tourne sans arrêt et surtout n'applique pas le format %...
je pense que je peux supprimer tout le début jusqu'à la dernière ligne Active.Window scroll column??
je ne comprends pas non plus pourquoi tous les critères de remplacement sont "False"...
en enregistrant ma macro, j'ai pourtant utilisé un fichier qui contenait des "."
help!
Merci par avance
Code:
'
' pourcentage Macro
' Macro enregistrée le 29/11/2006
'
'
Range("N:N,Q:R").Select
Range("Q1").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("N:N,Q:R,U:U,W:W").Select
Range("W1").Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Style = "Percent"