Code vba pour mettre une formule dans une cellule

M

meldja

XLDnaute Impliqué

• 4 Septembre 2009

• #2

Re : Code vba pour mettre une formule dans une cellule

Bonjour,
Pas besoin de code VBA, tu peux simplement faire une formule en colonne B :
=si(estvide(A1);"";A1*10)
a tiré vers le bas.

Je ne sais pas si ça répond à ta question ?
Bonne journée

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 4 Septembre 2009

• #3

Re : Code vba pour mettre une formule dans une cellule

Bonjour meldja,

merci pour ta réponse mais j'aimerai automatiser cela par un code vba car ma colonne A correspond à une extraction qui se répétera régulièrement pour des raisons de mise à jour. En complément du premier message, une autre formule dans la colonne C sur le même principe....

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Septembre 2009

• #4

Re : Code vba pour mettre une formule dans une cellule

Bonjour le fil, bonjour le forum,

En VBA la méthode pour renvoyer le calcul d'une formule est :

Code:

Application.WorksheetFunction.

plus la formule et les arguments qui conviennent. Par exemple,

Code:

Range("A10") = Application.WorksheetFunction.Max(Range("A1:A9")) * 12

renvoie en A10 la plus grande valeur de la plage A1:A9 multipliée par 12.

Je ne vois pas bien ce que tu veux dire par B1 : 100 (formule A1*10) mais si tu désires juste un produit, Meldja a raison, pas besoin de VBA...

 

Vote positif 0 Vote négatif

M

meldja

XLDnaute Impliqué

• 4 Septembre 2009

• #5

Re : Code vba pour mettre une formule dans une cellule

Re,
Dim i as integer
dim x as integer
x = Range("A65536").End(XlUp).Row
For i = 1 to x
If Range("A"& x) > 0 Then
Range("B" & x) = Range("A" & x)*10
Range("C" & x) = Range("A" & x)+5
End If
Next i

Pour exemple, en colonne C, j'ai mis + 5, mais tu peux mettre ce que tu veux.
Code à lier à un bouton pour l'exécuter.
Bonne journée

 

Vote positif 0 Vote négatif

M

meldja

XLDnaute Impliqué

• 4 Septembre 2009

• #6

Re : Code vba pour mettre une formule dans une cellule

Désolé, je me suis planté (je viens de le remarquer en testant), remplace certains x par i, comme ça :
Dim i As Integer
Dim x As Integer
x = Range("A65536").End(xlUp).Row
For i = 1 To x
If Range("A" & i) > 0 Then
Range("B" & i) = Range("A" & i) * 10
Range("C" & i) = Range("A" & i) + 5
End If
Next i

Bonne journée

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 4 Septembre 2009

• #7

Re : Code vba pour mettre une formule dans une cellule

Merci à tous. Le dernier post de meldja me convient bien.

Bonne journée.

 

Vote positif 0 Vote négatif