multiplication d'une cellule en VBA

[subakuno]

Bonjour, je souhaiterais multiplié par 100 en colonne A le contenu de ma cellule B.

J'ai créé la macro suivante mais celle-ci ne fonctionne pas.

Quelqu'un pourrait m'aider?

Merci

Sub formula1()
Range("A2:A18").FormulaLocal = "=Range("B2:B18")*100"
End Sub

 

[Pierrot93]

Re : multiplication d'une cellule en VBA

Bonjour,

peut être comme ceci :

With Range("A1")
    .FormulaLocal = "=B1*100"
    .AutoFill Range("A1:A" & Range("B65536").End(xlUp).Row), xlFillDefault
End With

bonne fin d'après midi
@+

 

[Hervé]

Re : multiplication d'une cellule en VBA

bonjour

et comme ca :

Range("A2:A18").FormulaLocal = "=B2*100"

salut

edit : salut pierrot

 

[job75]

Re : multiplication d'une cellule en VBA

Bonjour subakuno, Re Pierrot,

Ou aussi :

Sub formula1()
Range("A2:A18").Formula = "=B2*100"
End Sub

ou encore :

Sub formula1()
Range("A2:A18").FormulaR1C1 = "=RC[1]*100"
End Sub

Edit : salut Hervé

A+

 

[subakuno]

Re : multiplication d'une cellule en VBA

ca marche nikel merci pour ton aide une fois de plus

 

[job75]

Re : multiplication d'une cellule en VBA

Re,

ca marche nikel merci pour ton aide une fois de plus

Vous voulez sans doute parler du forum, car nous sommes trois

Par exemple :

ca marche nikel merci pour ton aide une fois de plus ô forum

A+

 

[Staple1600]

Re : multiplication d'une cellule en VBA

Bonsoir à tous


Pour une fois , je propose une possibilité sans macro
(mais qu'on peut bien sur "macroter")

Aller dans la cellule ST1600
saisir dans cette cellule le nombre :100
puis faire Edition/Copier
Se rendre ensuite en A2:A18
et faire Edition/Collage spécial et cocher Multiplication.


Et histoire de saluer job75 (tout en saluant Hervé et Pierrot93)

ou encore

Sub Formule1_bis()
[A2].Resize(17).FormulaR1C1 = "=RC[1]*100"
End Sub