multiplier les donnees d'une colonne dans une macro

Bonjour !!
Merci de m'aider !
en partant la politesse ça aide toujours !

Ensuite tu peux écrire 1000 dans une cellule quelconque
ensuite tu sélectionne ta colonne et tu fais coller spécial
multiplier

Si tu veux ça en macro, part l'enregistreur à macro avant !

Bonne journée

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"bertrand" <bertrand.latour@temex.fr> a écrit dans le
message de news:462e01c3760f$d845dcb0$a501280a@phx.gbl...
Comment multiplier par 1000 les données d'une colonne dans
une macro excel ?

merci

Bonjour,

Sub Toto()
[z1] = "1000"
[z1].Copy
der = Range("a65000").End(xlUp).Row
Range("A1:A" & der).PasteSpecial Paste:=xlAll,
Operation:=xlMultiply
Application.CutCopyMode = False
[z1].Clear
End Sub

Camille

-----Message d'origine-----
Comment multiplier par 1000 les données d'une colonne
dans

une macro excel ?

merci
.

Bonjour

Deux solutions,

Sub Multi1000Lente()
' Version lente, par incrémentation
Dim Cellule As Range
For Each Cellule In Columns("a:a").Cells
On Error Resume Next
Cellule = Cellule * 1000
Next Cellule
End Sub

Sub Multi1000Rapide()
' Version rapide utilisant le collage spécial d'Excel
Dim Cellule As Range, ValeurTemp
ValeurTemp = Range("iv65536")
Range("IV65536") = 1000
Range("iv65536").Copy
Columns("a:a").PasteSpecial operation:=xlPasteSpecialOperationMultiply
Application.CutCopyMode = xlCopy
Range("iv65536") = ValeurTemp
End Sub



--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)

bertrand wrote:

Comment multiplier par 1000 les données d'une colonne dans
une macro excel ?

merci

Salut Camille

Je ne pense pas souvent à [Z1]...

Merci pour ce tuyau rappel...

:-)

Pierre


Ellimac wrote:

Bonjour,

Sub Toto()
[z1] = "1000"
[z1].Copy
der = Range("a65000").End(xlUp).Row
Range("A1:A" & der).PasteSpecial Paste:=xlAll,
Operation:=xlMultiply
Application.CutCopyMode = False
[z1].Clear
End Sub

Camille

-----Message d'origine-----
Comment multiplier par 1000 les données d'une colonne dans
une macro excel ?

merci
.

Le mien, ou celui de Camille, doit être placé dans un module standard...

Dès lors, tu peux le placer à la suite de la Macro1, c'est-à-dire après le
End de cette procédure


--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)

bertrand wrote:

Merci beaucoup pour ton code, mais, étant complètement débutant, je ne
sais pas exactement ou le placer.
j'ai déja réalisé un morceau de code macro par enregistrement des
opérations successives, et cela me donne dans le visual basic editor
une macro : Sub Macro1()

Où dois-je donc placer ce code ?

Merci

"Pierre Fauconnier" vient de nous annoncer :

Une autre version plus aisément paramétrable

Sub Multi1000RapidePar(Feuille As String, Colonne As String,
Multiplicateur As Double)
' Version rapide utilisant le collage spécial d'Excel
' et paramétrable via les arguments envoyés
Dim Cellule As Range, ValeurTemp
ValeurTemp = Sheets(Feuille).Range("iv65536")
Sheets(Feuille).Range("IV65536") = Multiplicateur
Sheets(Feuille).Range("iv65536").Copy
Sheets(Feuille).Columns(Colonne).PasteSpecial
operation:=xlPasteSpecialOperationMultiply
Application.CutCopyMode = xlCopy
Sheets(Feuille).Range("iv65536") = ValeurTemp
End Sub

lancée à partir d'une autre macro ou par la fenêtre d'exécution par
la ligne

multi1000rapidepar "feuil1","a",1000