Utiliser la recherche d’objectif, Excel VBA

Sub rechercheobjectif()
Dim Target As Long
On Error GoTo Errorhandler
Target = InputBox("Entrez la valeur requise", "Entrez la valeur")
Worksheets("Goal_Seek").Activate
With ActiveSheet.Range("C7")
.GoalSeek_ Goal :=Target, _
ChangingCell:=Range("C2")
End With
Exit Sub
Errorhandler: MsgBox ("Désolé, la valeur n'est pas valide.")
End Sub

Goal Seek peut vous être très utile pour résoudre des problèmes complexes. En savoir plus sur la recherche d’objectifs à partir d’ici avant d’utiliser ce code.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x