Multiplication dans macro

Utilisateur anonyme -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,
je voudrais savoir comment insérer une formule de calcul (B&*B2)
je joins la formule pour exemple.
Merci pour votre aide

Sub saisieNombre()

Dim prix As Integer, marge As Single, prixvente As Single
On Error Resume Next

testprix:
Range("b1").Select
ActiveCell.FormulaR1C1 = Application.InputBox("prix :", "infos", "", valdéf1, Type:=1)
On Error GoTo testprix

testmarge:
Range("b2").Select
ActiveCell.FormulaR1C1 = Application.InputBox("marge :", "infos", "", valdéf2, Type:=1)
On Error GoTo testmarge

prixvente:
Range("b3").Select
ActiveCell.Calculate = ("prix" * "marge")
End Sub

A voir également:

1 réponse

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour

curieux code...
en attendant

range("B3")=range("B1")*range("B2")

0