multiplication d'une cellule en VBA

Pierrot93

XLDnaute Barbatruc

• 27 Septembre 2010

• #2

Re : multiplication d'une cellule en VBA

Bonjour,

peut être comme ceci :

Code:

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

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 27 Septembre 2010

• #3

Re : multiplication d'une cellule en VBA

bonjour

et comme ca :

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

Cliquez pour agrandir...

salut

edit : salut pierrot

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Septembre 2010

• #4

Re : multiplication d'une cellule en VBA

Bonjour subakuno, Re Pierrot,

Ou aussi :

Code:

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

ou encore :

Code:

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

Edit : salut Hervé

A+

 

Vote positif 0 Vote négatif

S

subakuno

XLDnaute Nouveau

• 27 Septembre 2010

• #5

Re : multiplication d'une cellule en VBA

ca marche nikel merci pour ton aide une fois de plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Septembre 2010

• #6

Re : multiplication d'une cellule en VBA

Re,

subakuno à dit:

ca marche nikel merci pour ton aide une fois de plus

Cliquez pour agrandir...

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

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Septembre 2010

• #7

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

VB:

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

 

Dernière édition: 27 Septembre 2010

Vote positif 0 Vote négatif