Comprendre une macro
Gwaenaelle
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis débutante en VBA et je n'arrive pas à trouver ce que fait ce code c'est censé être une formule normalement pour calculer un prix en fonction d'un taux d'intérêt, dans ma feuille j'ai un bouton Calculer le prix qui lance cette macro mais je n'arrive pas à la comprendre ca doit être une formule normalement , Merci
Sub solverrun()
Dim targetCell As Range
Dim targetValue As Range
Dim changedCell As Range
Set targetCell = Range("j6")
Set targetValue = Range("j2")
Set changedCell = Range("j10")
ActiveSheet.Names.Add Name:="solver_targetCell", RefersTo:=targetCell, Visible:=False
ActiveSheet.Names.Add Name:="solver_targetValue", RefersTo:=targetValue, Visible:=False
ActiveSheet.Names.Add Name:="solver_changedCell", RefersTo:=changedCell, Visible:=False
'MsgBox targetCell.Address & " " & changedCell.Address & " " & targetValue.Value
SolverReset
SolverOk SetCell:=targetCell.Address, MaxMinVal:=3, ValueOf:=targetValue.Value, ByChange:=changedCell.Address
SolverSolve UserFinish:=True
Je suis débutante en VBA et je n'arrive pas à trouver ce que fait ce code c'est censé être une formule normalement pour calculer un prix en fonction d'un taux d'intérêt, dans ma feuille j'ai un bouton Calculer le prix qui lance cette macro mais je n'arrive pas à la comprendre ca doit être une formule normalement , Merci
Sub solverrun()
Dim targetCell As Range
Dim targetValue As Range
Dim changedCell As Range
Set targetCell = Range("j6")
Set targetValue = Range("j2")
Set changedCell = Range("j10")
ActiveSheet.Names.Add Name:="solver_targetCell", RefersTo:=targetCell, Visible:=False
ActiveSheet.Names.Add Name:="solver_targetValue", RefersTo:=targetValue, Visible:=False
ActiveSheet.Names.Add Name:="solver_changedCell", RefersTo:=changedCell, Visible:=False
'MsgBox targetCell.Address & " " & changedCell.Address & " " & targetValue.Value
SolverReset
SolverOk SetCell:=targetCell.Address, MaxMinVal:=3, ValueOf:=targetValue.Value, ByChange:=changedCell.Address
SolverSolve UserFinish:=True
A voir également:
- Comprendre une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonjour,
c'est une macro qui initialise et utilise le solveur d'excel.
Voir ici : https://www.emse.fr/~beaune/solveur/welcome.html
et là pour la partie vba : https://support.microsoft.com/en-us/help/843304
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
c'est une macro qui initialise et utilise le solveur d'excel.
Voir ici : https://www.emse.fr/~beaune/solveur/welcome.html
et là pour la partie vba : https://support.microsoft.com/en-us/help/843304
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.