Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denis
Bonjour, Sub but() Worksheets("Feuil1").Range("A4").GoalSeek _ goal:=Worksheets("Feuil1").Range("A5").Value, _ ChangingCell:=Worksheets("Feuil1").Range("A3") End Sub à adapter ici en A4 la formule, en A3 la variable et en A5 la valeur à atteindre
Denis
-----Message d'origine----- Re bonjour,
La fonction valeur cible n'accepte qu'une valeur numérique.
Comment faire pour renvoyer sur une cellule ?
Es-il possible ensuite d'intégrer le tout dans une macro avec bouton ?
Merçi d'avance
Claude
.
Bonjour,
Sub but()
Worksheets("Feuil1").Range("A4").GoalSeek _
goal:=Worksheets("Feuil1").Range("A5").Value, _
ChangingCell:=Worksheets("Feuil1").Range("A3")
End Sub
à adapter ici en A4 la formule, en A3 la variable et en A5
la valeur à atteindre
Denis
-----Message d'origine-----
Re bonjour,
La fonction valeur cible n'accepte qu'une valeur
numérique.
Comment faire pour renvoyer sur une cellule ?
Es-il possible ensuite d'intégrer le tout dans une macro
avec bouton ?
Bonjour, Sub but() Worksheets("Feuil1").Range("A4").GoalSeek _ goal:=Worksheets("Feuil1").Range("A5").Value, _ ChangingCell:=Worksheets("Feuil1").Range("A3") End Sub à adapter ici en A4 la formule, en A3 la variable et en A5 la valeur à atteindre
Denis
-----Message d'origine----- Re bonjour,
La fonction valeur cible n'accepte qu'une valeur numérique.
Comment faire pour renvoyer sur une cellule ?
Es-il possible ensuite d'intégrer le tout dans une macro avec bouton ?
