XL 2016 Code VBA pour appeler la fonction valeur cible

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Octobre 2019

• #2

Bonjour @Merlin258413,

Si B1 est la cellule qui contient la formule, si A1 est la cellule variable (A1 contenu dans la formule en B1), si 999 est la valeur cible de B1:
Range("B1").GoalSeek Goal:=999, ChangingCell:=Range("A1")

 

Vote positif 0 Vote négatif

M

Merlin258413

XLDnaute Occasionnel

• 30 Octobre 2019

• #3

Bonjour je vous remercie pour votre réponse en fait je veux juste faire apparaître l'image sans intégrer les valeurs à atteindre ou à modifier afin de ne lancer aucun calcul

cdt

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Octobre 2019

• #4

Bonjour à tous,

VB:

Application.CommandBars.FindControl(ID:=856).Execute

eric

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Octobre 2019

• #5

Re,

Pour votre exemple, utilisez le code suivant:

VB:

Range("a19825").Select
Application.Dialogs(xlDialogGoalSeek).Show

edit : bonjour @eriiiic 🙂

 

Dernière édition: 30 Octobre 2019

Vote positif 0 Vote négatif

M

Merlin258413

XLDnaute Occasionnel

• 30 Octobre 2019

• #6

Merci à vous 2 c'est parfait excellente journée

 

Vote positif 0 Vote négatif