Multiplication dans macro
Utilisateur anonyme
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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:
- Multiplication dans macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Application multiplication - Télécharger - Études & Formations
- Macro maker - Télécharger - Divers Utilitaires